آژانس هواپیماییexchanging

Need help with asm

شروع موضوع توسط Wissam ‏21 دسامبر 2005 در انجمن Delphi

  1. Wissam

    Wissam کاربر تازه وارد

    تاریخ عضویت:
    ‏20 دسامبر 2005
    نوشته ها:
    2
    تشکر شده:
    0
    Salam all
    Iam new here in this forum,i need help with asm call in delhi.
    My friend give me this code
    and its work fine,its set the usericon over asm,but i dont know how he make this asm call.
    how can i find the function for seticon over asm and make a code for this.

    this code he gives me and it works,but i not uderstand how he maked this.
    type
    TArrc = array[0..5] of byte;
    var
    Call2 : integer = $22B0134 ; <<< what is this? what is the number $22B0134 from where it com
    uvbase: integer;
    uvbasep : ^integer;
    procedure TForm1.Button10Click(Sender: TObject);
    var
    p1 : ^TArrc;
    p2 : ^TArrc;
    p3,p4,p5 : ^integer;
    call2b : integer;
    s : OleVariant;
    begin
    s:=edit6.Text;
    uvbasep:=pointer(univoicex1.ControlInterface);
    uvbase:=uvbasep^-$2309864 ; <<< and this ? from where come this numbe?
    Call2b:=Call2+uvbase;
    p3:=Pointer(700+integer(uvbasep));
    p4:=pointer(integer(p3)+$2FC);
    p4:=pointer(p4^+$88);
    p1:=pointer(p4^+$18);
    p1^[0]:=s;
    p5:=pointer(Call2);
    asm
    push edx
    mov edx,p4
    mov edx,[edx]
    mov eax,p3
    mov eax,[eax+$304]
    call Call2b
    pop edx
    end;
    end;


    help plz

    what is this $22B0134 and from where it comes
    and this $2309864
     
  2. mamizadeh

    mamizadeh کاربر تازه وارد

    تاریخ عضویت:
    ‏25 سپتامبر 2005
    نوشته ها:
    78
    تشکر شده:
    0
    با سلام
    بابا ای والله انگلیسی هم که بلدی ولی لطفا سوادت را جای دیگه ای خرج کن و فارسی بنویس ببینم چی داری میگی آخه بابا مگه اسم سایت را ندیدی که پرشین تولز هستش .
    Please talk in this site persian
    mer30
    بای