Keygen hazırlamaq(Video dərs)

[AliZairov]

Musa tşk. Allah razı olsun. Kodu yazmısan qısaca zəhmət deyilsə mənə nə lazımdı yazmadın axı. Sadəcə edit var. Bəs kodu klik kimi buttona yazım?

[Guest Musa_]

Bağışla hələlik yaza bilməyəcəm(dərslərə görə)

Kodda da problem var deyəsən..Yoxlayacam

Vaxt olan kimi video dərs-də hazırlayacam..

[AliZairov]

Musa ok. İşində ol. Mən yoxlayacam. Əgər alınsa cvb yazaram.

[Guest Musa_]

Oldu..

[AliZairov]

Musa başqa formdan bu kodları tapdım. Alındı. Amma gəlki bəs mən öz istədiyim kodu necə yazacam?

 

Deməli TEdit və TButton lazımdır. Button-a 2 dəfə klik edin və bu kodları yazın:

 

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, x2, y2 : integer;

begin

x := Random(100000);

x2 := Random(100000);

y := Random(100000);

y2 := Random(100000);

 

Edit1.Text := IntToStr(x)+ '-' + IntToStr(x2)+ '-' + IntToStr(y)+ '-' + IntToStr(y2)

[Guest Musa_]

Elə məndə onu deyirdim kodda səhv var..Mən də onu tapa bilmədim..

[telebe_adna]

men bunu Delphi7-de yazmiwam..

[Ʌüsal]

Burda oz programinin acarini yaza bilersen

 

procedure TForm1.Button1Click(Sender: TObject);

var

X1, X2, X3, X4 : Integer;

begin

X1 := Random(1234);

X2 := Random(5678) ;

X3 := Random(9123) ;

X4 := Random(5698) ;

 

Edit1.Text := IntToStr(1234) + \'-\' + IntToStr(5678) + \'-\' + IntToStr(9123) + \'-\' + IntToStr(5698);

[Elvin Məlikov]

Təşəkkürlər Musa.

[Guest Musa_]

Təşəkkür VüSaL məlumata görə...

Dəyməz Elvin

[AliZairov]

Vüsal salam tşk. Allah razı olsun.

[Ʌüsal]

deymez

elave olaarq deyiskende kodlar yazm,aq mumkundur onun kodunuda duzub qosub yerlesdirecem forma.

[AliZairov]

Vüsal. Bəs o kodlar biraz riyazi koda bənzəmirmi? Bax elə kodları hardan tapa bilərəm?

[Ʌüsal]

bu movzuya aidiyati yoxdu bu kodun yerini deyisdir Delphi bolmesine ac movzunu yendien

burdan silinecek

[Yunis Abdulkerimov]

videonun linklər işləmir yeniləyə bilərsən?

 

[Elit-killer]

Yunis Abdulkerimov share.az işləyir ora bax 2ci linkə

 

buyur