안녕하세요. 최용일입니다.



디스크의 타입정보는 GetDriveType란 API함수를 이용하시면 알 수 있습니다.



드라이브명은 A부터 Z까지 26개만 사용할 수 있습니다. 그중 A와 B는 플로피



드라이브를 위하여 예약되어 있습니다. 그러므로 하드디스크는 C이상부터의



이름을 가질 수 있습니다. GetDriveType에 인자로 드라이브의 루트디렉토리를



넣어주시면 드라이브 타입을 알려줍니다.



var

Drive: array[0..4] of Char;

I: Integer;

TotalHardDiskCount: Integer;

begin

Drive := 'c:';

TotalHardDiskCount := 0;

for I := Ord('C') to Ord('Z') do

begin

Drive[0] := Chr(I);

if GetDriveType(Drive) = DRIVE_FIXED then

begin

ShowMessage(Drive[0] + ': 드라이브는 고정된 하드디스크드라이브입니다.');

Inc(TotalHardDiskCount);

end;

end;

ShowMessage('총 하드디스크의 갯수는 ' + IntToStr(TotalHardDiskCount) + '개입니다.');

end;



GetDriveType의 리턴값 설명입니다.

0 The drive type cannot be determined.

1 The root directory does not exist.

DRIVE_REMOVABLE The drive can be removed from the drive.

DRIVE_FIXED The disk cannot be removed from the drive.

DRIVE_REMOTE The drive is a remote (network) drive.

DRIVE_CDROM The drive is a CD-ROM drive.

DRIVE_RAMDISK The drive is a RAM disk.



^^ 항상 즐코하세요.



엄주평 wrote:

> 델파이를 시작한지 얼마 되지 않습니다.

> 하드 디스크인지 아닌지 구별하는 방법하구요

> 하드 디스크의 총 갯수를 체크할수 있나요

> 자세히 부탁 드릴께요

>

>

엄주평 wrote:

> 델파이를 시작한지 얼마 되지 않습니다.

> 하드 디스크인지 아닌지 구별하는 방법하구요

> 하드 디스크의 총 갯수를 체크할수 있나요

> 자세히 부탁 드릴께요

>

>

PC에 설치된 드리이브 목록을 구하는 소스인데 참고 하세요..

하드디스크인지는 GetDriveType 함수를 사용하여 알 수 있습니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// 플로피 디스크의 인치

function FloppyDriveSize(Drive: Char): String;

type

PDIOC_REG = ^TDIOC_Registers;

TDIOC_Registers = record

Reg_EBX, Reg_EDX, Reg_ECX, Reg_EAX,

Reg_EDI, Reg_ESI, Reg_Flags : DWORD

end;

const

VWIN32_DIOC_DOS_INT13 = 4;

var

H : THandle;

R : TDIOC_Registers;

C : DWORD;

begin

Result := 'unknown';

H := CreateFile('.VWIN32', 0, 0, nil, 0, 0, 0);

if H <> INVALID_HANDLE_VALUE then

try

R.Reg_EAX := $800;

R.Reg_EDX := ord(upcase(Drive)) - Ord('A');

if DeviceIOControl(H, VWIN32_DIOC_DOS_INT13, @R,

SizeOf (R), @R, SizeOf (R), C, nil) and

(R.Reg_Flags and 1 = 0) then

if R.Reg_EBX and $FF < 3 then

Result := '5.25'

else

Result := '3.5';

finally

CloseHandle(H);

end

end;



procedure ListDrives(Strings: TStrings);

const

BufSize = 256;

var

Buffer: PChar;

P: PChar;

DrivePchar: array[0..5] of Char;

iDriveType: Integer;

begin

GetMem(Buffer, BufSize);

try

Strings.BeginUpdate;

try

Strings.Clear;

// 시스템에 설치된 드라이브 목록 구하기(형태 c:d:)

if GetLogicalDriveStrings(BufSize, Buffer) <> 0 then

begin

P := Buffer;

while P^ <> #0 do

begin

iDriveType := GetDriveType(P);

case iDriveType of

DRIVE_REMOVABLE:

begin

Strings.Add(P+' - Floppy drive ('+

FloppyDriveSize(P[0])+')'); // 인치 구분

end;

DRIVE_FIXED:

Strings.Add(P+' - Hard drive');

DRIVE_REMOTE:

Strings.Add(P+' - Network drive');

DRIVE_CDROM:

Strings.Add(P+' - CD-ROM drive');

DRIVE_RAMDISK:

Strings.Add(P+' - RAM drive');

end;

Inc(P, StrLen(P) + 1);

end;

end;

finally

Strings.EndUpdate;

end;

finally

FreeMem(Buffer, BufSize);

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ListDrives(Memo1.Lines);

end;



end.