Hi , ich hab ja schon mal was gepostet
und ja jetzt , wen ich diesen code benutze
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm3.Button4Click(Sender: TObject);
var freeCaller, total: Int64;
begin
if (GetDiskFreeSpaceEx('C:\', freeCaller, total, nil)) then
label1.caption:='Freier Speicher: '+IntToStr(freeCaller)+' Bytes';
label2.caption:='Gesamter Speicher: '+IntToStr(total)+' Bytes';
begin
label1.caption:='Kein Datenträger C Vorhanden !' ;
label2.caption:='Kein Datenträger C Vorhanden !' ;
end;
end; |
dan sagt der IMMER die Fehlermeldung , also dass es den Dtenträger nicht gibt. Wenn ich jedoch diesen Code benutze :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm3.Button4Click(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; |
dan sagt der mir den speicherplatz , wen ich jedoch einen datenträger nehme den ich nicht hab , sagt der mir eine Zahl mit über 100 TB ^^ (umgerechnet)
wie soll ich beim ersten beispiel den code machen , dass er wen es den Dtaneträger C gibt mir den Speicherplatz sagt , und wen es keinen gibt die Fehlermeldung ? ist für Borland Delphi 7
Narses