"Ingolf" <dont_spam_ingolf@excite.com> wrote in message
news:40ef0148$0$316$edfadb0f@dread16.news.tele.dk...
> Hej
>
> Argh.. jeg giver op.. kan intet finde via google... prøver lykken her
>
> Jeg har brug for en stump kode der kan vise mig hvormeget hukommelse en
> anden process benytter. Lige de værdier 'Task Manger' giver mig; Mem
usage,
> Peak Mem usage, VM usage (Under WinXp)..
>
> Indtil videre har jeg følgende der funker på egen process:
>
> ----
> uses psAPI;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> pmc: PPROCESS_MEMORY_COUNTERS;
> cb: Integer;
> begin
> cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
> GetMem(pmc, cb);
> pmc^.cb := cb;
> if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
> Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'
> else
> Label1.Caption := 'Unable to retrieve memory usage structure';
>
> FreeMem(pmc);
> end;
> ----
>
> Men hvordan ændrer jeg 'GetCurrentProcess ud til en andens process ID?
>
> Kan jeg bruge EnumWindows funktionen til at hente et ID og hvordan? Har
> rodet med OpenProcess, men fik det aldrig til at virke.. :(
>
Tror jeg en fandt løsning her:
http://www.swissdelphicenter.ch/torry/showcode.php?id=2112
Alle forslag er stadig velkomne ;)