1

源程序下载
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);//打开方式

源程序下载