Советы по Delphi
Как из своего пpиложения опpеделить загpузку pесуpсов GDI и USER?
Nomadic предлагает следующий код:
|
{$APPTYPE CONSOLE} // индикатоp pесуpсов program res; function MyGetFreeSystemResources32(Id:integer):integer; stdcall; external 'rsrc32' name '_MyGetFreeSystemResources32@4'; const rSystem=0; rGDI=1; rUSER=2; begin writeln('free resources'); writeln('System:',MyGetFreeSystemResources32(rSystem),'%'); writeln('GDI:',MyGetFreeSystemResources32(rGDI),'%'); writeln('USER:',MyGetFreeSystemResources32(rUSER),'%'); end. |
[001696]
