[DopInfa]

Нужно, чтобы создавался .exe в %TEMP%

Код:

procedure TForm1.Image3Click(Sender: TObject);
begin
CreateExe('temp.exe', 98322);
  SetFileAttributes(PChar('temp.exe'), faHidden);
end;

[Karsh]

Вам нужно создавать какой-то другой exe файл или файл проекта при компиляции?
Вот функция, выдающая путь к папке TEMP:

Код:

function GetWinTempPath: string;
var
  buff: array [0..MAX_PATH] of Char;
begin
  GetTempPath(SizeOf(buff), buff);
  Result:= buff;
end;

[M.A.D.M.A.N.]

Уж не "вирусню" ли ты пишешь?

[Rat]

Ага. Вот это наводит на подозрение...

SetFileAttributes(PChar('temp.exe'), faHidden);

[Snake22]

а что надо добавить чтоб CreateExe работал? а то пишет что неизвестный идентификатор