[VitalyAkiev]

Как проверить включён ли калькулятор?

[Admin]

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

Как проверить включён ли калькулятор?

Например узнать, запущен ли calc.exe.

[Rokuell]

В список используемых модулей добавь TLHelp32:

Код:

function CheckRun(name:string):boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
 Result := False;

 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

 while integer(ContinueLoop) <> 0 do
  begin
   if ExtractFileName(FProcessEntry32.szExeFile) = name then
    begin
     Result := true;
     Break;
    end;
   ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
 CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckRun('calc.exe') then ShowMessage('Запущен')
 else ShowMessage('Не запущен');
end;

[VitalyAkiev]

О, большое спасибо!!!