Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: CL | DM;

Вниз

записать файл вкомпилированный в экзешник на винт   Найти похожие ветки 

 
Roman_Tutov   (2002-11-14 12:40) [0]

в ресурсы запаковал файл . Покажите пожалуйста пример
как этот файл сохранить на винт .


 
Игорь Шевченко ©   (2002-11-14 13:31) [1]

Распаковать из ресурсов, очевидно.
FindResource, LoadResource, LockResource, etc


 
Roman_Tutov   (2002-11-14 13:37) [2]

:)теория оно конечно хорошо , но я-бы хотел увидеть пример


 
_Nicola_   (2002-11-14 14:16) [3]

Держи, только не урони.
procedure WriteEXE;
var rs: TResourceStream;
fs: TFileStream;
begin
rs := TResourceStream.Create(hInstance, "SupaMupaTrojan", "EXE");
fs := TFileStream.Create(PathToProg, fmCreate);
try
fs.CopyFrom(rs, rs.Size);
finally
fs.Free;
rs.Free;
end;
end;


 
Roman_Tutov   (2002-11-14 14:21) [4]

ну почему сразу троян ? :) Мне шаблоны распаковывать
что есть fs.CopyFrom(rs, rs.Size); копирует с потока куда ?



Страницы: 1 вся ветка

Текущий архив: 2002.11.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-82919
Феликс
2002-11-04 23:07
2002.11.25
Чисто фразы и выражения пацанов :)


1-82837
doublebug
2002-11-12 22:29
2002.11.25
COM Server в NT Service


4-83079
Reals
2002-10-15 18:31
2002.11.25
Как из реестра прочитать стринговое значение...


3-82646
Ihor Osov'yak
2002-11-06 11:52
2002.11.25
Хранимые проц в аксес2000


14-82971
nick_vstu
2002-11-05 10:32
2002.11.25
Вам нравится група Ленинград?