1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

program DelFile;

{$APPTYPE CONSOLE}

uses
  windows;

function FileExists(const FileName: string; dir: boolean = false): Boolean;
var
  hidate, lodate: word;
  Handle: THandle;
  FindData: TWin32FindData;
  LocalFileTime: TFileTime;

type
  LongRec = packed record
    Lo, Hi: Word;
  end;

  function SubFileExists: Boolean;
  begin
    FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
    result := FileTimeToDosDateTime(LocalFileTime, HiDate, LoDate);
  end;
begin
  result := false;
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    case dir of
      TRUE: if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0 then result := SubFileExists;
      FALSE: if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then result := SubFileExists;
    end;
  end;
end;

begin
  if (ParamCount = 1) and (FileExists(ParamStr(1))) then
    MoveFileEx(PChar(ParamStr(1)), nil, MOVEFILE_DELAY_UNTIL_REBOOT)
  else
    Writeln('Usage: DelFile <Filename>'); 
end.					

1:
2:

dellocked C:\test\*.exe
dellocked "C:\system volume information\*.exe" /R					

1:
2:
3:
4:
5:

- sind kleiner
- können in BaTcH-jobs verwendet werden
- können auch bei einer fernwartung per SSH benutzt werden (ziel sollte ein komplett per konsole administrierbares windows-system sein, wie bei linux)
- muss sich der programmierer nicht um visuelle komponenten und durch deren benutzung resultierende fehler kümmern
- werden von DAU's nicht verwendet, welche damit auch keinen schaden anrichten können.