- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Melyik tápegységet vegyem?
- Egér probléma
- Azonnali processzoros kérdések órája
- Projektor topic
- Posztapokaliptikus Radeon kártya készül a Sapphire műhelyében
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Androidos fejegységek
- ASUS ROG Ally
- Samsung LCD és LED TV-k
Hirdetés
-
Deadlock - Kiszivárgott néhány kép a Valve Overwatch klónjából
gp A játék a hírek szerint nem egyszerűen a Blizzard játékának a másolata lesz, hanem több stílus is összekeveredik benne.
-
Hardverek pünkösdre
ph E-book olvasók, komponensek és perifériák kerültek hétvégi összeállításunkba.
-
A tüntetések ellenére is bővítheti német gyárát a Tesla
it Hiába a nagy tüntetések, a helyi önkormányzat rábólintott a Tesla német gyárbővítésére.
Új hozzászólás Aktív témák
-
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] -
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]
Új hozzászólás Aktív témák
- ÁR ALATThinkPad Thunderbolt 3 Dock (40AC) úttörő, 13 portos dokkoló megoldás akár ingyenes szállítás
- Delonghi mobilklíma eladó, megkímélt, hibátlan
- Eladó i5 7500 3.4GHz + ASUS GTX 1050 Ti 4GB + 2x8GB DDR4 2400MHz + Kingston 500GB SSD
- Huawei Sound - Co-Engineered with Devialet - gyönyörű kis méregzsák
- iPhone 13 mini RED 256GB tárhely - független
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs