Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Gauge Fetsplattenspeicher darstellen?


foxy - Fr 17.01.03 15:30
Titel: Gauge Fetsplattenspeicher darstellen?
guden all
frage wie kann ich in einer gauge meine Festplattenplatz anzeigen, also das anzeigen ist denke ich nicht das problem, ich meine damit, das wenn mehr auf die platte kommt, das der balken sich dann auch sofort vergrössert

um es genau zu sagen, hab eine DB, und wenn ich einträge hinzufüge oder lösche, will ich wissen, wieviel speicherplatz ich och habe kann mir da einer helfen?


torstenheinze - Fr 17.01.03 15:49


Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.Button1Click(Sender: TObject);
var freeCaller, total: Int64;
begin
  GetDiskFreeSpaceEx('C:\', freeCaller, total, nil);
  label1.caption:='Freier Speicher: '+IntToStr(freeCaller)+' Bytes';
  label2.caption:='Gesamter Speicher: '+IntToStr(total)+' Bytes';
end;

das mit der progressbar begommst du ja auch selber hin

Moderiert von user profile iconTino: Code-Tags hinzugefügt.


foxy - Fr 17.01.03 15:52

japp thx ... hatte es scho ;)
aber dennoch danke


torstenheinze - Fr 17.01.03 15:57

jo, gern geschehen, obwohl du es ja schon hattest... :wink: