Как использовать CreateFile для доступа к физическому диску?

Question

Я спросил на форуме программирования Лазаря how to open a physical disk. Я хочу разрешить пользователю выбирать физические диски из своей системы, когда они нажимают кнопку «Выбрать диск». В Stack Overflow есть несколько примеров, которые похожи, но не совсем одинаковы (например, Delphi - Using DeviceIoControl passing IOCTL_DISK_GET_LENGTH_INFO to get flash media physical size (Not Partition)).

Есть много C и C++ примеры использования CreateFile (in the documentation и особенно an example of calling DeviceIoControl), но я не могу найти для Free Pascal или Delphi, и я не достаточно хорош еще работать, как это сделать.

Может ли кто-нибудь указать мне в направлении ссылки, которая объясняет это, или, еще лучше, фактический пример, написанный на Delphi или Free Pascal? Может ли кто-нибудь помочь мне понять, как его использовать?

Answer 1

Ваш пример C имеет следующий код:

/* LPWSTR wszPath */ 

hDevice = CreateFileW(wszPath,   // drive to open 
         0,    // no access to the drive 
         FILE_SHARE_READ | // share mode 
         FILE_SHARE_WRITE, 
         NULL,    // default security attributes 
         OPEN_EXISTING, // disposition 
         0,    // file attributes 
         NULL);   // do not copy file attributes 

Конвертирование, что вызов функции Delphi просто вопрос изменения синтаксиса:

// wszPath: PWideChar 

hDevice := CreateFileW(wszPath, 
         0, 
         FILE_SHARE_READ or 
         FILE_SHARE_WRITE, 
         nil, 
         OPEN_EXISTING, 
         0, 
         0); 

То есть, использовать := для назначения, or для объединение бит-бит, nil для нулевых указателей и 0 для пустых файлов.

Эта функция вызывается с этим:

#define wszDrive L"\\\\.\\PhysicalDrive0" 

DISK_GEOMETRY pdg = { 0 }; // disk drive geometry structure 

bResult = GetDriveGeometry (wszDrive, &pdg); 

Опять же, просто изменить синтаксис Delphi:

const wszDrive = '\\.\PhysicalDrive0'; 

var pdg: DISK_GEOMETRY; 

ZeroMemory(@pdg, SizeOf(pdg)); 
bResult := GetDriveGeometry(wszDrive, @pdg); 

Delphi нетипизированным строковые константы автоматически независимо от типа они должны быть в контексте, так нам не нужен префикс L, например, C. Обратные косые черты не являются особыми в Delphi, поэтому их не нужно избегать. Delphi не позволяет инициализировать локальные переменные в декларации, поэтому мы используем ZeroMemory, чтобы установить все в ноль. Используйте @ вместо &, чтобы получить указатель на переменную.