delphi: 수첩을 열고 내용을 쓰기

307 단어 Delphi
procedure TForm.ButtonClick(Sender: TObject);

var

  hEdit: HWND;

  str: string;

begin

  str := '             ';

  WinExec('Notepad.exe', SW_SHOWNORMAL);

  hEdit := GetWindow(GetForegroundWindow, GW_CHILD);

  SendTextMessage(hEdit, WM_SETTEXT, 0, str);

end;

좋은 웹페이지 즐겨찾기