【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供dy100.pas参考,解决您在dy100.pas学习中工作中的难题,参考学习。
unit dy100;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
ComboBox1: TComboBox;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
A = 0 ; //A盘
B = 1 ; //B盘
D= 3 ; //D盘
DEFAULT = $FFFF; //格式化成ID
QUICKFORMAT = 0; //快速格式化
FULLFORMAT = 1; //完全格式化
SYSONLY = 2; //仅复制系统文件
ERROR = -1; //格式化出错
CANCEL=-2; //格式化取消
NOFORMAT = -3; //格式化没有完成
function formatdrive(hwnd:hwnd;drive:word;fomatid: word;options:word):
longint stdcall ;external 'shell32.dll' name 'SHFormatDrive';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
format: longint;
begin
try
format:= formatdrive(handle,ComboBox1.ItemHeight ,DEFAULT ,QUICKFORMAT);
case format of
ERROR : ShowMessage('格式化出错');
CANCEL: ShowMessage('格式化取消 ');
NOFORMAT: ShowMessage('格式化没有完成')
else
ShowMessage('格式化完成');
end ;
except
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
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.