Cуществует ли диск в системе?
Falk0ner, вс, 06/07/2008 - 15:34.
function DriveExists (Drive: Byte) : boolean;
begin
Result := Boolean (GetLogicalDrives and (1 shl Drive));
end;
procedure TForm1.Button1Click(Sender : TObject);
var Drive : byte;
begin
for Drive := 0 to 25 do
If DriveExists (Drive) then
begin
ListBox1.Items.Add (Chr(Drive+$41));
end;
end;
begin
Result := Boolean (GetLogicalDrives and (1 shl Drive));
end;
procedure TForm1.Button1Click(Sender : TObject);
var Drive : byte;
begin
for Drive := 0 to 25 do
If DriveExists (Drive) then
begin
ListBox1.Items.Add (Chr(Drive+$41));
end;
end;
Автор Serious
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий