Entwickler-Ecke

Windows API - Prüfen ob ein Prozess läuft (freepascal)


F34r0fTh3D4rk - So 15.02.09 13:07
Titel: Prüfen ob ein Prozess läuft (freepascal)
Hallo,

Ich möchte in freepascal herausfinden, ob ein bestimmter Prozess gerade läuft. Ich habe einige Codes dazu gefunden, allerdings scheint freepascal selbst enumprocesses() nicht zu kennen. Gibt es Alternativen oder muss ich nur eine spezielle unit einbinden? (windows ist eingebunden)

Vielen Dank,

mfg


jaenicke - So 15.02.09 16:29
In Delphi ist das die Unit PsApi.


F34r0fTh3D4rk - So 15.02.09 20:20
Die kennt fpc leider nicht :(


jaenicke - So 15.02.09 20:27
Dann kannst du die Methode ja selbst deklarieren, entweder dynamisch wie in den JEDI API-Übersetzungen oder fest mit external.

Die entsprechende Datei der JEDIs siehst du hier:
http://vvv.truls.org/pascal/UNITS.W32/Psapi.pas
Die kompletten Übersetzungen findest du hier:
http://jedi-apilib.sourceforge.net/


F34r0fTh3D4rk - Mo 16.02.09 14:44
Danke, hiermit gehts:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
const
  Psapi = 'PSAPI.dll';

function EnumProcesses(lpidProcess: LPDWORD; cb: DWORD; var cbNeeded: DWORD): BOOL; stdcall; external Psapi name 'EnumProcesses';
function EnumProcessModules(hProcess: THandle; lphModule: LPDWORD; cb: DWORD; var lpcbNeeded: DWORD): BOOL; stdcall; external Psapi name 'EnumProcessModules';
function GetModuleFileNameEx(hProcess: THandle; hModule: HMODULE; lpFilename: PChar; nSize: DWORD): DWORD; stdcall; external Psapi name 'GetModuleFileNameExA';
:D

mfg


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!