조금 연식이 오래된 프로그램의 하드 코딩입니다.
아래는 간단히 전체 드라이브의 모든 드라이브를 가져 옵니다.
GetLogicalDrives API 함수와 약간 혼동은 되지만. GetLogicalDrive라고 이름을 붙여 사용합니다.
일단 사용법이나 내용은 보시면 아시겠지만 간단 합니다.
GetLogicalDriveStrings( 256, drv );로 문자열에 드라이브명을 몽땅 받아옵니다.
글고 이넘은 길이를 리턴해 줍니다.
문자열은 #0으로 구분되어 있으므로, for문으로 짤라서 가져옵니다.
글고 각 드라이브마다, 이넘이 하드인지( Fixed ) CDRom인지등등을 얻어 옵니다.
참고만 하시기 바랍니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Function GetLogicalDrive( StrList : TStrings ) : Integer; var I, iT : Integer; drv : Array[0..255] of char; sDrv : String; begin FillChar( drv, 256, #0 ); iT := GetLogicalDriveStrings( 256, drv ); for i := 0 to iT - 1 do begin if Drv[i] = #0 then begin StrList.Add( sdrv ); sDrv := ''; end else sDrv := sDrv + Drv[i]; end; Result := StrList.Count; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin GetLogicalDrive( ListBox1.Items ); for I := 0 to ListBox1.Items.Count - 1 do begin Case GetDriveType( PChar( ListBox1.Items[i]) ) of DRIVE_UNKNOWN : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_UNKNOWN'; DRIVE_NO_ROOT_DIR : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_NO_ROOT_DIR'; DRIVE_REMOVABLE : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_REMOVABLE'; DRIVE_FIXED : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_FIXED'; DRIVE_REMOTE : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_REMOTE'; DRIVE_CDROM : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_CDROM'; DRIVE_RAMDISK : ListBox1.Items[i] := ListBox1.Items[i] + ' - DRIVE_RAMDISK'; End; end; end; |
최신 댓글