Ich will mit Hilfe der Funktion "GetDiskFreeSpaceEx" den freien Festplattenspeicherplatz ermitteln.
das ganze sieht so aus:
Code: Alles auswählen
uses
Classes, SysUtils, FileUtil, LResources, LCLType, Forms, Controls, Graphics,
Dialogs, EditBtn, FileCtrl, ComCtrls, StdCtrls, ExtCtrls;
function DiskInfo(dir: String; var total, avail: Int64): Boolean;
begin
dir := IncludeTrailingPathDelimiter(ExtractFilePath(dir));
Result := (GetDiskFreeSpaceEx(PChar(dir), avail, total, nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TotalSpace, AvailSpace: Int64;
begin
DiskInfo('D:\', TotalSpace, AvailSpace);
ShowMessage(Format(
'Gesamt: %.0n Bytes, Frei: %.0n Bytes',
[1.0 * TotalSpace,
1.0 * AvailSpace]));
end;
Wenn ich versuche das ganze zu kompilieren erhalte ich folgende Fehlermeldung: unit1.pas(45,32) Error: Identifier not found "GetDiskFreeSpaceEx".
Google spuckt mir jedoch nur Themen zu Delphi aus. Hab ich eine Chance das ganze mit Lazarus zum laufen zu bringen?
Vielen Dank!
Verein
Links
