Hello PAV, Something like this should do the work:
function TestIfWriteable(Drive: PChar): boolean;
var
Name: array[0..255] of char;
begin
// Drive should have following format: 'a:\'
Result := GetTempFileName(Drive, '', 0, Name) <> 0;
if Result then
DeleteFile(Name);
end;
---
Rgds, Wilfried
http://www.mestdagh.biz
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi-talk
