path Archives - EagleSoft

모든 디스크 드라이브의 Path 알아오기

뭐 간단하게 만들었습니다. 지가요. 년식이 올되다보니 예전꺼 밖에 모른다는 ㅎㅎㅎ 모든 디스크 드라이브의 Path알아오는 방법입니다.

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;

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 ); 간단하죠? 참고만 하시기 바랍니다.

EagleSoft

[태그:] path

모든 디스크 드라이브의 Path 알아오기

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글