?? untifrmmain.pas
字號(hào):
unit untiFrmMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
DrivePath: string;
i: Integer;
begin
for i := 0 to 25 do
begin
DrivePath := Char(Ord('A') + i) + ':\';
case GetDriveType(pchar(DrivePath)) of
DRIVE_REMOVABLE:
ListBox1.Items.Add('驅(qū)動(dòng)器' + Char(Ord('A') + i) + '是可移動(dòng)驅(qū)動(dòng)器'); //如果是硬盤
DRIVE_FIXED:
ListBox1.ITEMS.ADD('驅(qū)動(dòng)器' + Char(Ord('A') + i) + '是固定驅(qū)動(dòng)器');
DRIVE_REMOTE:
ListBox1.ITEMS.ADD('驅(qū)動(dòng)器' + Char(Ord('A') + i) + '是網(wǎng)絡(luò)驅(qū)動(dòng)器');
DRIVE_CDROM:
ListBox1.ITEMS.ADD('驅(qū)動(dòng)器' + Char(Ord('A') + i) + '是光盤驅(qū)動(dòng)器');
DRIVE_RAMDISK:
ListBox1.ITEMS.ADD('驅(qū)動(dòng)器' + Char(Ord('A') + i) + '是虛擬驅(qū)動(dòng)器');
end;
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -