이지만 께서 말씀하시기를...

> Delphi 에서 ListBOX 에 시스템에 탑재된 미디어(Floopy, HARD, CDROM.....)

> 을 찾아 등록하는 것을 구현하고 싶습니다.

>

> 하지만 생각처럼 그리 쉽진 않군요..

>

> 조언 부탁합니다. 될수있으면 자세하고 쉽게 설명해 주세요..

>

> 그럼-



저는 API를 사용하지 않고

직접 레지스트리에서 장치 디바이스를 찾는 방법으로 구현해 보았습니다.

레지스트리의 HKEY_LOCAL_MACHINEEnum 이부분에 디바이스 정보가

들어 있습니다. 이곳에서 원하는 것들을 찾을수가 있지요.

참 HKEY_DYN_DATAConfig ManagerEnum 이부분에는 현재 사용중이

디바이스들만을 찾아서 그 레지스트리 경로들을 저장하고 있습니다.



아래 소스...



unit Unit1;



interface



uses

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

ComCtrls, StdCtrls, Registry, Winsock;



type

TForm1 = class(TForm)

DeviceTree: TTreeView;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

ValueList : TStrings;

SubKeys : TStrings;

function GetRegValue(hkeyRoot: HKEY; strOpenKey: String; strName: String): String;

procedure GetSubReg;

procedure SearchRegDevice;

procedure LoadHardwareType;

function IsHardwareInfo(Value: string;var hwIndex: Integer): Boolean;

procedure AnalysisList;

public

{ Public declarations }

end;



Type

HardwareInfo = record

TitleName: String;

TypeName: String;

Node: TTreeNode;

end;



var

Form1: TForm1;

hwInfo: array[0..11] of HardwareInfo;

count: Integer;



implementation

{$R *.DFM}

procedure TForm1.LoadHardwareType;

var

LoadFile: TextFile;

i: Integer;

begin

AssignFile(LoadFile, 'Hardware.txt');

FileMode := 0; // Read only

Reset(LoadFile);

while not eof(LoadFile) do

begin

Readln(LoadFile, hwInfo[count].TitleName);

Readln(LoadFile, hwInfo[count].TypeName);

Inc(count);

end;



for i:=0 to count-1 do

hwInfo[i].Node := DeviceTree.Items.AddChild(DeviceTree.Items.GetFirstNode, hwInfo[i].TitleName);

end;



function TForm1.IsHardwareInfo(Value: string;var hwIndex: Integer): Boolean;

var

i: Integer;

begin

result := False;

for i:=0 to count-1 do

if UpperCase(Value) = UpperCase(hwInfo[i].TypeName) then

begin

hwIndex := i;

result := True;

break;

end;

end;



function TForm1.GetRegValue(hkeyRoot:HKEY;

strOpenKey: String; strName: String): String;

var

regTree: TRegistry;

begin

Try

regTree := TRegistry.Create;

regTree.RootKey := hkeyRoot;

if regTree.OpenKey(strOpenKey, False) then

result :=regTree.ReadString(strName);

Finally

regTree.Free;

end;

end;



procedure TForm1.GetSubReg;

var

regDYN, SubDyn: TRegistry;

TempList: TStrings;

value : String;

i: Integer;

begin

Try

TempList := TStringList.Create;

regDYN := TRegistry.Create;

regDYN.RootKey := HKEY_DYN_DATA;

regDYN.OpenKey('Config ManagerEnum', False);

if regDYN.HasSubKeys then

begin

regDYN.GetKeyNames(TempList);

for i:=0 to TempList.Count-1 do

begin

SubDyn := TRegistry.Create;

SubDyn.RootKey := HKEY_DYN_DATA;

SubDyn.OpenKey('Config ManagerEnum'+TempList.Strings[i], False);

Value := SubDyn.ReadString('HardWareKey');

SubKeys.Add(Value);

SubDyn.Free;

end;

end;

Finally

TempList.Free;

regDYN.Free;

end;

end;



procedure TForm1.SearchRegDevice;

var

Value: String;

i, hwIndex: Integer;

begin

for i:=0 to SubKeys.Count-1 do

begin

Value := '';

Value := GetRegValue(HKEY_LOCAL_MACHINE,

'Enum'+SubKeys.Strings[i], 'Class');

if IsHardwareInfo(Value, hwIndex) then

begin

Value := GetRegValue(HKEY_LOCAL_MACHINE,

'Enum'+SubKeys.Strings[i], 'DeviceDesc');

ValueList.AddObject(value, TObject(hwIndex));

end;

end;

end;



procedure TForm1.AnalysisList;

var

i, hwIndex: Integer;

hwTitle : String;

hwNode : TTreeNode;



begin

for i:=0 to ValueList.Count-1 do

begin

hwIndex := Integer(ValueList.Objects[i]);

DeviceTree.Items.AddChild(hwInfo[hwIndex].Node, ValueList.Strings[i]);

end;



hwNode := DeviceTree.Items.GetFirstNode;

hwNode.Expanded := True;

end;







procedure TForm1.FormShow(Sender: TObject);

begin

ValueList := TStringList.Create;

SubKeys := TStringList.Create;

DeviceTree.Items.Add(Nil, '컴퓨터');

count := 0;

LoadHardwareType;

// 하드웨어 정보 수집

ValueList.Clear;

SubKeys.Clear;

GetSubReg;

SearchRegDevice;

AnalysisList;

end;





procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ValueList.Free;

SubKeys.Free;

end;



end.



이 텍스트 파일은 읽어올 하드웨어의 종류를 담고 있습니다.

같은 폴더에 복사해서 실행하세요.. ^^;



파일명 : Hardware.txt



네트워크 어댑터

Net

디스플레이 어댑터

Display

마우스

Mouse

키보드

Keyboard

모니터

Monitor

하드 디스크

hdc

플로피 디스크

fdc

CD-ROM

CDROM

사운드 및 게임 컨트롤러

MEDIA

모뎀

Modem

포트

Ports

이지만 께서 말씀하시기를...

> Delphi 에서 ListBOX 에 시스템에 탑재된 미디어(Floopy, HARD, CDROM.....)

> 을 찾아 등록하는 것을 구현하고 싶습니다.

>

> 하지만 생각처럼 그리 쉽진 않군요..

>

> 조언 부탁합니다. 될수있으면 자세하고 쉽게 설명해 주세요..

>

> 그럼-



안녕하세요 ^^; 괴물입니다.



기본적인 드라이브의 타입은 GetDriveType API로 알수 있습니다.



이곳 '델파이 팁모아, 나이렉스(한델)'에 가보시면 아시겠지만

드라이브 타입, s/n얻기,

CDD같은경우 안에 든 CD의 포맷과, 트랙정보, 이상한(^^) 열고 닫기등..

방대한 내용이 있습니다..



ps.

참고로(^^) 제일빨리 컴의 논리드라이브를 알아내는방법으로,

GetLogicalDrives라는 API가 있습니다.