프로그래밍 노트

// 로컬 컴퓨터에 존재하는 드라이브의 문자열을 반환 function TForm1.GetDriveList:TStringlist; var sDrvChr : string; i : integer; cDrvChr : array[1..255] of char; iDrvType : integer; // 지정한 드라이브의 타입 반환 function GetDrvType(sDrvChr: string): string; begin // 드라이브 타입 반환 iDrvType := GetDriveType(Pchar(sDrvChr)); case iDrvType of DRIVE_UNKNOWN: Result := 'UNKNOWN'; DRIVE_NO_ROOT_DIR: Result := 'NO ROOT'; DRIVE_REMOVABLE: R..