|
Registriert seit: 12. Jun 2003
107 Beiträge
Delphi 7 Enterprise
|
Re: Parameter für CreateFile
29. Sep 2009, 16:50
Bis jetzt hatte ich das immer so gemacht - finde das aber nicht so cool.
Ich dachte es gibt was "Besseres"
Delphi-Quellcode:
function _DriveWriteTest(DateiName:string):boolean;
var
F : file;
begin
AssignFile(F,DateiName);
{$I-}
rewrite(F);
CloseFile(F);
erase(F);
{$I+}
result := ioResult > 0;
end;
Das ist old Data-Becker (Pascal)*g
Wenn man nicht weiß was man sucht, findet man auch mit Google nichts.
Bevor ich hier eine Frage stelle, wurde Google vorher befragt. Hinweise dieser Art kann man sich schenken. Im übrigen muss mir niemand antworten.
|