Új hozzászólás Aktív témák

• #579 Hani aktív tag Sixkiller6 #578

  Új Válasz 2005-02-14 02:36:51 #579

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Hani

  aktív tag

  válasz Sixkiller6 #578 üzenetére

  Jajajaj... a Fórummotor lecserélte a Word( s[ i ]) -t ... csodálkoztam is, hogy miért lett kurzív minden az s után...
  
  Mellesleg lehet, hogy simán megy
  SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('C'), 0);
  módon is a dolog - ha igen, akkor nem kell ablakot keresgélni, ami örvendetes.
  Ekkor simán csinálhatnánk egy paraméterezett eljárást, char paraméterrel, ami a 'C' helyére kerülne... csak most nem tudom kipróbálni.
  
  
  [Szerkesztve]

• #577 Hani aktív tag Sixkiller6 #576

  Új Válasz 2005-02-13 22:44:36 #577

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Hani

  aktív tag

  válasz Sixkiller6 #576 üzenetére

  A PostMessage körül kell keresgélned.
  
  Ha már úgyis benne vagyunk az ablakoknak küldött üzenetekben, küldjük el ezt a bill-leütést pl. a Notepad-nak.
   
  
  Procedure TForm1.Button1Click(Sender: TObject);
     Var
        wnd : HWND;
        i : Integer;
        s : String;
     Begin
        //Megkeressük a notepadot
        wnd := FindWindow('notepad',nil);
        If wnd <> 0 then
           Begin
              wnd := FindWindowEx(wnd,0,'Edit',nil);
              // Ha már úgyis megtaláltuk, beleírunk jól:
              s := 'NoMijaFene,NemisNyútama Billyenjtyúkho';
              For i := 1 to Length(s) do
                 SendMessage(wnd, WM_CHAR, Word(s), 0);
              // nyomunk utána egy [ENTER]-t, hogy szép legyen
              PostMessage(wnd, WM_KEYDOWN , VK_RETURN, 0);
              // vagy [SPACE]-t, vagy... ezeket megtalálod a helpben.
              PostMessage(wnd, WM_KEYDOWN , VK_SPACE, 0);
           End;
  End;
  
  
  Szerk: Hinye, de szépen megformázta...
  
  [Szerkesztve]

Új hozzászólás Aktív témák