|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
единичный показ формы
Вот собствено есть программа которая последовательно запускает два приложения, вот код Код:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); Код: begin WinExec('-',SW_SHOWNORMAL); end; procedure TForm1.Timer2Timer(Sender: TObject); begin WinExec('-',SW_SHOWNORMAL); close() end; но нужно вывести только при первом запуске приложения, и все что будет в edit зафиксировать в WinExec для следующих запусков с такими параметрами. програмирую не давно, как можно ето осуществить если можно с пояснениями. Заранее спасибо |
#2
|
||||
|
||||
Не совсем понял вопрос но возможно ини файлы подойдут
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Код:
if not FileExists(ExtractFilePath(Application.ExeName) + 'Params.ini') then Form1.ShowModal; with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do begin WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL); WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL); Free; end; Код:
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do begin WriteString('Param1', 'Params', Edit1.Text); WriteString('Param2', 'Params', Edit2.Text); Free; end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#5
|
||||
|
||||
Хм. Зачем заморачиваться? Не проще ли создать просто форму прямо в программе и создавать и показывать во время создания основной формы в событии OnCreate, сохранять введенные данные и потом удалять форму.
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#6
|
|||
|
|||
Цитата:
Код:
[Error] Unit1.pas(30): Undeclared identifier: 'TIniFile' [Error] Unit1.pas(32): Undeclared identifier: 'ReadString' [Error] Unit1.pas(32): ')' expected but ',' found [Error] Unit1.pas(33): ')' expected but ',' found [Error] Unit1.pas(34): Undeclared identifier: 'Free' [Error] Unit1.pas(36): '.' expected but ';' found [Error] Unit1.pas(39): 'DO' expected but identifier 'Create' found [Error] Unit1.pas(41): Undeclared identifier: 'WriteString' [Error] Unit1.pas(46): ';' expected but '.' found [Error] Unit1.pas(48): Declaration expected but end of file found [Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.FormCreate' [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' |
#7
|
|||
|
|||
Код:
implementation uses IniFiles; Не забывайте делать резервные копии |
#8
|
|||
|
|||
Может я и ошибаюсь но здесь ты чего со скобками не дописал.
WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL); WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL); |
#9
|
||||
|
||||
Да.
Код:
WinExec(PChar(ReadString('Param1', 'Params', '')), SW_SHOWNORMAL); WinExec(PChar(ReadString('Param2', 'Params', '')), SW_SHOWNORMAL); Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |