OpenProcess работает не правильно

[lollollollol]

Моя задача - определить по PID, жив ли процесс

Написал небольшую функцию

function CheckPricess(PID:integer):boolean;
var
  hProcess:Cardinal;
begin
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, PID);
  if (hProcess>0) then begin
    CloseHandle(hProcess);
    result:=True;
  end else begin
    result:=False;
  end;
end;

Но даже если завершить процесс, результат True!

В чём проблема?

Предварительно контролируемый процесс создаётся так:

        CreateProcess(nil,Pchar('"'+F3+'" '+IntToStr(info)),nil,nil,False,0,nil,nil,si,pi);
        f3_pid:=pi.dwProcessId;

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

Моя задача - определить по PID, жив ли процесс

Очень странное использование CreateProcess, т.к. он для это не предназначен совсем, никак не подходит.

Держите:
Используется PsAPI

function GetProcessImageFileName(hProcess: DWORD; lpImageFileName: LPTSTR; nSize: DWORD)
  : DWORD; stdcall; external 'PSAPI.dll' name 'GetProcessImageFileNameW';
function GetProcessPath(aPID: Cardinal): string;
function ProcessExists(aName: string; out aFullPath: string; out aPID: Cardinal)
  : Boolean; overload;

...
function ProcessExists(aName: string; out aFullPath: string; out aPID: Cardinal): Boolean;
var
  aProcess: array [0 .. 1024] of DWORD;
  BytesNum: DWORD;
  i, iCount: integer;
  sPath: string;
begin
  Result := False;
  if EnumProcesses(@aProcess, SizeOf(aProcess), BytesNum) then
  begin
    iCount := BytesNum div SizeOf(DWORD);

    for i := 0 to iCount do
    begin
      sPath := GetProcessPath(aProcess[i]);
      if (aProcess[i] <> ERROR_SUCCESS) then
      begin
        if (CompareStr(Trim(LowerCase(aName)), Trim(LowerCase(ExtractFileName(sPath)))
          ) = 0) then
        begin
          Result := True;
          aPID := aProcess[i];
          aFullPath := sPath;
          Break;
        end;

      end;
    end;
  end;
end;

function GetProcessPath(aPID: Cardinal): string;
var
  cPath: array [0 .. MAX_PATH] of Char;
  hProcess: THandle;
begin
  Result := '';
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, aPID);
  try
    if (hProcess > 0) then
    begin
      if GetProcessImageFileName(hProcess, @cPath, SizeOf(cPath)) <> 0 then
        Result := DevicePathToWin32Path(cPath);
    end;
  finally
    CloseHandle(hProcess)
  end;
end;

Первая функция возвращает путь к образу процесса и его PID, если результат функции True.
Вторая функция, по PID получает путь к образу процесса.

[lollollollol]

function GetProcessPath(aPID: Cardinal): string;
var
  cPath: array [0 .. MAX_PATH] of Char;
  hProcess: THandle;
begin
  Result := '';
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, aPID);
  try
    if (hProcess > 0) then
    begin
      if GetProcessImageFileName(hProcess, @cPath, SizeOf(cPath)) <> 0 then
        Result := DevicePathToWin32Path(cPath);
    end;
  finally
    CloseHandle(hProcess)
  end;
end;

Заметь, вторая функция приведённая тобой почти тоже самое.
Я уже второй час не могу понять почему попытка открыть процесс которого УЖЕ нет завершается успехом?

Т.е. когда процесса небыло вовсе, OpenProcess возвращала False.
Когда создал процесс, OpenProcess возвращает True,
И после завершения оно по прежнему возвращает True, но процесса уже не существует!
очень хотелось бы разобраться в причинах

[lollollollol]

Очень странное использование CreateProcess, т.к. он для это не предназначен совсем, никак не подходит.

CreateProcess? я им создаю процесс, а OpenProcess проверяю

[lollollollol]

нашел функцию DevicePathToWin32Path,
[Error] Undeclared identifier: 'posex'
[Error] Undeclared identifier: 'sametext'
А откуда это они?

[lollollollol]

как определить жив ли процесс зная PID?

[asmprog]

если правильно понял, то кроме PID есть еще hProcess(или hProcess можно по PID взять).

var
  Form1: TForm1;
  pPI: TProcessInformation;
  si : _STARTUPINFOA;
...
procedure TForm1.FormCreate(Sender: TObject);
begin

  ZeroMemory(@si,SizeOf(_STARTUPINFOA));
  si.cb := SizeOf(_STARTUPINFOA);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOW;

  CreateProcess(nil,PChar('winmine.exe'),nil,nil,False,0,nil,Pchar(ExtractFilePath(Application.ExeName)),si,pPI);
  tmr1.Enabled := True;

end;


procedure TForm1.tmr1Timer(Sender: TObject);
var
  state : Cardinal;
begin

  state := WaitForSingleObject(pPI.hProcess,200);

    if state = WAIT_OBJECT_0 then

        lbl1.Caption := 'Process terminated'

    else if state = WAIT_TIMEOUT then

      lbl1.Caption := 'Process alive'

    else
      lbl1.Caption := 'Some error';

end;

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

как определить жив ли процесс зная PID?

Через OpenProcess открыть процесс через PID и проверить условие hProcess = 0, если да, то процесс не существует с таким PID.

[lollollollol]

ОгА, но мой первый!!! пост, я так и делаю!!! Оно возвращает хендл процесса который уже не существует

  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, PID);
  if (hProcess>0) then begin
    CloseHandle(hProcess);
    result:=True;
  end else begin
    result:=False;
  end;

[Пепел Феникса]

если вы создавали процесс сами то у вас есть его хендл через него можно все узнать. в том числе код завершения или Still alive.
а процесс существует пока открыт хоть одип хендл на него.