Results 1 to 8 of 8

Thread: textbox ?

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User mooncow's Avatar
    Join Date: Jul:2004
    Location:
    Posts: 501

    textbox ?

    ,
    Windows , - textbox. , , . ( Delphi) , textbox - . , ?


  2. #2
    Registered User vegasis's Avatar
    Join Date: Jun:2005
    Location:
    Posts: 1,156
    , ?
    ?

    Olly ( ), '' ( ), ( ), .

    , , . .

  3. #3
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    : 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

  4. #4
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    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|

  5. #5
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402
    - :
    ,
    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;
    -,

  6. #6
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    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|

  7. #7
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    , - WM_GETTEXT , , .
    .. , , , ,
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  8. #8
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402
    (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;

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |