Plads på C

GetDiskFreeSpaceEx henter både free og total

til skærmopløsning:

var
  DevMode:_devicemodea;
  ResX, ResY, CDepth: LongInt;
begin
  EnumDisplaySettings( nil, Cardinal(-1),  DevMode);
  ResX := DevMode.dmPelsWidth;
  ResY := DevMode.dmPelsHeight;
  CDepth := DevMode.dmBitsPerPel;

  Label1.Caption := IntToStr(ResX) + 'x' + IntToStr(Y) + ' (' + IntToStr(CDepth) + 'bit)';
end;

Det er slet ikke så svært...DiskFree finder fri plads...

GetDiskSize(3); // finder størrelsen på C-drevet

Og når du skal finde brugt plads er det jo bare at regne det ud...

DiskSize(3)-DiskFree(3); // finder brugt plads på C-drevet

Til opløsningen kan man både bruge overstående eksempel eller Delphi's funktioner, hvis man bare skal have størrelsen:

Label1.Caption := VarToStr(Screen.Width)+'x'+VarToStr(Screen.Height);

Helt sikkert!

Tak for hjælpen :)