Arsip: SendKeys

 
user image
more 17 years ago

clark

Tanya nih.. Ada yang Pernah pake perintah SendKeys Di Delphi ga? g ada sedikit masalah nih.. kalau kita menggunakan perintah sendkeys, aplikasi yang dikenakan perintah sendkeys itu kan harus dalam keadaan active, bagaimana caranya supaya aplikasi yang dikenakan perintah sendkeys itu ga dalam keadaan active? Jadi Form delphi kita (yang meberikan perintah sendkeys tsb) tetap selalu dalam keadaan active.
user image
more 17 years ago

Tbawor

kalau gak salah Sendkeys pakai parameter Handle, nah gunakan sj Handle aplikasi yg mau di Sendkeys. utk mencari Handle bisa pakai FindWindow; CMIIW
user image
more 17 years ago

clark

Pake perintah handle? gimana caranya ya.. saya udah coba tapi kok kayaknya gagal.. code yan saya coba kayak gini nih : .... findwindow('Calculator',nil); sendkeys('123',true); ... tapi kok ga terjadi apa2 ya.. Bisa tolong berikan sedikit codeny ga?
user image
more 17 years ago

p2bf

neh dapet nemu tapi lupa lg dimana muga aja bantu tapi buat kirim ke notepad, ya selanjutnya silahkan berkreasi

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  i: Integer;
  s: string;
begin
  wnd := FindWindow('notepad', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(wnd, 0, 'Edit', nil);
    s := 'woiiiiiiiiiiiiiiiiii';
    for i := 1 to Length(s) do
      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
  end;
end;
user image
more 17 years ago

clark

wnd := FindWindowEx(wnd, 0, 'Edit', nil); Parameter 'Edit' Fungsinya untuk apaan ya?
user image
more 17 years ago

xerion

letakin cursor di kata FindWindowEx lalu teken F1. apa katanya hayooooo .....
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com