Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниззаписать файл вкомпилированный в экзешник на винт Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c