終了前の情報を保存

解決

JILL 2005-08-01 01:57:05 No: 16746

もともとLabel1.Captionに「test」と入力されていて、
それを起動後の処理で「test」→「test2」と変更して終了し、
次に起動したときにLabel1.Captionに「test2」と
表示させることはできるのでしょうか？
（ファイルの読み込みなどを使わずに）

ふむ 2005-08-01 02:53:38 No: 16747

いくらでもありますよー。
書き込みはこうですよね、みなの衆。

procedure TForm1.SaveInit;
var
  sl: TStringList;
  path: string;
begin
  sl := TStringList.Create;
  try
    sl.Values['Label1.Caption'] := Label1.Caption;
    path := ExtractFilePath(ParamStr(0));
    sl.SaveToFile(path + 'My.ini');
  finally

sl.Free;
end;

end;

ふむ 2005-08-01 02:55:24 No: 16748

これじゃだめだったね。
レジストリーに書けばどうですか。
あとは自分で覚えておく。<-これはお勧め

ふむ 2005-08-01 03:00:56 No: 16749

常駐させる
データベースに記録する
ファイルに書かずにはキツイですね。
昔、PCのメモリに残す方法のウィルスがあったのですが、破壊行為みたいですな。

JILL 2005-08-01 03:13:44 No: 16750

いまいち分からないんでファイル使ってすることにします＾＾；
どうもありがとうございました。

JILL 2005-08-01 03:14:01 No: 16751

チェックし忘れましたｗ