Abrir exe

Question

Ol�, fiz um programa de bloqueio de conte�do, para net, programas e tudo mais, funcionando fil�, s� que raramente, por alguns erros ele fecha, ai estou criando um servi�o pra vigi�-lo, tipo de minuto ...

Woinch · Answer

Voc� j� tentou debugar o servi�o para ver se n�o est� com algum problema? Antes que gere algum tipo de excess�o e n�o execute o WinExec? Caso sim, j� tentou utilizar o comando ShellExecute da unit ShellAPI?

Abra�os...

Silveriosepulveda · Answer

Olha, estamos tratando de um Service Aplication, em uma aplica��o normal, eu testo a linha de comando com winexec e funciona, da mesma forma dom shellapi, s� que no servi�o n�o funciona, n�o abre o exe.

Valeu pela aten��o.

Prgdelphi · Answer

Quando voc� chama o exe a partir do servi�o voc� est� informando o seu caminho completo ou somente o nome do execut�vel.

Um problema que eu sei que acontece � esse, quando voc� vai chamar um exe a partir de um servi�o do windows voc� tem que especificar o caminho completo do arquivo, mesmo que esteja na mesma pasta que o exe do servi�o.
[]s

Paullsoftware · Answer

Essa fun��o executa um outro exe e fica aguardando sua finaliza��o para continuar a execu��o, sendo assim, vc pode adapitar as suas necessidades!

function ExecExterno(const FileName, Params: string; const WindowState: Word): boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
  { Coloca o nome do arquivo entre aspas. Isto � necess�rio devido aos espa�os contidos em nomes longos }
  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);
  { Aguarda at� ser finalizado }
  if Result then begin
  WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  { Libera os Handles }
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);
  end;
end;

fa�a o teste...

if ExecExterno(�c:\windows\system32\calc.exe�,��,SW_NORMAL) then
 ShowMessage(�continuando...�);

veja que a mensagem s� ser� exibida quando finalizar a calculdadora do windows, eu uso essa rotina num gerenciador...

agora vem o pedido, tem como vc me enviar um exemplo de uso desse seu sistema, estou sofrendo muito aqui na empresa com a kralera acessando tudo que n�o presta, manda um exemplo ai pro meu email, por favor mando: paullsoftware@gmail.com desde j� te agrade�o :wink:

F�rum Abrir exe #368205