поиск процесса

[megostudent]

uses
tlhelp32;
//поиск процесса
function processExists(exeFileName: string): Boolean;
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(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if processExists('game.exe') then
showmessage('Доигрался =)');
end;

но беда в том что процесс находится четко на 32 битной системе, а на 64 сразу ошибку выбивает, как сделать и для 64битки?

[Sibedir]

Может типа этого

{$ifdef cpu32}
uses
  tlhelp32;

function processExists(exeFileName: string): Boolean;
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(ExeFileName)) or
                               (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName)) then begin
      Result := True;
      Break;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;
{$endif}

{$ifdef cpu64} // ДАЛЕЕ ВЕСЬМА УСЛОВНО
uses
  tlhelp64;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry64: TProcessEntry64;
begin
  FSnapshotHandle := CreateToolhelp64Snapshot(TH64CS_SNAPPROCESS, 0);
  FProcessEntry64.dwSize := SizeOf(FProcessEntry64);
  ContinueLoop := Process64First(FSnapshotHandle, FProcessEntry64);
  Result := False;
  while Integer(ContinueLoop) <> 0 do begin
    if (UpperCase(ExtractFileName(FProcessEntry64.szExeFile)) = UpperCase(ExeFileName)) or
                               (UpperCase(FProcessEntry64.szExeFile) = UpperCase(ExeFileName)) then begin
      Result := True;
      Break;
    end;
    ContinueLoop := Process64Next(FSnapshotHandle, FProcessEntry64);
  end;
  CloseHandle(FSnapshotHandle);
end;
{$endif}

Если нужно в runtime, то нужно сначало определить разрядность системы далее вызвать соответствующую функцию.

[megostudent]

тоже думал поменять с 32 на 64 в коде) но не придал этому значения, решил что все серьезнее) попробую когда высплюсь)

[megostudent]

tlhelp64;

не понимает этого делфи(

[Sibedir]

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

{$ifdef cpu64} // ДАЛЕЕ ВЕСЬМА УСЛОВНО
uses
  tlhelp64;

Это всё как бы. Число '32' в имени процедур указывает на разрядность системы в которой она работает. Для другой разрядности должна быть и соответствующая процедура. Если ее нет, то либо нужно поискать аналог, либо посмотреть код процедуры32 и исправить его содержимое под 64, либо искать иной способ.

[megostudent]

Решение проблемы по поиску процеса в 64бит системе не нашел. Нашел только способ запуска 32битной программы на 64бит системе, это создание ярлыка проги и запуск ее батником

@echo off 
start %windir%\explorer.exe d:\program.lnk 
exit

, но думаю это не поможет. Пришла мысль в голову поиска активного окна и определение его названия, и если название name_game , то делаем свое действие. Как думаете это будет реально на 64 или дальше искать способы чека процесса?