Entwickler-Ecke :: Thema anzeigen - Eintrag in der Registry funzt nicht :(

Rabiosulus - Mi 16.07.03 13:37
Titel: Eintrag in der Registry funzt nicht :(

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 ) ;)

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

Delete - Mi 16.07.03 14:15

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

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 - Mi 16.07.03 14:53
Titel: Hat geklappt,

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!