|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Открытие Word в Delphi и создание ini файла
Всем привет. Не подскажите, как сделать, чтобы по нажатии кнопки в программе, написанной на Delhi 2010, открывался документ Word, лежащий рядом с exe (наподобие справки)? И как сделать ini файл, в котором хранились бы значения переменных, передаваемые в эту программу? Всем заранее спасибо.
|
#2
|
||||
|
||||
Это сделать очень просто с ShellExecute, TIniFile и ParamStr. Я так уже сто раз делал.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Я первый раз. Не подскажите как?
|
#4
|
|||
|
|||
ShellExecute(0,'open','1.txt',nil,nil,0);
|
#5
|
||||
|
||||
Пример работы с файлом ini
Код:
procedure TForm1.FormCreate(Sender: TObject); var Text: TIniFile; WS: string; begin try Text:= TIniFile.Create(extractFileDir(ParamSTR(0))+'\ini.ini'); Top:=Text.ReadInteger('frmMain','Top',390); Left:=Text.ReadInteger('frmMain','Left',270); Height:=Text.ReadInteger('frmMain','Height',333); Width:=Text.ReadInteger('frmMain','Width',452); n1.Checked:= Text.ReadBool('frmMain','n1Checked',true); WS:= Text.ReadString('frmMain','WindowState','wsNormal'); if WS = 'wsMaximized' then WindowState:= wsMaximized else WindowState:= wsNormal; finally Text.Free; end; end; procedure TForm1.FormDestroy(Sender: TObject); var Text : TIniFile; WS: string; begin try Text:=TIniFile.Create(extractFileDir(ParamSTR(0))+'\ini.ini'); Text.WriteInteger('frmMain','Top',Top); Text.WriteInteger('frmMain','Left',Left); Text.WriteInteger('frmMain','Height',Height); Text.WriteInteger('frmMain','Width',Width); Text.WriteBool('frmMain','n1Checked',n1.Checked); if WindowState = wsNormal then WS:= 'wsNormal' else WS:= 'wsMaximized'; Text.WriteString('frmMain','WindowState',WS); finally Text.Free; end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |