Forum: Object-Pascal / Delphi-Language
Delphi
by jaenicke,
5. Apr 2009
Delphi-Strings enthalten auch ein Nullzeichen, allerdings nicht ale letztes Zeichen sondern als Zeichen dahinter. Genau wie die Längenangabe 4 Byte vor dem Start des Strings und dem Referenzzähler nochmal 4 Byte davor ist das nur nicht direkt für den Programmierer sichtbar, macht aber die Verwendung als PChar einfach.
Forum: Object-Pascal / Delphi-Language
Delphi
by jaenicke,
5. Apr 2009
Hier ists zwar auch überhaupt nicht schön geschrieben, funktioniert aber:
http://www.swissdelphicenter.ch/torry/showcode.php?id=654
// EDIT:
Und wie wäre es so:procedure TfrmMain.Button1Click(Sender: TObject);
function GetFreeSpace(DriveLetter: Char; var TotalSpace: Int64): Int64;
begin
GetDiskFreeSpaceEx(PChar(DriveLetter + ':\'), Result, TotalSpace, nil);
end;