kod w delphi

Mam taki kod. Czy może mi ktoś powiedzieć co w nim jest żle?
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',true);
reg.WriteString('Nasz program',ParamStr(0));
reg.Free;
end;

end.

---

cytat:pixel napisał:

Mam taki kod. Czy może mi ktoś powiedzieć co w nim jest żle?

Pomieszałeś Buttona z FormCreate :)

Jeśli chcesz, żeby kod został wykonany bezpośrednio po uruchomieniu programu to linię:

Button1: TButton;

zamień na linię:

procedure FormCreate(Sender: TObject);

ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486

Chyba, że chcesz po kliknięciu na Buttona - musisz na niego 2x kliknąć i wtedy piszesz swoją procedurkę ;)

Teraz mam taki kod i nie chce wrzucić programu do autostartu
interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',true);
reg.WriteString('Nasz program',ParamStr(0));
reg.Free;
end;

end.

---

bo jeszcze musisz wejsc do zakladki "events" object inspector`a i kliknac dwa razy na pustym polu na prawo od OnCreate - powinno ci sie wyswietlic okno kodu Delphi, z Twoja procedura.

//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl

wszystko robie tak jak muwicie i coś mi to nie chce działać.
No nie wiem co jest zle.

Źle masz wpisane uses Registry;... wpisałeś go po implementation a powinieneś na początku programu czyli do tej reszty dopisać... Napiszę ci program, który możesz skopiowac zamiast tamtego:

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var reg:tregistry; begin reg:=tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey(SOFTWAREMicrosoftWindowsCurrentVersionRun',true); reg.WriteString('Nasz program',ParamStr(0)); reg.Free; end; end.

Anonymous AdSoft

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl