|
#1
|
||||
|
||||
%TEMP%
Нужно, чтобы создавался .exe в %TEMP%
Код:
procedure TForm1.Image3Click(Sender: TObject); begin CreateExe('temp.exe', 98322); SetFileAttributes(PChar('temp.exe'), faHidden); end; |
#2
|
||||
|
||||
Вам нужно создавать какой-то другой exe файл или файл проекта при компиляции?
Вот функция, выдающая путь к папке TEMP: Код:
function GetWinTempPath: string; var buff: array [0..MAX_PATH] of Char; begin GetTempPath(SizeOf(buff), buff); Result:= buff; end; Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#3
|
||||
|
||||
Уж не "вирусню" ли ты пишешь?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
Ага. Вот это наводит на подозрение...
Цитата:
|
#5
|
|||
|
|||
а что надо добавить чтоб CreateExe работал? а то пишет что неизвестный идентификатор
|