delphi强制删除正在运行的文件或程序（小弟跪求各位高手！）

這個是深入windows核心編程裏提供的代碼（刪除或移動正在使用的文件）如下：
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls;
 
const
 FILE_DELETE=1;
 FILE_RENAME=2;
type
 TForm1 = class(TForm)
 Button1: TButton;
 Label1: TLabel;
 Label2: TLabel;
 RadioGroup1: TRadioGroup;
 Edit1: TEdit;
 Edit2: TEdit;
 Button2: TButton;
 Button3: TButton;
 OpenDialog1: TOpenDialog;
 procedure Button2Click(Sender: TObject);
 procedure Button3Click(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 procedure Edit2Change(Sender: TObject);
 procedure RadioGroup1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

Function DeleteRenameFileAfterBoot(lpFileNameToSrc,lpFileNameToDes: PChar;flag:Uint): Boolean;
var
 WindowsDirs: array [0..MAX_PATH + 1] of Char;
 lpDirSrc,lpDirDes: array [0..MAX_PATH + 1] of Char;
 VerPlatForm: TOSVersionInfoA;
 StrLstDelte: TStrings;
 filename,s :String;
 i:integer;
begin
 Result := FALSE;
 ZeroMemory(@VerPlatForm, SizeOf(VerPlatForm));
 VerPlatForm.dwOSVersionInfoSize := SizeOf(VerPlatForm);
 GetVersionEx(VerPlatForm);
 if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32s then
 begin
 SetLastError(ERROR_NOT_SUPPORTED);
 Exit;
 end
 else if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32_NT then
 begin
 if flag=FILE_DELETE then
 Result := MoveFileEx(PChar(lpFileNameToSrc), nil,
 MOVEFILE_REPLACE_EXISTING + MOVEFILE_DELAY_UNTIL_REBOOT)
 else if (flag=FILE_RENAME) then
 Result := MoveFileEx(lpFileNameToSrc, lpFileNameToDes,
 MOVEFILE_REPLACE_EXISTING + MOVEFILE_DELAY_UNTIL_REBOOT);
 end
 else begin
 StrLstDelte := TStringList.Create;
 GetWindowsDirectory(WindowsDirs, MAX_PATH + 1);
 filename:=WindowsDirs;
 if filename[length(filename)]<>'\' then filename:=filename+'\';
 filename:=filename+'wininit.ini';
 if FileExists(filename) then
 StrLstDelte.LoadFromFile(filename);
 if StrLstDelte.IndexOf('[rename]') = -1 then
 StrLstDelte.Add('[rename]');
 GetShortPathName(lpFileNameToSrc, lpDirSrc, MAX_PATH + 1);
 if fileexists(lpFileNameToDes) then
 GetShortPathName(lpFileNameToDes, lpDirDes, MAX_PATH + 1)
 else begin
 s:=extractfilename(lpFileNameToDes);
 i:=pos('.',s);
 if (i=0) then
 begin
 if length(s)>8 then raise exception.create('不是有效的短文件名(8+3格式)!');
 end
 else begin
 if (i-1>8)or(length(s)-i>3) then raise exception.create('不是有效的短文件名(8+3格式)!');
 end;
 strcopy(lpDirDes,lpFileNameToDes);
 end;
 if (flag=FILE_DELETE) then {刪除}
 StrLstDelte.Insert(StrLstDelte.IndexOf('[rename]') + 1, 'NUL='+string(lpDirSrc))
 else if (flag=FILE_RENAME) then {改名}
 StrLstDelte.Insert(StrLstDelte.IndexOf('[rename]') + 1, string(lpDirDes)+'='+string(lpDirSrc));

 StrLstDelte.SaveToFile(filename);
 Result := TRUE;
 StrLstDelte.Free;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 edit1.text:=OpenDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 edit2.text:=OpenDialog1.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:uint;
begin
 if RadioGroup1.ItemIndex=0 then i:=FILE_DELETE
 else i:=FILE_RENAME;
 if edit1.text='' then raise exception.create('源文件爲空！');
 if (i=FILE_RENAME)and(edit2.text='') then raise exception.create('目標文件爲空！');
 if not DeleteRenameFileAfterBoot(pchar(edit1.text),pchar(edit2.text),i) then
 showmessage('出錯了')
 else showmessage('ok');
end;

procedure TForm1.Edit2Change(Sender: TObject);
var
 VerPlatForm: TOSVersionInfoA;
 buf: array [0..MAX_PATH + 1] of Char;
begin
 if not fileexists(edit2.text) then exit;
 ZeroMemory(@VerPlatForm, SizeOf(VerPlatForm));
 VerPlatForm.dwOSVersionInfoSize := SizeOf(VerPlatForm);
 GetVersionEx(VerPlatForm);
 if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
 begin
 GetShortPathName(pchar(edit2.text), buf, MAX_PATH + 1);
 edit2.text:=buf;
 end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 edit2.Enabled:=RadioGroup1.ItemIndex=1;
 button2.Enabled:=RadioGroup1.ItemIndex=1;
end;

end.





　　　我顛覆了整個世界，是爲了擺正你們的倒影



還有一個思路是,使用命令chkdsk /x 就是磁盤檢測工具. 指定文件所在的邏輯盤運行以後,它會暫時卸掉這個邏輯區,這上面的文件都將會關閉,結束以後就可以刪除了.





　　　我顛覆了整個世界，是爲了擺正你們的倒影



楼主说得很对,就用enumprocess回调函数把所有进程的文件名找出来,看看哪个是你想删的就就把它进程杀掉就可以对其文件做任何事了
不过还有个别情况不好弄,就是在autoexec.bat中的文件或服务中所使用的文件不好弄

对寄生病毒恐怕得另想办法,象冲击波

to 2楼 多谢2楼兄弟指点，我先试一下
to 3楼 思路很新颖，值得尝试
to 4楼 其实你说的还是先结束相应的进程再删，而我的意思是在不结束进程的情况下删除相应文件或程序，冰刃就是最好的例子。

感谢所有回复的兄弟，愿大家都能实现自己的人生目�

Delphi7强制删除正在运行的程序
https://download.csdn.net/download/rang34/89560677