【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“dy74.pas”一文,供大家参考学习!
unit dy74;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aa : integer; //函数返回值
bb : string; //盘符
begin
bb:= Trim(Combobox1.Text);
aa:= GetDriveType(pchar(bb));
With Label1 do
case aa of
DRIVE_REMOVABLE: Caption :='这是可移动驱动器';
DRIVE_FIXED: Caption :='这是不可移动驱动器';
DRIVE_NO_ROOT_DIR: Caption :='这不是一个有效驱动器';
DRIVE_REMOTE: Caption :='这是网络驱动器';
DRIVE_CDROM: Caption :='这是光盘驱动器';
DRIVE_RAMDISK: Caption :='这是虚拟驱动器';
DRIVE_UNKNOWN: Caption :='驱动器符号无效';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=ord('A') to ord('Z') do
begin
Combobox1.Items.Add(char(i)+':\');
end;
Combobox1.ItemIndex:=0;
end;
end.
上一篇:
dy7.pas
下一篇:
邓小平精简机构理论探析