Как из своего пpиложения опpеделить загpузку pесуpсов GDI и USER
|
Подходит фидошник к ларьку с надписью "ПИРОЖКИ".
- Мне два сабжа пожалуйста.
|
{$APPTYPE CONSOLE}
// индикатоp pесуpсов
program res;
function MyGetFreeSystemResources32(Id: integer): integer;
stdcall; external 'rsrc32' name '[email protected]';
const
rSystem = 0;
rGDI = 1;
rUSER = 2;
begin
writeln('free resources');
writeln('System:', MyGetFreeSystemResources32(rSystem), '%');
writeln('GDI:', MyGetFreeSystemResources32(rGDI), '%');
writeln('USER:', MyGetFreeSystemResources32(rUSER), '%');
end.
|
Далее: Как локализовать (русифицировать) ресурсы какого-либо пакета (runtime package) »»