сохранение действий в программе после закрытия

[fins]

Здраствуйте, помогите пожалуйста, как сделать чтобы программа открывалась с того же момента на котором ее закрыли, те как будто не закрывали?? Обьяснил как смог

[Smitt&Wesson]

Сообщение от fins

Здраствуйте, помогите пожалуйста, как сделать чтобы программа открывалась с того же момента на котором ее закрыли, те как будто не закрывали?? Обьяснил как смог

"Как будто", - это для Вас. В систему - она закрыта...
Об этом можно узнать по классу (типу(сам не до конца разобрался)) HANDLE. (Дескриптор окна). Политика дескрипторов Вам в помощь->.

[chertovich]

Сообщение от fins

Здраствуйте, помогите пожалуйста, как сделать чтобы программа открывалась с того же момента на котором ее закрыли, те как будто не закрывали?? Обьяснил как смог

На каждый такой вопрос у меня всегда возникает вопрос: Зачем?
Например, можно загружать данные из файла или из чего-нибудь другого

[tsar_]

Если нужно сохранять настройки, то самое простое- запись оных в INI-файлы.

[kholoshchak]

Для того, что бы программа открывалась с сохраненного места необходимо использовать ini файл(ы).
Например: сохранение позиции формы и последних изменений при выходе

procedure TForm1.FormShow(Sender: TObject); 
Var f:file of Integer; // файловая переменная, тип integer 
i:Integer; // целочистенная переменная 
begin 
AssignFile(f,'pos.ini'); 
{$I-} // Отключаем контроль ошибок 
Reset(f); 
{$I+} // Включаем контроль ошибок
if IOResult<>0 then Exit; 
Read(f,i); //считать из файла значение 
Form1.Top:=i; // верхнее положение окна 
Read(f,i); 
Form1.Left:=i; // левое положение окна 
Read(f,i); 
Form1.Width:=i; // ширина окна 
Read(f,i); 
Form1.Height:=i; // высота окна 
CloseFile(f); 
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
Var f:file of Integer; // файловая переменная, тип integer
begin 
AssignFile(f,'pos.ini'); // Привязываем строку пути файла к файловой переменной
{$I-} // Отключаем контроль ошибок 
Rewrite(f); 
{$I+} // Включаем контроль ошибок
if IOResult<>0 then Exit; // Если ошибка то выходим 
Write(f,Form1.Top); // Записываем в файл положение окна по верикали 
Write(f,Form1.Left); // Записываем в файл положение окна по горизонтали 
Write(f,Form1.Width); // Записываем в файл ширину формы 
Write(f,Form1.Height); // Записываем в файл высоту формы 
CloseFile(f); // Завершаем работу с файлом 
end;

при компиляции будет ошибка. для этого необходимо в раздел описания USES добавить модуль inifiles;

Вроде так.........

ПОМОГ?????????



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Ship_1]

Позволю себе продолжить эту тему со странным названием конкретным вопросом (расширяющим последний ответ). Надеюсь, никто не против.
Через какие процедуры лучше сохранять позицию, размер и состояние (развёрнутое/свёрнутое/нормальное) окна для восстановления этих данных при загрузке?
OnClose и OnDestroy не подходят, т.к. при развёрнутости запоминаются именно эти значения, и при попытке вернуть форме "нормальные" значения - они возвращаются равными развёрнутому окну, а не те, которые были перед разворачиванием.
Пробовал сохранить координаты этим методом. Лэйбл показывал текущие координаты, но при запуске программы координаты оказывались равными poDesigned. Попробовал перенести блок присвоения координат из Create в Show и перед этим поставил

Panel1.Caption:=''

А в OnMove стал "загонять" значения в ini только при условии

If Panel1.Caption=''

Положение по X стало нормально восстанавливаться. Но странным образом по-прежнему остаётся poDesigned значениеY...
Фрагмент кода из OnMove

If  Panel1.Caption='' then
begin
  Inherited;
  Label1.Caption:='Ôîðìó ñäâèíóëè...'+IntToStr(form1.top);
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Настройки.ini');
  Ini.WriteInteger('Интерфейс','Позиция X',form1.left);
  Ini.WriteInteger('Интерфейс','Позиция Y',form1.top);
  Ini.Free;
end;

Фрагмент кода OnShow:

  Panel1.Caption:='';

  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\Настройки.ini');
  form1.left:=Ini.ReadInteger('Интерфейс','Позиция X',90);
  form1.top:= Ini.ReadInteger('Интерфейс','Позиция Y',200);
  Ini.Free;

Что за проблема тут такая странная?
Ну и как лучше всё-таки организовать сохранение параметров состояния окна, размеров и положения? С учётом, что если оно запускается развёрнутым - при переходе в нормальный режим должно принять размеры и позицию, которыебыли перед разворачиванием до предыдущего закрытия.

[min@y™]

ПОМОГ?????????

Убери немедленно говнокод с паблика и больше никогда так не делай!!!!!!

[Stilet]

Убери немедленно говнокод

Ты хоть бы на дату поста посмотрел... Это же некромантика.

OnClose и OnDestroy не подходят, т.к. при развёрнутости запоминаются именно эти значения, и при попытке вернуть форме "нормальные" значения - они возвращаются равными развёрнутому окну, а не те, которые были перед разворачиванием.

Чет я этого утверждения не понял...

Фрагмент кода из OnMove

ИНИ файл там создавать не комильфо. Всякие создавания делай при создании формы.

С учётом, что если оно запускается развёрнутым - при переходе в нормальный режим должно принять размеры и позицию, которыебыли перед разворачиванием до предыдущего закрытия.

А где ты запоминаешь состояние развернутости-свернутости?

[min@y™]

Ты хоть бы на дату поста посмотрел... Это же некромантика.

оймля, и правда, не обратил внимание, просто тыкнул в общем списке на верхнюю жирную ссылку.

Вообще, видал форумы, где на старых темах семафоры висят, типа "ахтунг, камраден, ласт каммент воз постед блин стопицот йеарс эгоу!" красным шрифтом.

[Ship_1]

Сообщение от Stilet

Чет я этого утверждения не понял...

Если развернуть окно, а потом свернуть его не закрывая - форма вернётся к размеру позиции, которое были перед разворачиванием.
Если её развернуть и закрыть, а сохранение позиции и размера записывать в ini в событии Close или Destroy, то значения, соответствующие развёрнутому окну и запишутся. И после следующего запуска при переходе в нормальный режим форма примет состояние wsNormal, но размеры и положение оставит соответствующие wsMaximized.

Сообщение от Stilet

ИНИ файл там создавать не комильфо. Всякие создавания делай при создании формы.

Т.е. Create ini-файла делать вместе с Create формы, а Ini.Free только при FormClose? Я их создаю там, где к ним обращаюсь, делаю необходимое и уничтожаю сразу. Какие у этого минусы?

Сообщение от Stilet

А где ты запоминаешь состояние развернутости-свернутости?

После неудачи с Close/Destroy я начал с координат. Развёрнутость-свёрнутость можно поместить в OnResize, впринципе, да и на Close/Destroy именно с этой переменной проблем не возникает.

Сообщение от min@y™

Вообще, видал форумы, где на старых темах....

И плодится тонна тем с одинаковым смыслом но чуть разными названиями. И при выполнении поиска по форуму (что некоторые особо умные очень любят советовать) вылетает несколько листов одного и того же с небольшими вариациями. Не думаю, что этот вариант лучше.