{$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.
|