Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как определить тип логического диска?

Delphi , ОС и Железо , Диски

Как определить тип логического диска?

Автор: Александр (Rouse_) Багель

Взято из http://forum.sources.ru

Статья Как определить тип логического диска? раздела ОС и Железо Диски может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Диски ::


Code:

unit Unit1;
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
NameSize = 4;
VolumeCount = 26;
TotalSize = NameSize * VolumeCount;
Report = 'Volume: %s %s';
var
Buff, Volume: String;
lpQuery: array [0..MAXCHAR - 1] of Char;
I, Count: Integer;
begin
SetLength(Buff, TotalSize);
Count := GetLogicalDriveStrings(TotalSize, @Buff[1]) div NameSize;
if Count = 0 then
   Memo1.Lines.Add(SysErrorMessage(GetLastError))
else
   for I := 0 to Count - 1 do
   begin
     Volume := PChar(@Buff[(I * NameSize) + 1]);
     case GetDriveType(PChar(Volume)) of
       DRIVE_UNKNOWN: Memo1.Lines.Add(Format(Report, [Volume,
         'The drive type cannot be determined.']));
       DRIVE_NO_ROOT_DIR: Memo1.Lines.Add(Format(Report, [Volume,
         'The root path is invalid. For example, no volume is mounted at the path.']));
       DRIVE_REMOVABLE:
       begin
         Volume[3] := #0;
         QueryDosDevice(PChar(Volume), @lpQuery[0], MAXCHAR);
         Volume[3] := '\';
         if String(lpQuery) = '\Device\Floppy0' then
           Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Floppy disk A:.']))
         else
           if String(lpQuery) = '\Device\Floppy1' then
             Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Floppy disk B:.']))
           else
             Memo1.Lines.Add(Format(Report, [Volume, 'The drive is a Flash Drive.']));
       end;
       DRIVE_FIXED:
       begin
         Volume[3] := #0;
         QueryDosDevice(PChar(Volume), @lpQuery[0], MAXCHAR);
         Volume[3] := '\';
         if Copy(String(lpQuery), 1, 22)  = '\Device\HarddiskVolume' then
           Memo1.Lines.Add(Format(Report, [Volume,
             'The disk cannot be removed from the drive.']))
         else
           Memo1.Lines.Add(Format(Report, [Volume,
             'The drive is a SUBST disk on path: "' +
               Copy(String(lpQuery), 5, Length(String(lpQuery))) + '"']));
       end;
       DRIVE_REMOTE: Memo1.Lines.Add(Format(Report, [Volume,
         'The drive is a remote (network) drive.']));
       DRIVE_CDROM: Memo1.Lines.Add(Format(Report, [Volume,
         'The drive is a CD-ROM drive.']));
       DRIVE_RAMDISK: Memo1.Lines.Add(Format(Report, [Volume,
         'The drive is a RAM disk.']));
     else
       Memo1.Lines.Add(Format(Report, [Volume, 'Xpen znaet chto :)']));
     end;
   end;
end;
 
end.

реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
13.08.2020 04:53:46/0.0026249885559082/2