Registry OpenKey hatası.

[vipaydin]

Arkadaşlar Merhaba.
Şu koda bir bakar mısınız?

Kod: Tümünü seç

Reg:TRegistry;
Regstr:String;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
If Reg.OpenKey('AYDIN\Config',False) then
begin
ShowMessage('Bağlantı Parametre hatası !'+Chr(13)+'Lütfen Bağlantı Parametrelerini Kontrol Ediniz')
end
else
begin
Regstr:=Reg.ReadString('File');
AssignFile(tf,''+Regstr+'');
yapılacak işlerin devamı.......
end;

Benim burada yapmak istediğim,
File isimli anahtarı açamazsa hata mesajını versin ve programı orada kırsın. Yok anahtarı açabiliyorsa işine gücüne devam etsin.
Anahtar yokken uyarı mesajını veriyor ama alt satırdaki kodlardan devam etmeye çalışıyor. Tabi hemen AssignFile deki Regstr yi bulamadığı için hata mesajını veriyor.
Burada ki nerede acaba?

[kelaynak2]

Kod: Tümünü seç

If Reg.OpenKey('AYDIN\Config',False) =false then 

şeklinde olmalı

[aslangeri]

s.a.
showmessage den sonra

Kod: Tümünü seç

exit;

koy
kolay gelsin.