Trabalhando com o Gerenciador de tarefas

[Cleverson Honório Gouvêa]

Queria detectar se um aplicativo esta sendo executado no taskmgr...

Como eu faço isso ???

É que eu tenho uma bat, quero que ela seja executada quando eu chama-la no Delphi e logo

e enquanto ela estiver sendo executada o usuário tem que ser obrigado a esperar...

Após a execução ser completa, tudo volta ao normal ...

Alguém pode me dar uma ajuda ?

[Churc]

Opa

Utilize a função WinExecandWait

Function WinExecAndWait(const Path:  PChar; const Visibility:  Word; const Wait:  Boolean):  Boolean;
var
  ProcessInformation:  TProcessInformation;
  StartupInfo:  TStartupInfo;
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb          := SizeOf(TStartupInfo);
    lpReserved  := NIL;
    lpDesktop   := NIL;
    lpTitle     := NIL;
    dwFlags     := STARTF_USESHOWWINDOW;
    wShowWindow := Visibility;
    cbReserved2 := 0;
    lpReserved2 := NIL
  end;

  result := CreateProcess(NIL,       {address of module name}
                          Path,      {address of command line}
                          NIL,       {address of process security attributes}
                          NIL,       {address of thread security attributes}
                          FALSE,     {new process inherits handle}
                          NORMAL_PRIORITY_CLASS,   {creation flags}
                          NIL,       {address of new environment block}
                          NIL,       {address of current directory name}
                          StartupInfo,
                          ProcessInformation);
  if Result then
  begin
    with ProcessInformation do
    begin
      if Wait then
      WaitForSingleObject(hProcess, INFINITE);
      CloseHandle(hThread);
      CloseHandle(hProcess)
    end;
   end;
end;

Pra usar exemplo

WinExecandWait('seuarquivo.bat', SW_SHOWNORMAL, True);

abraços