- Katılım
- 12 Eylül 2014
- Mesajlar
- 167
- Tepkime puanı
- 0
- Puanları
- 0
Formun on create olayına...
Kod:
[/FONT][/COLOR][COLOR=#B5B5B5][FONT=tahoma]procedure TForm1.FormCreate(Sender: TObject);[/FONT][/COLOR]
var
x,b:string;
begin
b:='Buraya şifre giriniz';
x:=inputbox('Programa Giriş','Programa girmek için şifreyi Giriniz:','');
if x=b then
application.messagebox('Programa Girişiniz Onaylandı.Tebrikler ..!','Tebrikler',mb_ok+mb_defbutton1)
else
halt;
end; [COLOR=#B5B5B5][FONT=tahoma]end.[/FONT][/COLOR][COLOR=#B5B5B5][FONT=tahoma]