Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: DirectoryExists Laufwerk vorhanden aber kein Datenträger
5. Feb 2009, 16:16
Genau, und anschließend wiederherstellen. Das sähe dann so aus:
Delphi-Quellcode:
var ErrMode: Cardinal;
begin
ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
if DirectoryExists('K:\test') then
ShowMessage('Verz. vorhanden!')
else
ShowMessage('Verz. nicht vorhanden!');
SetErrorMode(ErrMode);
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|