Отобразить имеющиеся диски

[Prowler]

Нужно выяснить есть ли в системе диск D:. Вот код с Delphi world:


procedure List_Drives;


var
r:LongWord;
Drives: array[0..20] of char;
pDrive: PChar;
begin
drivelist:=tlist.Create;
r:= GetLogicalDriveStrings(SizeOf(Drive s), Drives);
if r = 0 then Exit;
if r > SizeOf(Drives) then
raise Exception.Create(SysErrorMessage(ER ROR_OUTOFMEMORY));

pDrive := Drives; //Вот тут не понятно что мы получаем в pDrive

while pDrive^ <> #0 do
begin
if GetDriveType(pDrive) = DRIVE_FIXED then

Inc(pDrive, 4); //И почему здесь на четыре увеличиваем?
end;
end;

Посмотрите комментарии.

[rpy3uH]

попробуй так

h:=CreateFile('\\.\D:',GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
  if h=INVALID_HANDLE_VALUE then
   ShowMessage('net');
  CloseHandle(h);

у меня почему то не срабатывает с диском E: (у меня HDD разбит 4 диска)
но всё равно попробуй

[Prowler]

Всё-таки хотелось бы услышать ответ на свой вопрос, ну или хотябы предположение. Неужели никто не знает!?

[mihali4]

Всё-таки хотелось бы услышать ответ на свой вопрос

Если смотреть на заголовок темы, вопрос звучит так:

Отобразить имеющиеся диски

Для реализации выбран какой-то сложный, с ненужными наворотами способ...
Делается все гораздо проще:
procedure TForm1.Button1Click(Sender: TObject);
var ld : DWORD;
i : integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;

[Prowler]

Спасибо! Этот способ, беспорно проще!