Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизИнсталляция Найти похожие ветки
← →
guliver (2002-01-11 03:59) [0]Подскажите, пожалуйста, как свою прогу засунуть в инсталляшку?
← →
Beauty_Full (2002-01-11 04:09) [1]Берешь к примеру файл MyFile.dat.
Он состоит из байтов, вот и пишешь:
Procedure MakeUnit(FName,UName:String);
Var T:TStrings;
F:File;
Begin
AssignFile(F,FName);
Try Reset(F,1);
Except ShowMessage("Не могу открыть исходный файл...");Exit;End;
T:=TStringList.Create;
T.Add("Unit "+UName+";");
T.Add("Interface");
T.Add("Const Data:Array[1.."+IntToStr(FileSize(F))+"] of Byte=(");
{И читаешь по байту из F и пишешь в T}
CloseFile(F);
T.SaveToFile(UName+".pas");
T.Free;
End;
Ты уловил мысль ? Пишешь в проге своей Uses {Имя этого юнита};
Ну а при распаковке пишешь по байту из массива.
← →
Beauty_Full` (2002-01-12 03:31) [2]Ты понял ?
← →
Guliver (2002-01-22 04:19) [3]Да.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c