Moin TPercon,
die Funktion gibt's (zumindest offiziell) erst sein XP SP1, wäre vielleicht ein bisschen viel verlangt, wenn D5 das kennen soll.
Solange das Programm nur unter XP SP1 und höher laufen soll kannst Du Dir die Funktion so importieren.
function GetProcessHandleCount(const hProcess : DWORD;const pdwHandleCount : PDWORD) : longbool; stdcall; external 'kernel32.dll';
und z.B. so aufrufen
Delphi-Quellcode:
var
dwCount : DWORD;
begin
if GetProcessHandleCount(GetCurrentProcessId,@dwCount) then ShowMessage('Prozesshandles: '+IntToStr(dwCount));
end;
Ausprobieren kann ich das mangels XP allerdings nicht.