Süpriz Yumurta Delphi(Surprice Egg)

Tahribat.com Forumları
line

Delphi - Pascal
line

02/Haz/14 20:42 Kısayol Şikayet Özel Mesaj
DuPi

Kayıt Tarihi: 21/Ağustos/2005
Süpriz Yumurtanın ne olduğunu bilmeyenler için hemen örnek vereyim, Oyunlarda bazı tuşlara basınca hile aktif olur ya o tarz birşey

delphide nasıl yapılır. bir arkadaşın isteği üzerine basit birşey hazırladım. burayada koyayım arkadaşlar faydalansın...

öncelikle global bir string değişkeni tanımlayın.
```
var
  Form1: TForm1;
  yumurta:string;
```
Onu yaptıktan sonra bir procedure hazırlıyoruz.
```
procedure suprizyumurta(Key:string);
var
suprizKodu : string;
begin
suprizKodu:='dupi';
yumurta := yumurta+Key;
if GetAsyncKeyState(VK_ESCAPE)<>0 then yumurta:='';
if pos(suprizKodu,yumurta)>0 then
begin
    yumurta:='';
    ShowMessage('YAPILACAK İŞLEMLER');
end;
end;
```
Bu kodu kullanmak içinde

formun onKeyPress kısmına
```
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
suprizyumurta(key);
end;
```
Ne zaman birşey öğrenmek istesem, Birden Vaktim Kalmıyor ?
Alıntı yap
02/Haz/14 20:47 Kısayol Şikayet Özel Mesaj

hsyN

Kayıt Tarihi: 15/Şubat/2011

ingilizccesi easter egg, daha fazla sonuç alırsınız böyle ararsanız. forumda da konuları olması lazım 2-3 tane

edit: forumdaki bi konuyu bulabildim sadece ama aramaya devarm

http://tahribat.com/Forum-Windows-Un-Gizli-Surprizleri-138221/

edit2. niye böyle bişi yapıyom bi an ayıkamadım, konuyla alakasız alkdssad
hsyN tarafından 02/Haz/14 20:52 tarihinde düzenlenmiştir

test 1 2

Alıntı yap
02/Haz/14 21:09 Kısayol Şikayet Özel Mesaj

DuPi

Kayıt Tarihi: 21/Ağustos/2005

hsyN bunu yazdı

ingilizccesi easter egg, daha fazla sonuç alırsınız böyle ararsanız. forumda da konuları olması lazım 2-3 tane

edit: forumdaki bi konuyu bulabildim sadece ama aramaya devarm

http://tahribat.com/Forum-Windows-Un-Gizli-Surprizleri-138221/

edit2. niye böyle bişi yapıyom bi an ayıkamadım, konuyla alakasız alkdssad

:) dayı çay, kahve

Ne zaman birşey öğrenmek istesem, Birden Vaktim Kalmıyor ?

Alıntı yap

Toplam Hit: 2333 Toplam Mesaj: 3

Cevapla