Определить возможность записи на диск [HDD,USB FLash,other]

[Lime]

Доброго времени суток !

Собственно вопрос в названии .
Мой вариант такой :

function DriveRTW(DriveLetter:Char):Boolean ;
var tf:TextFile;
RndFName:string;
begin
RndFName := RndStr(8);//Рандомное имя
try
AssignFile(tf,DriveLetter + ':\' + RndFName);
{$I-}
Rewrite(tf); // создать новый файл
{$I+}
if IOResult <> 0 then // ошибка создания файла
Result := False else Result := True;
finally
{$I-}
CloseFile(tf); // закрыть файл
{$I+}
//ShowMessage('See File '+RndFName+' Now on ' + DriveLetter + ':\');
DeleteFile(PChar(DriveLetter + ':\' + RndFName));//Удаляем
end;
end;

Может есть чтонибудь "элегантнее" ?

Спасибо

[mihali4]

А вы объясните смысл вашей процедуры, создающей и тут же уничтожающей файл... Это что - "затирка" ? Не похоже...

[Lime]

Смысл в том чтобы проверить возможна ли запись на данный диск файла(лов).
Поясню , у меня есть пересносной HDD и Флешка. На обоих есть замечательная функция - защита от записи(включается и отключается кнопкой на устройстве).

Таким образом я пытаюсь определить возможно ли нормально работать с "устройством".А наличие/отстутствие ошибки при создании файла как-раз и указывает на возможность записи на диск. Ну и убираю за собой.

[Alex Cones]

Теоретически возможна такая ситуация, когда вы его запишете, а стереть не сможете...

[Neeter]

Возможно, вам нужно это и это.

[Lime]

Линк 1 я использую предварительно , для начала нужно узнать есть ли диск в устройстве ( если это Флоп или СD ) а уже потом проверяю защиту от записи.

Принципиально флешка/жд висят в системе только при подключении.

В принципе Алгоритм такой :
Получаю список дисков в системе
Пробегаюсь по ним , определяю тип
Проверяю на присутствие диска (на всякий пожарный )
Проверяю на защиту от записи
Работаю.

Естественно всё это может пригодится на будущее , и я пытаюсь сделать универсальным. У меня на данный момент вс необходимое работает , а тему я создал в поисках более "элегантного" решения ...

И ещё раз напишу , пытаюсь опредлелть : Возможна ли запись на диск. ( Под проверку попадают только устройства с диском )