Como Faço para aguardar um processo para rodar uma função

[Read]

minha função

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
pid: HWND;
begin
  pid:=FindProcess('game.exe');
  InjectLibrary(pid, 'hack.dll');
end;

na função acima tenho q ficar clicando num botão ate o processo ser encontrado

quero saber como implementar um script q aguarde o processo ser aberto para depois rodar a função

[flavioavilela]

bom, se entendi o que você quis dizer, você quer rodar esse script ai só depois que o processo X estiver aberto, não é isso??

com ctz, quando esse processo estiver aberto, vai ser criado um arquivo na sua máquina, simbolizado esse processo... então, tente fazer assim:

Verifica:= false;
while not Verifica do
begin
  if FileExists('ArquivoQueRepresentaOProcessoAberto') then
  begin
    Verifica:= true;
    CódigoQueDesejaImplementar;
  end;
end;

ou seja, você clica no botão e ele fica num loop até ser encontrado o processo... sacou???

espero ter ajudado...

[Douglas Soares]

Você pode fazer isso através do componente Timer que fica na paleta System,

Adicione ele e deixe enabled como True e vá no events OnTimer e deixe mais ou menos assim:

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
var
pid: HWND;
begin
  if FindProcess('game.exe') then
  begin
  pid:=FindProcess('game.exe');
  InjectLibrary(pid, 'hack.dll');
  Timer1.Enabled := false;
  end;
end;

Abraços

[Read]

obrigado pelas respostas a ambos

a do douglas me serviu perfeitamente

EDIT

pra não ter que criar outro tópico agora quero fazer o contrario

meu programa extrai uma dll q é usada por um outro processo

agora preciso de uma função q aguarde esse processo fechar para deletar essa DLL

Editado Janeiro 13, 2011 por Read

[Douglas Soares]

Tenta assim:

begin
  if not FindProcess('game.exe') then
  begin
  DeleteFile('hack.dll');
  end;
end;

Abraços