Results 1 to 8 of 8
Thread: textbox ?
Hybrid View
-
26th November 2007 10:27 #1
textbox ?
,
Windows , - textbox. , , . ( Delphi) , textbox - . , ?
-
26th November 2007 14:31 #2
-
26th November 2007 14:51 #3
: SetWindowsHookEx. DLL, , . , , ( SetWindowsHookEx). , SendMessage. , DLL, CreateRemoteThread.
, Internet Dial-Up Networking
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
26th November 2007 15:06 #4
Spy++ , ( (GetDesktopWindow EnumChildWindows, ). . , EN_CHANGE . , , . , hook . - subclassing, hooking, DLL injection . Windows API. , . , . .
, , , .
.. ,
... - ...Last edited by Bombera; 26th November 2007 at 15:19.
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
26th November 2007 16:07 #5
- :
,
-,Code:procedure TMainF.OnTmr1(Sender: TObject); var hproc :Cardinal; ProcPID :Cardinal; // ID ControlH :Cardinal; // lResult :Cardinal; lvBuf:array[0..255] of char; begin ProcPID:=3060; ControlH:=854372; FillChar(lvBuf, 255, #0); hproc:=OpenProcess(PROCESS_ALL_ACCESS, False, ProcPID); If(hproc<>0)then begin Memo1.Clear; lResult:=SendMessage(ControlH, WM_GETTEXT, 255, DWord(@lvBuf)); // GetWindowText(ControlH, lvBuf, 255); Memo1.Lines.Add(lvBuf); end;//If CloseHandle(hproc); end;
-
26th November 2007 17:38 #6
lvBuff e , , . - -> , (IsWindowUnicode). .
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
26th November 2007 18:14 #7
, - WM_GETTEXT , , .
.. , , , ,
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
27th November 2007 09:58 #8
(Edit ) , HWND. win explorer, My Documents:
Code:procedure TMainF.Button1Click(Sender: TObject); const lcTitle='My Documents'; lcFindClass1 = 'WorkerW'; lcFindClass2 = 'ReBarWindow32'; lcFindClass3 = 'ComboBoxEx32'; var lvWnd, lvCtrl:HWND; Buffer:array[0..255] of Char; begin lvWnd:=FindWindow(nil, lcTitle); If(lvWnd <> 0)then begin lvCtrl:=FindWindowEx(lvWnd, 0, lcFindClass1, ''); If(lvCtrl<>0)then begin lvCtrl:=FindWindowEx(lvCtrl, 0, lcFindClass2, ''); If(lvCtrl<>0)then begin lvCtrl:=FindWindowEx(lvCtrl, 0, lcFindClass3, ''); If(lvCtrl<>0)then begin SendMessage(lvCtrl, WM_GETTEXT, 255, integer(@Buffer)); ShowMessage(Buffer); end; end; end; end; end;




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in