Problem z ramka i z Message boxem

0

procedure TForm1.FormCreate(Sender: TObject);
var
Reg : TRegistry;
KeyExists : Boolean;
Odp : Integer;
begin

Reg := TRegistry.Create;
try
KeyExists := Reg.OpenKey('Softwareble', False);
if not KeyExists then
begin
Odp:= Application.MessageBox('BLE BLE','', MB_YESNOCANCEL);
if Odp=IDYES then Frame3.Visible:=True
.....................

i wyskakuje mi błąd tego typu :
Project xxxx raised exception class yyyyy with message 'zzzzzz'.

CO JEst zle albo czego nie ma??

0

procedure TForm1.FormCreate(Sender: TObject);
var
Reg : TRegistry;

begin

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER; // ustaw klucz glowny
Reg.OpenKey('\Software', False);
if not Reg.KeyExists('ble') then
begin
if Application.MessageBox('BLE BLE','', MB_YESNOCANCEL)=IDYES then
Frame3.Visible:=True
{...}

Mysle, ze tak tez bedzie dobrze. I chyba chciales sprawdzic czy klucz istnieje... a sprawdzales czy go otworzyles. No i nie ustawiles klucza glownego (jesli ten co napisalem jest zly to zmien w/g wlasnych potrzeb).

[dopisane]
jJest cos takiego jak tag TU_KOD . Czyz moj kod nie wyglada czytelniej?

1 użytkowników online, w tym zalogowanych: 0, gości: 1