노심초사 wrote:

> 저,,,

>

> 다른 프로그램의 컨트롤의 핸들을 알아 냈는데, 그 핸들로 컨트롤의 속성을 어떻게 제어 하죠?

> 예를들어 메모장의 lines내용을 ...어떻게 알아 오나요..?



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function ReadFromNotepad: String;

var

h: hwnd;

Text: String;

NumCaracters: Integer;

begin

h := FindWindow('notepad',nil);

h := FindWindowex(h,0,'edit',nil);

if h <> 0 then

begin

NumCaracters := SendMessage(h, WM_GETTEXTLENGTH, 0, 0);

SetLength(Text, NumCaracters);

SendMessage(h, WM_GETTEXT, NumCaracters+1, Integer(Text));

Result := Text;

end

else

Result := 'ERROR!';

end;



procedure TForm1.FormActivate(Sender: TObject);

begin

WinExec('notepad', SW_SHOWNORMAL);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Text := ReadFromNotepad;

end;



end.

다른 프로그램의 컨트롤 핸들을 어떻게 알아 낼 수 있나요?