حذف فایل به هر شکل ممکن

[Delphi-Man]

با سلام
چطوری میشه فایل های در حال استفاده یا هر جور دیگه ای که امکان حذفش وجود نداره رو حذف کرد؟

[lord_viper]

این کد هست البته بعد از ریستارت کردن اون کارها رو انجام میده مثل حذف یا تغییر نام



[rename]
NUL=C:\TEMP.TXT
NUL=C:\TEMP2.TXT
C:\NEW_DIR\EXISTING.TXT=C:\EXISTING.TXT
C:\NEW_DIR\NEWNAME.TXT=C:\OLDNAME.TXT
C:\EXISTING.TXT=C:\TEMP\NEWFILE.TXT




procedure DeleteLater(Filename: string);
var
Wininit : string;
Buffer : array[0..MAX_PATH] Of char;
I,J : integer;
Ini : TStringList;
begin
FillChar(Buffer, SizeOf(Buffer), 0);
GetWindowsDirectory(Buffer, SizeOf(Buffer));
Wininit := IncludeTrailingBackslash(Buffer) + 'Wininit.ini';

Ini := TStringList.Create;
try
if FileExists(Wininit) then Ini.LoadFromFile(Wininit);
for I := 0 to Ini.Count - 1 do Ini[I] := Uppercase(Ini[I]);

J := Ini.IndexOf('[RENAME]');
if J = -1 then
begin
Ini.Add('[Rename]');
J := 0;
end;
FillChar(Buffer, SizeOf(Buffer), 0);
GetShortPathName(PChar(Filename), Buffer, SizeOf(Buffer));
Ini.Insert(J+1, 'NUL=' + Buffer);
Ini.SaveToFile(Wininit);
finally
Ini.Free;
end;
end;