안녕하세요 언제나 초보 바보감자입니다......
윈도우 API사용하셔야 합니다
뭐..소스 만 가르쳐 드리면 간단 합니다만...
procedure TForm1.Button2Click(Sender: TObject);
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_SETTEXT,length(Memo1.text),integer(memo1.text)); //WM_GETTEXTLENGTH, 0, 0);
end
end;
메모 컴포 하나 가져다 놓고 버튼에 이렇게 입력 하시고 노트패드 띄우시는건 아신다고 하시니까 띄우고 메모 콤포에 입력하고 버튼 눌러보세요...
^^;;; 꼭 API에 대해서 이렇게 조금씩 사용하면서..숙지하시면..
더욱 몸값을 높게 잡으실꺼라 생각됩니다..
뭐..몸매 좋으시면.. ^^;; 안하셔두 대구요..
그럼 수고하세요...
윈도우 API사용하셔야 합니다
뭐..소스 만 가르쳐 드리면 간단 합니다만...
procedure TForm1.Button2Click(Sender: TObject);
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_SETTEXT,length(Memo1.text),integer(memo1.text)); //WM_GETTEXTLENGTH, 0, 0);
end
end;
메모 컴포 하나 가져다 놓고 버튼에 이렇게 입력 하시고 노트패드 띄우시는건 아신다고 하시니까 띄우고 메모 콤포에 입력하고 버튼 눌러보세요...
^^;;; 꼭 API에 대해서 이렇게 조금씩 사용하면서..숙지하시면..
더욱 몸값을 높게 잡으실꺼라 생각됩니다..
뭐..몸매 좋으시면.. ^^;; 안하셔두 대구요..
그럼 수고하세요...
P.S 함수 설명은 검색 해보시면 많이 나올껄로 압니다..