Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
29. Okt 2021
Hi zusammen
Ich habe hier ein Beispiel für GetDiskFreeSpaceEx gefunden:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
23. Okt 2021
Hi zusammen
In Sachen GetDiskFreeSpaceEx hab ich noch ganz was interessantes gefunden
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
23. Okt 2021
Hi zusammen
Inzwischen hab ich auch noch weiter gesucht, auch in Sachen Bit&Byte-Umrechnung und versucht, mit der gefundenen Demo auf 'einen grünen Zweig' zu kommen. Was ich dabei gefunden habe: GetDiskFreeSpace ist offenbar veraltet. Zumindest hab ich im Embarcadero-Wikki vergebens danach gesucht. Hingegen hab ich eine Bool-Funktion GetDiskFreeSpaceEx gefunden, allerdings bisher nicht...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
22. Okt 2021
Hi Delphi.Narium
Ich geh mal davon aus, dass du dich auf die obige Abbildung des Programms und die Auswahl von "D:\OfficeDisk" beziehst - Besagtes Volume ist eine Partition mit einer Gesamtgrösse von 24.9 GB und befindet sich eigentlich auf "F:\DatabaseDisk" (2TB); Eine weitere Partition ist "E:\Developerdisk" mit einer Grösse von 149 GB, ebenfalls auf "F:\".
@himitsu:
* das Laufwerk
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
22. Okt 2021
Hi zusammen
Vor einiger Zeit hab ich auch das noch gefunden und hab mir die Demo dazu gleich mal gedownloaded. Die Grössenangaben zu einer ausgewählten Disk stimmen allerdings nicht im entferntesten. Nachvollziehen, wieso das so ist, konnte ich bislang nicht.
Im Moment komme ich jedenfalls keinen Schritt weiter.
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
21. Okt 2021
Hi himitsu
Die Seite des Emba-Wikkis spricht aber von einer Laufwerksnummer, nicht vom Laufwerksbuchstaben. Und eigentlich sollte klar sein, dass eine Partition keine eigene Laufwerksnummer haben kann.
Sorry, das ist nicht mein Code, sondern der stammt von hier. Ich habe ihn lediglich noch etwas nach dieser Vorlage ergänzt.
Von welchem Set? Oder von welchem Array? Sicher vom...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
21. Okt 2021
Hi zusammen
Mit folgendem Code (/von hier) ermittle ich meine Laufwerke und deren freien Speicher:
function TPopUpWindow.DedectBiggestFreeSpace: Char;
var i :integer; PopupWindow: TPopupWindow;
begin
PopupWindow := TPopupWindow.Create(Self);
PopupWindow.PopupMode := pmExplicit;