Delphi-Quellcode:
type
TProcessEntry32 = packed record
iSize,
iUsage,
iProcessID,
iDefaultHeapId,
iModuleId,
iThreads,
iParentProcessId,
iPriClassBase,
iFlags : Integer;
aExeFile: array[0..MAX_PATH] of Char;
end;
function CreateToolHelpSnapShot(lFlags, lProcessId: Longint): Longint; stdcall;
function ProcessFirst(hSnapshot: longint; var uProcess: TProcessEntry32): Longint; stdcall;
function ProcessNext(hSnapshot: Longint; var uProcess: TProcessEntry32): Longint; stdcall;
procedure CloseHandle(hPass: Longint); StdCall;
1. Was hat meine Variable ExeName damit zu tun? Ich spreche ja von rProcess.aExeName!
2. Sowas kommt z.b.: Viereck(Symbol meine ich), Viereck, Viereck, Viereck, . e x e, usw.