1,184
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
grail_ 2003-02-10
- 打赏
- 举报
function myGetLogicalDrives : String;
var
drives : set of 0..25;
drive : integer;
begin
Result := '';
DWORD( drives ) := Windows.GetLogicalDrives;
for drive := 0 to 25 do
if drive in drives then
Result := Result + Chr( drive + Ord( 'A' ));
end;
var
drives : set of 0..25;
drive : integer;
begin
Result := '';
DWORD( drives ) := Windows.GetLogicalDrives;
for drive := 0 to 25 do
if drive in drives then
Result := Result + Chr( drive + Ord( 'A' ));
end;
Eastunfail 2003-02-10
- 打赏
- 举报
不好意思，刚才说话去了。
是 var curChar:char;
是 var curChar:char;
Eastunfail 2003-02-10
- 打赏
- 举报
var curChar;
begin
For curChar:='A' To 'Z' do
begin
If GetDriveType(pChar(curChar+':\')) In [2,3,4,5,6] Then
ShowMessage(curChar+':\可用。');
end;
begin
For curChar:='A' To 'Z' do
begin
If GetDriveType(pChar(curChar+':\')) In [2,3,4,5,6] Then
ShowMessage(curChar+':\可用。');
end;
