var wnd:HWND;
begin
  wnd := FindWindow('notepad', nil);
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);
  if wnd=0 then exit;
  caption:=inttostr(wnd);
  PostMessage(wnd, WM_KEYDOWN, VK_CONTROL, 0);
  PostMessage(wnd, WM_KEYDOWN, ord('S'), 0);
 // PostMessage(wnd, WM_CHAR, Word('s'), 0);
  PostMessage(wnd, WM_KEYUP, ord('S'), 0);
  PostMessage(wnd, WM_KEYUP, VK_CONTROL, 0);