如何取硬盘的最后一个盘符? ( 积分: 50 )

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-15

• #1

如题,在线等.

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #2

var c,j:char;
begin
for c:='c' to 'z' do
if directoryexists(c+':/') then j:=c;
showmessage('最后一个盘符是'+j);
end;

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #3

function FindTheLastExistsDrive: string;
var
i: Char;
begin
Result := '';
for i := 'z' downto 'a' do
if DirectoryExists(i + ':/') then
begin
Result := i + ':/';
Break;
end;
end;

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #4

楼上两位的有个问题,如果有U盘就有问题了!

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #5

function GetLastDrives: string;
var
drive:char;
begin
for drive:='Z' Downto 'A' do
if GetDriveType(pchar(Drive+':/'))=DRIVE_FIXED then
begin
result:=drive;
break;
end;
end;

 

S

sbabzc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #6

顶啊!!
----------------------------------------------------------------------
[-------------天宇原码-------------]
[-----VB|java|delphi|c#|vc++|c-----]
[-------------欢迎大家-------------]

http://www.skyu.cn

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-24

• #7

接受答案了.