Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Да.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
3-66794           Demon ltd             2002-02-24 01:15  2002.03.21  
Работа с sql ом из базы в dbgreed и отчёт


1-66823           Michael C             2002-03-06 09:32  2002.03.21  
Если StrToInt глючит,


1-66853           sany                  2002-03-05 00:35  2002.03.21  
Как сделать, чтобы при запуске программы она (программа) копировала сама себя в другую папку (windows например)?


1-66889           SeF                   2002-02-22 11:44  2002.03.21  
Окна.........


1-66926           ak                    2002-03-06 18:47  2002.03.21  
проблема с версией BDE