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

• #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