Запущенно ли приложение x64

[N0iD]

Здравствуйте, есть вот такой код, который определяет по имени файла в процессах запущен он или нет. с х32 программами работает, а вот с х64 не работает. Подскажите выход из сложившейся ситуации.

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TlHelp32, ShellAPI, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetProcessByEXE(exename: string): THandle;
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
  Result:= 0;
  hSnapshoot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapshoot = 0) then Exit;
  pe32.dwSize:= SizeOf(TProcessEntry32);
  if (Process32First(hSnapshoot, pe32)) then
    repeat
      if (pe32.szExeFile = exename) then
      begin
        Result:= pe32.th32ProcessID;
        exit;
      end;
    until not Process32Next(hSnapshoot, pe32);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetProcessByEXE('x64.exe') = 0 then
    ShowMessage('Уже запущено')
  else
    ShowMessage('НЕ запущено');
end;

end. 


[Человек_Борща]

Ну да все правильно, если нет процесса x64.exe то и функция вернёт соотв. результат.

[N0iD]

Сообщение от Человек_Борща

Ну да все правильно, если нет процесса x64.exe то и функция вернёт соотв. результат.

))) Вы же знаете о чем идет речь, например впишем туда 'Photoshop.exe' в заместо x64.exe и запустим Photoshop x64. В процессах он будет, а прога не видит. Если запустить Photoshop x32. То видит.

[Человек_Борща]

нужно получить PE Header и Image Header процесса, ьам есть соотв. флаг указывающий на разрядность запущенного процсесса.

[N0iD]

Спасибо разобрался, мне нужно было просто узнать запущенно ли приложение. Просто то что использовал, не воспринимало x64 программы. На гуглил иной вариант.

[GunSmoker]

(ну, правильно, использовали динозавра ToolHelp, который отмер этак лет 15 назад, чего ещё ожидали?)

[Человек_Борща]

GunSmoker, есть что-то по новее?

[GunSmoker]

PS API, конечно же.

[FaTaL]

Сообщение от N0iD

Спасибо разобрался, мне нужно было просто узнать запущенно ли приложение. Просто то что использовал, не воспринимало x64 программы. На гуглил иной вариант.

Выложи сюда плиз своё решение проблемы. Не одному Вам интересно

[Rock-n-Rolla]

Сообщение от N0iD

))) Вы же знаете о чем идет речь, например впишем туда 'Photoshop.exe' в заместо x64.exe и запустим Photoshop x64. В процессах он будет, а прога не видит. Если запустить Photoshop x32. То видит.

что за бред? имя процесса совершенно не зависит от его битности