[pascal]
uses
psAPI;

function GetProcessMemorySize(sProcessName: string; var cMemSize: Cardinal): boolean;
var
hWndHandle, hProcID, hTmpHdn : HWND;
pPMC: PPROCESS_MEMORY_COUNTERS;
cSize: Cardinal;
begin
Result := False;

hWndHandle := FindWindow(nil, PChar(sProcessName));
if hWndHandle = 0 then exit;

cSize := SizeOf(PROCESS_MEMORY_COUNTERS);
GetMem(pPMC, cSize);
pPMC^.cb := cSize;
GetWindowThreadProcessId(hWndHandle, @hProcID);

hTmpHdn := OpenProcess(PROCESS_ALL_ACCESS, False, hProcID);
if GetProcessMemoryInfo(hTmpHdn, pPMC, cSize) then
cMemSize := pPMC^.WorkingSetSize
else
cMemSize := 0;

FreeMem(pPMC);
Result := True;
end;
[/pascal]

usage:

[pascal]
var
cSize: Cardinal;
begin
if GetProcessMemorySize('softwarename', cSize) then
[/pascal]

-Meka][Meka