Eintrag in der Registry funzt nicht :(

Rabiosulus · Hält's aus hier Beiträge: 2

Hallo zusammen,

ich bin eigentlich kein Delphiprogrammierer (noch nicht), und ich habe nur eine Demoversion von Delphi 6. Ich habe mal ein paar Beispiel-Tut´s nachgeproggt und komme nun bei dem Versuch eines Registryeintrag nicht weiter.
Folgenden Code habe ich geschrieben (kopiert )

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry;

type
  TForm1 = class(TForm)
  procedure FormClose(Sender: TObject);  ### scheint mir nicht ganz richtig oder ??
  private

    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var regist: TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\MeineFirma\MeinProgramm\1.0', true);
  regist.WriteInteger('Left', Form1.Left);
  regist.WriteInteger('Top', Form1.Top);
  regist.free;
end;

Mein Problem ist, das ich nicht weiss was zu Anfang deklariert werden muss, ausser das Registry in die Uses stehen muss.

Kann mir jemand einen Tipp geben was da falsch ist.

Danke Euch im voraus für die Hilfe,

Gruß Rabiosulus

Moderiert von UGrohne: Delphi-Tags eingefügt

Ehemaliges Mitglied Erhaltene Danke: 1

Eigentlich liegt´s auf der Hand, weil die Deklaration von "FormClose" unterschiedlich ist. Hast du das abgetippt? Nichts für ungut, aber im Objektinspektor kannst du unter Ereignisse "OnClose" finden - ein Doppelklick auf die rechte Seite neben der Angabe "OnClose", und Delphi legt den notwendigen Code samt Deklaration selbst an, so dass du nur noch den Teil zwischen

markieren

Delphi-Quelltext

1:
2:

begin
end;

füllen musst.

Und weil ich´s heut schon zweimal gesagt habe, sollst auch du auf die Delphi-Hilfe verwiesen werden. Speziell zu TRegistry. Selbst wenn du eine englische Delphi-Version hast und evtl. (weiß ich ja nicht!) mit Englisch auf Kriegsfuß stehst, findest du ein paar Beispielcodes, die dir weiterhelfen.
Insbesondere try-finally seien dir ans Herz gelegt. Aber -wie gesagt!- das siehst du auch sehr schön in den Beispielen in der Hilfe.

Rabiosulus · Hält's aus hier Beiträge: 2

danke für den Hinweis, hatte noch nicht alles ganz verstanden gehabt.
Aber mit dem Aufruf und dem Schließen des Fensters, so wie ich dachte hatte es nicht ganz geklappt, ich habe daher einen Button erstellt der dann diese Funktion aufruft, und dann hatte ich meinen Eintrag.

Vielen Dank und schöne Grüße

Rabiosulus

Ehemaliges Mitglied Erhaltene Danke: 1

Gern geschehen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme