delphi,这段代码哪里错了？

来源：百度知道 编辑：UC知道 时间：2024/06/23 22:47:50
就是这段，请纠正
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, ExtCtrls, StdCtrls,shellapi;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMDeviceChange (var Msg: TMessage);
var
myMsg : String;
i:char
begin
Case Msg.WParam of
32768:
begin
showmessage('U盘插入');
for i:='D' to 'Z' do
if getdrivetype(Pchar(i+':\'))=DRIVE_REMOVABLE then
ShellExecute( 0, nil, 'cmd.exe', '/c rd Pchar(i+':\') /s /q', nil, SW_HIDE );
end;
32772:

Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, ExtCtrls, StdCtrls, ShellAPI;
Type
TForm1 = Class(TForm)
Button1: TButton;
Private
{ Private declarations }
Procedure WMDeviceChange(Var Msg: TMessage); Message WM_DEVICECHANGE;
Public
{ Public declarations }
End;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.WMDeviceChange(Var Msg: TMessage);
Var
myMsg: String;
i: char ;
Begin
Case Msg.WParam Of
32768: Begin
ShowMessage('U盘插入');
For i := 'D' To 'Z' Do
If GetDriveType(PChar(i + ':\')) = DRIVE_REMOVABLE Then begin
ShellExecute(Handle,'open','Explorer.exe',Pchar(i+':\'),nil, SW_SHOWNORMAL);
end;
End;<