F�rum janela aberta ou fechada... #467266

18/01/2014

preciso saber se o photoshop esta aberto e se estiver n�o fazer nada, algu�m pode me ajudar ?
j� tentei FindWindow e n�o deu certo...

Aps

Curtir t�pico

+ 0

Responder

Posts

18/01/2014

Aps

vou tentar ser mais b�sico, algu�m sabe como ver se um programa esta aberto ou fechado pelo delphi ?

Responder

Gostei + 0

18/01/2014

Aps

consegui ajuda em outro f�rum, vlw

c�d:

function PrgRodando(Executavel: WideString): Boolean; Export; StdCall;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(Executavel)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(Executavel))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

depois s� usar if

If PrgRodando('uTorrent.exe') Then

Responder

Gostei + 0