API - Disk Access / Какая API ?

[EvilCoder]

Какая API мне поможет? обязательно из kernel32

Нужно что то вроде.

If DiskRWAccess("c:\") = True ?

Тупой вопрос.. но решить что то не получается.

[Wild VB Code for Food]

EvilCoder
А самому написать? Тебе надо проверить доступен ли диск на запись/чтение. Ну вот. Напиши функцию которая сначала создаёт файл (запись) пишет в него (запись) потом читает его и удаляет.

Придумал примерно так:

Код: Выделить всё


Function AccessRW(disk as string) as boolean
Dim buffer as string
On Error Goto Err
open disk & "\tmp.check" for random as #1 'создаём

buffer =Time$
put #1,,buffer
get #1,,buffer 'неважно

close #1

kill disk & "\tmp.check"

if err.number = 0 then
AccessRW = true
End if

exit Function

err:
AccessRW = false
End function

Функция конечно прмитивная, но работает

[EvilCoder]

Нет этот вариант не подойдет... по причине:

1. Мне нужно все на чистом API.
2. В случае с диском А, выходит сообщение Retry и т.д (как и в моем варианте с функцией GetTempFileNameA-создает темп файл )

[Wild VB Code for Food]

EvilCoder
а под АПИ переписать нельзя?
OpenFile / WriteFile / ReadFile / DeleteFile

хм....

попробуй DeviceIoControl с кодом операции IOCTL_DISK_PERFORMANCE, получишь структуру DISK_PERFORMANCE. подробности в MSDN

[EvilCoder]

Какие контролы.... мне просто одна API нужна и обязательно из kernel32...

В случае с OpenFile - надо знать что открывать.. и т.д.
Можно конечно с CreateFile а потом WriteFile и посмотреть результат. Хотел узнать более красивое решение...

[EvilCoder]

И вообще, к VB это никакого отношения не имеет. Иначе я бы в этом разделе не задавал вопрос...

[ANDLL]

Какие контролы....

Вот и мне интересно, КАКИЕ ты тут контрлы углядел? DeviceIOControl - это функция WinAPI.
Ну еще есть GetVolumeInformation, которая то же может не работать, если доступ к диску закрыт

В случае с OpenFile - надо знать что открывать.. и т.д.
Можно конечно с CreateFile

Еще, к сведенью, преведу цитату из MSDN, про описание OpenFile:

Note This function is provided only for compatibility with 16-bit versions of Windows. New applications should use the CreateFile function