00303.txt

来自「Delphi编程五大妙招源程序」· 文本 代码 · 共 37 行

1：让应用程序自身删除 
    在应用程序刚要退出之前创建一个Delself.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列代码： 
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;

2：如何把文件删除到回收站中？ 
利用ShellApi中: function SHFileOperation删除，给出文件的绝对路径名，否则可能不能恢复。
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 ;

3：打开Windows已经注册的文件 
ShellExecute(0, nil,'0030301.txt' {指定文件名}, nil, nil, SW_NORMAL);//打开方式