u00303.pas

Delphi编程五大妙招源程序

unit U00303;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls ,ShellApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F : TextFile ;
begin
  AssignFile(F, 'delself.bat');
  Rewrite(F);{F为TextFile类型}
  WriteLn(F,'del '+ExtractFileName(Application.ExeName));
  WriteLn(F,'del %0');
  CloseFile(F);
  WinExec('delself.bat',SW_HIDE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close ;
end;

{利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer;stdcall;}
Procedure DelFile(FileName : String) ;
Var
  T:TSHFileOpStruct;
  P:String;
begin
  P:=FileName ;
  With T do
  Begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=Pchar(P);
    fFlags:=FOF_ALLOWUNDO
  End;
  Try
  SHFileOperation(T);
  Except
  End ;
End ;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DelFile('E:\技术讲座\Delphi技巧\003\0030302.txt') ;
end;
//打开Windows已经注册的文件
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellExecute(0, nil,'0030301.txt' {指定文件名}, nil, nil, SW_NORMAL);//打开方式
end;

end.