CreateProcess

Question

Olá colegas, preciso executar um programa externo sem aguardar o sei término.Procurei aqui no fórum e só encontrei a função [b:a4be35d6e4]ExecAndWait[/b:a4be35d6e4]. Esta não me serve, pois preciso qu...

Rômulo Barros · Answer

Será que é isto ou estou enganado:[code:1:2d5858f7d1]procedure TForm1.Button1Click(Sender: TObject);begin   WinExec(´C:WINNTNotepad.exe´,SW_SHOWNORMAL);   Application.Terminate;end;[/code:1:2d5858f7d1]...

Tenil · Answer

Undeclared Identifier,é exatamente isso que quero fazer. Só que usando CreateProcess.Tem jeito?Obrigado....

Tenil · Answer

Quando faço:[code:1:5a06d6d271]WinExec(´C:WINNTNotepad.exe´,SW_SHOWNORMAL); Application.Terminate; [/code:1:5a06d6d271]O Bloco de notas é aberto, mas a plicação não finaliza....

Bruno Belchior · Answer

a linha:[code:1:50d55113c6]Application.Terminate;[/code:1:50d55113c6]só vai executar após o usuário fechar o NotePad...

Vinicius2k · Answer

Colega,Se a função [b:e3c3b5407e]ExecAndWait[/b:e3c3b5407e] que vc está tentando utilizar for esta, ou parecida com esta, basta inibir nela a chamada à [b:e3c3b5407e]WaitForSingleObject[/b:e3c3b5407e];[code:1:e3c3b5407e]function ExecAndWait(const FileName, Params: string;  const WindowState: Word): boolean;var SUInfo: TStartupInfo;    ProcInfo: TProcessInformation;    CmdLine: string;begin  CmdLine := ´"´ + Filename + ´"´ + Params;  FillChar(SUInfo, SizeOf(SUInfo), #0);  with SUInfo do begin    cb := SizeOf(SUInfo);    dwFlags := STARTF_USESHOWWINDOW;    wShowWindow := WindowState;  end;  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,            CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,            PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);// aqui -> if Result then begin// aqui ->    WaitForSingleObject(ProcInfo.hProcess, INFINITE);// aqui -> end;end;[/code:1:e3c3b5407e]Após a chamada de [b:e3c3b5407e]ExecAndWait(...)[/b:e3c3b5407e], chame [b:e3c3b5407e]Application.Terminate;[/b:e3c3b5407e][code:1:e3c3b5407e]if ExecAndWait(´c:windowsnotepad.exe´, ´´, SW_SHOW) then   Application.Terminate;[/code:1:e3c3b5407e]Espero ter ajudado...T+...

Tenil · Answer

Vinicius2K,funcionou como você disse.Só que agora está ocorrendo outro probleminha.Não estou conseguindo passar os parâmetros para o programa externo.Já tentei assim:[code:1:8be53a9136]  if ExecAndWait(´c:arquivos de programasitejmembrosatualizador.exe´, ´-2´, SW_SHOW) then    Application.Terminate;  end;[/code:1:8be53a9136]Asim:[code:1:8be53a9136]  if ExecAndWait(´c:arquivos de programasitejmembrosatualizador.exe´, ´/2´, SW_SHOW) then    Application.Terminate;  end;[/code:1:8be53a9136]Assim:[code:1:8be53a9136]  if ExecAndWait(´c:arquivos de programasitejmembrosatualizador.exe /2´, ´´, SW_SHOW) then    Application.Terminate;  end;[/code:1:8be53a9136]E nada.Quando não passo parâmetro funciona normalmente.O problema é que preciso passar o parâmetro.De qualquer forma, obrigado pela sua colaboração....

Vinicius2k · Answer

Humm... eu não uso esta função, mas me parece que aqui existe um problema :

1	`CmdLine := ´"´ + Filename + ´"´ + Params;`

Tente alterar para :

1	`CmdLine:= ´"´+FileName + ´ ´ + Params´"´;`

OK?

T+

Tenil · Answer

:cry: Também tentei isso, e nada......

Vinicius2k · Answer

Vc sabe exatamente como esta aplicação externa ´deseja´ receber os parametros? pq vc precisa passá-los exatamente como a aplicação espera...

Tente isso também :

1	`CmdLine := Filename + ´ ´ + Params;`

Estou ´chutando´... não sei, na verdade, o que poderia ser...

T+

Tenil · Answer

Porque, eu me pergunto, porque, meu Deus???Essas coisas só acontecem comigo???...

Vinicius2k · Answer

Testei a função aqui e ela realmente funciona com o código original :

1	`CmdLine := ´"´ + Filename + ´"´ + Params;`

Faça um teste simples :

ExecAndWait(´c:\windows\notepad.exe´, ´<nome de um arquivo .txt>´, SW_SHOW);

T+

Fórum CreateProcess #260772