뭐 간단하게 만들었습니다.
지가요. 년식이 올되다보니 예전꺼 밖에 모른다는 ㅎㅎㅎ
모든 디스크 드라이브의 Path알아오는 방법입니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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; |
사용법은
GetLogicalDrive( ListBox1.Items );
간단하죠? 참고만 하시기 바랍니다.
최신 댓글