troyan90 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   [_code] procedure NewButtonClick(Sender: TObject); var   TextFile, Str: TStringList; begin   TextFile := TStringList.Create;   Str := TStringList.Create;   try     with TextFile do begin       Str.LoadFromFile(ExpandConstant('{sd}\text1.txt'));       AddStrings(Str);       Str.LoadFromFile(ExpandConstant('{sd}\text2.txt'));       AddStrings(Str);       SaveToFile(ExpandConstant('{sd}\text1.txt'));     end;   finally     TextFile.free;     Str.Free;   end; end;   procedure InitializeWizard(); var   NewButton: TNewButton; begin   NewButton := TNewButton.Create(WizardForm);   with NewButton do begin     Parent := WizardForm;     Left := ScaleX(8);     Top := ScaleY(325);     OnClick := @NewButtonClick;   end; end;   Всего записей: 397 | Зарегистр. 24-04-2010 | Отправлено: 19:46 02-09-2011 | Исправлено: troyan90, 19:47 02-09-2011

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

articlebot (13-10-2013 23:33): продолжение темы - №15

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование