salam kenal untuk semua, ku orang baru yang baru nimbrung disini n ku mau tanya tentang bagai mana akses kode ascii untuk ctrl n alt mungkin kalo ada yang bisa bantuin q donk. sekian n makasi.

maksudnya untuk detect penekanan tombol ctrl + alt?

y g mana buat kendaliin key board CTRL & ALT

coba cari di Delphi help : Virtual Key Codes, dalam Windows keystroke untuk tombol2 tertentu sudah didefinisikan sebagai konstanta

mei bi (mungkin/meureun) gini kali... bisa cobain aja pake ini.. VK_LSHIFT = 160; VK_RSHIFT = 161; VK_LCONTROL = 162; VK_RCONTROL = 163; VK_LMENU = 164; VK_RMENU = 165;

Klo yang dimaksud untuk simulasi penekanan ctrl + alt ,so here they are //procedure untuk mensimulasikan penekanan tombol procedure VKeyDown(wVK : WORD;extended : boolean); var a: TInput; begin a.Itype := 1; a.ki.Wvk := wVK; a.ki.wScan := 0; if extended then a.ki.dwFlags := KEYEVENTF_EXTENDEDKEY else a.ki.dwFlags := 0; a.ki.time := 0; a.ki.dwExtraInfo := getMessageExtraInfo; sendInput(1,a,sizeof(TInput)); end; //procedure untuk mensimulasikan pelepasan tombol procedure VKeyUp(wVK : WORD;extended : boolean); var a: TInput; begin a.Itype := 1; a.ki.Wvk := wVK; a.ki.wScan := 0; a.ki.dwFlags := KEYEVENTF_KEYUP; if extended then a.ki.dwFlags := a.ki.dwFlags + KEYEVENTF_EXTENDEDKEY; a.ki.time := 0; a.ki.dwExtraInfo := getMessageExtraInfo; sendInput(1,a,sizeof(TInput)); end; procedure TForm1.Button1Click(Sender: TObject); begin { contoh - simulasi penekanan dan pelepasan ctrl + alt + a } VKeyDown(VK_LCONTROL,false); VKeyDown(VK_LMENU,false); VKeyDown(65,false); VKeyUp(VK_LMENU,false); VKeyUp(VK_LCONTROL,false); VKeyUp(65,false); end; -------------------- keep on move on :) --------------------