Forum Açılışında Şifre Koymak (Delphi Kodu)

'Diğer Programlama Dilleri' forumunda acemihacker tarafından 3 Temmuz 2018 tarihinde açılan konu

  1. acemihacker

    acemihacker Ötüken Yolcusu Bronz Üye

    Mesaj:
    205
    Beğeniler:
    74
    Cinsiyet:
    Erkek
    Bu kod forum açılışında siteye şifre koymaya yarar

    Kod:
    // Formun oncreate olayına...
    procedure TForm1.FormCreate(Sender: TObject);
    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;
    end.
    ALINTIDIR!
     
Yükleniyor...

Bu Sayfayı Paylaş