MoveEx The Windows file mover and deleter on startup

1. program MoveEx;
2. {$RESOURCE moveex32.res}
3. {$APPTYPE Console}
5. uses
6. SysUtils,
7. windows,
8. Classes;
10. var dwopt:Dword;
11. b:boolean;
12. s:string;
14. begin
15. if paramcount<2 then begin
16. writeln('Usage: ',extractfilename(paramstr(0)),' oldfilename [newfilename] [options]');
17. writeln('Options:');
18. writeln('/D Deletes the file instead of moving/renaming it');
19. writeln('/E Work even when newfilename exists');
20. writeln('/T Try moving/deleting file before doing it on next boot');
21. writeln('OPTIONS ARE CASE SENSITVE');
22. writeln('IF FILEPATHS CONTAIN SPACES THEY SHOULD HAVE QUOTES(") SURROUNDING THEM');
23. write('Press Enter to quit...');
24. readln(s);
25. exitprocess(0);
26. end;
27. setlasterror(0);
28. dwopt:=0;
29. if strpos(getcommandline,' /E')<>nil then
30. dwopt:=MOVEFILE_REPLACE_EXISTING;
31. if StrPos(getcommandline,' /T')<>nil then
32. begin
33. if StrPos(getcommandline,' /D')<>nil then
34. b:=deletefile(Pchar(paramstr(1)))else
35. b:=movefileex(PChar(paramstr(1)),pchar(paramstr(2)),dwopt);
36. writeln('Try:',syserrormessage(getlasterror));
37. if b then exitprocess(0);
38. end;
39. dwopt:=dwopt or MOVEFILE_DELAY_UNTIL_REBOOT;
40. if strpos(getcommandline,' /D')=nil then
41. MoveFileex(PChar(paramstr(1)),pchar(paramstr(2)),dwopt) else
42. movefileex(pchar(paramstr(1)),nil,dwopt);
43. writeln(syserrormessage(getlasterror));
44. exitprocess(getlasterror);
45. end.

program MoveEx;
{$RESOURCE moveex32.res}
{$APPTYPE Console}

uses
  SysUtils,
  windows,
  Classes;

var dwopt:Dword;
b:boolean;
s:string;

begin
if paramcount<2 then begin
writeln('Usage: ',extractfilename(paramstr(0)),' oldfilename [newfilename] [options]');
writeln('Options:');
writeln('/D         Deletes the file instead of moving/renaming it');
writeln('/E         Work even when newfilename exists');
writeln('/T         Try moving/deleting file before doing it on next boot');
writeln('OPTIONS ARE CASE SENSITVE');
writeln('IF FILEPATHS CONTAIN SPACES THEY SHOULD HAVE QUOTES(") SURROUNDING THEM');
write('Press Enter to quit...');
readln(s);
exitprocess(0);
end;
setlasterror(0);
dwopt:=0;
if strpos(getcommandline,' /E')<>nil then
dwopt:=MOVEFILE_REPLACE_EXISTING;
if StrPos(getcommandline,' /T')<>nil then
begin
if StrPos(getcommandline,' /D')<>nil then
b:=deletefile(Pchar(paramstr(1)))else
b:=movefileex(PChar(paramstr(1)),pchar(paramstr(2)),dwopt);
writeln('Try:',syserrormessage(getlasterror));
if b then exitprocess(0);
end;
dwopt:=dwopt or MOVEFILE_DELAY_UNTIL_REBOOT;
if strpos(getcommandline,' /D')=nil then
MoveFileex(PChar(paramstr(1)),pchar(paramstr(2)),dwopt) else
movefileex(pchar(paramstr(1)),nil,dwopt);
writeln(syserrormessage(getlasterror));
exitprocess(getlasterror);
end.