終了前の情報を保存

解決

---

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

編集    削除

---

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


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;

編集    削除

---

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

編集    削除

---

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

編集    削除

---

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

編集    削除

---

チェックし忘れましたｗ

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。