Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Как сохранить изменения Найти похожие ветки
← →
random © (2004-04-12 08:36) [0]Написал прогу, прописал ее в автозагрузку, но вот проблема, эта извините за выражения, сволочь, не сохраняет изменения в настройках, сделанных во время предыдущего сеанса работы. Как сохранять эти изменения?
← →
Digitman © (2004-04-12 08:49) [1]
> Как сохранять эти изменения?
например, не пытаться сохранять настройки в boot-секторе раздела
← →
Yanis © (2004-04-12 08:49) [2]Ты думаешь если прописал прогу в автозагрузку, то она будет настройки сохранять? Положение окна, шарина, высота и т.д.?
← →
Random © (2004-04-12 09:00) [3]нет, у меня там менюшка "опции", так вот они и не сохраняются (радиокнопки и.т.д)
← →
Рамиль © (2004-04-12 09:11) [4]А где ты их сохраняешь?
← →
Random © (2004-04-12 09:18) [5]Вот в этом-то и вопрос. Где и как их сохранять?
← →
Digitman © (2004-04-12 09:21) [6]
> Random © (12.04.04 09:18) [5]
варианты - в реестре (TRegistry), в ini-файле (TIniFile)
← →
Digitman © (2004-04-12 09:23) [7]
> прописал ее в автозагрузку
а этот комментарий к чему ?
← →
Anatoly Podgoretsky © (2004-04-12 09:37) [8]А как же, прописал, а она сволочь.
← →
random © (2004-04-12 11:29) [9]мне нужно, чтобы при следующем запуске сохранились настройки, сделанные в предыдущем
← →
Reindeer Moss Eater © (2004-04-12 11:32) [10]А ты сохраняешь их?
← →
clickmaker © (2004-04-12 11:56) [11]И восстанавливаешь?
← →
Ivolg © (2004-04-12 12:44) [12]Надеюсь поймёшь:
-----------------------Загрузка-------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
WITH TIniFile.Create(ChangeFileExt(
Application.ExeName,".INI")) DO
try
Left := ReadInteger("Main", "Left", 40);
Top := ReadInteger("Main", "Top", 40);
Width := ReadInteger("Main", "Width", 400);
Height := ReadInteger("Main", "Height", 400);
ListBox1.ItemHeight := ReadInteger("Spacing","Vertical",38);
ListBox1.Tag := ReadInteger("Spacing","Horizontal",38);
radiobutton1.Checked:=readBool("rrrrr","sjdhdh",radiobutton1.Checked);
Quiet1.Checked := ReadBool("Options", "Quiet", False);
OpenDialog1.FilterIndex := ReadInteger("Options", "Default file type", 1);
finally
Free;
end;
DragAcceptFiles(Handle, True);
DragAcceptFiles(Application.Handle, True);
Application.OnMessage := application.OnMessage;
end;
------------------------------------------------------------------------------
----------------------------------Сохранение----------------------------------
begin
WITH TIniFile.Create(ChangeFileExt(
Application.ExeName,".INI")) DO
try
IF WindowState = wsNormal THEN
BEGIN
WriteInteger("Main", "Left", Left);
WriteInteger("Main", "Top", Top);
WriteInteger("Main", "Width", Width);
WriteInteger("Main", "Height", Height);
END;
WriteInteger("Spacing","Vertical",ListBox1.ItemHeight);
WriteInteger("Spacing","Horizontal",ListBox1.Tag);
WriteBool("rrrrr","sjdhdh",radiobutton1.Checked);
WriteBool("Options", "Quiet", Quiet1.Checked);
WriteInteger("Options", "Default file type", OpenDialog1.FilterIndex);
finally
Free;
end;
uses: ShellApi, IniFiles ;
← →
-=Denn=- © (2004-05-07 15:53) [13]Надежнее всего сохранять в реестре, но можно и в .ini ,
но если ты хранишь важную инфу, то лучше ini-файл
закадировать
← →
Gero © (2004-05-08 11:56) [14]
> Надежнее всего сохранять в реестре
Да... очень надежно.
IniFile - лучший для таких целей.
← →
OlegGashev © (2004-05-09 21:52) [15]http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N146
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.039 c
