如何将一个正在运行的文件删除它自己？(100分)

海风 · 2000-12-27

如何将一个正在运行的文件删除它自己？就象uninst.exe一样

wjiachun · 2000-12-27

看看cAkk以前的解答吧，我测试有一些问题，也不知道哪里不对？     procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);     var       f:textfile;     begin         assignfile(f,'./delself.bat');       rewrite(f);       writeln(f,'@echo off');       writeln(f,':loop');       writeln(f,'del "'+application.ExeName+'"');       writeln(f,'if exists "'+application.exename+'" goto loop');       writeln(f,'del ./delself.bat');       closefile(f);       winexec(pchar('./deself.bat'), SW_HIDE);       close;     end;

fshell · 2001-01-04

Application.ExeName是一个带路径的文件名，如果这个路径或者文件名不符合DOS的命名 规则，在WIN 9X下就会报告错误，最好在程序里加上处理的代码，把规范的文件名或者目 录名改成DOS的83法则。

delphisnail · 2001-01-06

用批处理

jingtao · 2001-01-19

有个关键啊，如果这个批处理要删除WINDOWS目录的文件要加东西的。

Fyx · 2001-01-19

以下代码可以实现删除自己的功能，已经测试过： procedure TForm1.Button1Click(Sender: TObject); var   f: Textfile; begin   assignfile(f,changefileext(paramstr(0),'.bat'));   rewrite(f);   writeln(f,':1');   writeln(f,format('Erase "%s"',[paramstr(0)]));   writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));   writeln(f,format('Erase "%s"',[changefileext(paramstr(0),'.bat')]));   closefile(f);   winexec(PChar(changefileext(paramstr(0),'.bat')),sw_hide);   halt; end;

慕容乾坤 · 2001-02-08

用api函数删除行不行?

doxpix · 2001-02-08

API!？ 想知道。

Chenlili · 2001-02-09

事呀，用api函数行不行？

cachen1 · 2001-03-14

用api肯定不行，只能用Dos的方式删除。Windows是不允许删除正在它的环境 下运行的东西的

热血 · 2001-03-30

以下代码用win api函数将自己删除 vc++ 6控制台模式编译测试成功 #include <Windows.h> int main(int argc, char *argv[]) {     HMODULE module = GetModuleHandle(0);     CHAR buf[MAX_PATH];     GetModuleFileName(module, buf, sizeof(buf));     MessageBox(0,"Del Me","Test",MB_OK);     CloseHandle((HANDLE)4); __asm {         lea    eax, buf         push    0         push    0         push    eax         push    ExitProcess         push    module         push    DeleteFile         push    UnmapViewOfFile         ret     }     return 0; }

linush · 2001-04-03

call test.bat. // test.bat del test.exe // to delete the file test del %

shiv · 2001-04-03

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure DeleteMe; var   BatchFile: TextFile;   BatchFileName: string;   ProcessInfo: TProcessInformation;   StartUpInfo: TStartupInfo; begin   BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';   AssignFile(BatchFile, BatchFileName);   Rewrite(BatchFile);   Writeln(BatchFile, ':try');   Writeln(BatchFile, 'del "' + ParamStr(0) + '"');   Writeln(BatchFile,     'if exist "' + ParamStr(0) + '"' + ' goto try');   Writeln(BatchFile, 'del %0');   CloseFile(BatchFile);   FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);   StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;   StartUpInfo.wShowWindow := SW_HIDE;   if CreateProcess(nil, PChar(BatchFileName), nil, nil,     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,     ProcessInfo) then   begin     CloseHandle(ProcessInfo.hThread);     CloseHandle(ProcessInfo.hProcess);   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   DeleteMe;   close; end; end.

Mutex · 2001-04-03

procedure DeleteMe; var   BatchFile: TextFile;   BatchFileName: string;   ProcessInfo: TProcessInformation;   StartUpInfo: TStartupInfo; begin   { create a batchfile in the applications directory }   BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat';   { open and write the file }   AssignFile(BatchFile, BatchFileName);   Rewrite(BatchFile);   Writeln(BatchFile, ':try');   Writeln(BatchFile, 'del "' + ParamStr(0) + '"');   Writeln(BatchFile,  'if exist "' + ParamStr(0) + '"' + ' goto try');   Writeln(BatchFile, 'del "' + BatchFileName + '"');   CloseFile(BatchFile);   FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);   StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;   StartUpInfo.wShowWindow := SW_HIDE;   if CreateProcess(nil, PChar(BatchFileName), nil, nil,      False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,      ProcessInfo) then   begin     CloseHandle(ProcessInfo.hThread);     CloseHandle(ProcessInfo.hProcess);   end; end; （以上代码在D5下成功使用。）

海风 · 2001-04-05

问题结束

wjiachun · 2001-04-06

多人接受答案了。

如何将一个正在运行的文件删除它自己？(100分)

海风

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

fshell

Unregistered / Unconfirmed

delphisnail

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

Fyx

Unregistered / Unconfirmed

慕容乾坤

Unregistered / Unconfirmed

doxpix

Unregistered / Unconfirmed

Chenlili

Unregistered / Unconfirmed

cachen1

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

linush

Unregistered / Unconfirmed

shiv

Unregistered / Unconfirmed

Mutex

Unregistered / Unconfirmed

海风

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads