delphi模擬按鍵實(shí)現(xiàn)粘貼快捷鍵ctrl+V.keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);keybd_event(ord(''V''), MapVirtualKey(ord(''V''), 0), 0, 0);keybd_event(ord(''V''), MapVirtualKey(ord(''V''), 0), KEYEVENTF_KEYUP, 0);keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);以上代碼delphi7親測(cè)可用。

用Delphi模擬鍵盤(pán)輸入/鼠標(biāo)點(diǎn)擊 - xiaoma的日志 - 網(wǎng)易博客用Delphi模擬鍵盤(pán)輸入/鼠標(biāo)點(diǎn)擊。keybd_event($49,0,KEYEVENTF_KEYUP,0);例子1：模擬按下''A''鍵　　 keybd_event(65,0,0,0);　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);例子2：模擬按下''ALT+F4''鍵　　 keybd_event(18,0,0,0);　　 keybd_event(115,0,0,0);　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);

delphi編程開(kāi)啟和關(guān)閉小鍵盤(pán)。{for Win95/98} if state then ks[key] := ks[key] or 1 else ks[key] := ks[key] and 254;keybd_event(key, ScanCode, {KEYEVENTF_EXTENDEDKEY} 0, 0);{Simulate a key release} keybd_event(key, ScanCode, {KEYEVENTF_EXTENDEDKEY or } KEYEVENTF_KEYUP, 0);開(kāi)啟小鍵盤(pán)：SwitchToggleKey(VK_NUMLOCK,true);

keybd_event(VK_CONTROL,NULL,NULL,NULL);keybd_event(''V'',NULL,NULL,NULL);keybd_event(''V'',NULL,KEYEVENTF_KEYUP,NULL);keybd_event(VK_CONTROL,NULL,KEYEVENTF_KEYUP,NULL);keybd_event(VK_MENU,NULL,NULL,NULL);keybd_event(''S'',NULL,NULL,NULL);keybd_event(''S'',NULL,KEYEVENTF_KEYUP,NULL);keybd_event(VK_MENU,NULL,KEYEVENTF_KEYUP,NULL);

keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP,0);//此處可以用 'A', (BYTE)65, 用'a'不起作用. keybd_event('A', (BYTE)0, KEYEVENTF_KEYUP,0); keybd_event(VK_CONTROL, (BYTE)0, KEYEVENTF_KEYUP,0);keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP ,0);input[0].ki.wVk = input[3].ki.wVk = VK_LWIN;input[0].ki.time = input[1].ki.time = input[2].ki.time = input[3].ki.time = GetTickCount();

Public Sub SetNumLock(ByVal bLock As Boolean) Dim Check As Boolean, ScanCode As Long Check = CBool(GetKeyState(vbKeyNumlock)) If Check bLock Then ScanCode = MapVirtualKey(vbKeyNumlock, 0) Call keybd_event(vbKeyNumlock, ScanCode, 0, 0) Call keybd_event(vbKeyNumlock, ScanCode, KEYEVENTF_KEYUP, 0) End IfEnd Sub.

通過(guò)調(diào)用api來(lái)模擬鍵盤(pán)或鼠標(biāo)操作。keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP,0);(1) 模擬鼠標(biāo)動(dòng)作API函數(shù)mouse_event，它可以實(shí)現(xiàn)模擬鼠標(biāo)按下和放開(kāi)等動(dòng)作。VOID mouse_event( DWORD dwFlags, // 鼠標(biāo)動(dòng)作標(biāo)識(shí)。獲取當(dāng)前鼠標(biāo)位置使用GetCursorPos()函數(shù)，設(shè)置當(dāng)前鼠標(biāo)位置使用。通常游戲角色的行走都是通過(guò)鼠標(biāo)移動(dòng)至目的地，然后按一下鼠標(biāo)的按鈕就搞定了。

keybd_event(VK_LWIN,0,0,0);keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);4.1 隱藏任務(wù)欄 隱藏 ::ShowWindow (::FindWindow("Shell_TrayWnd",NULL),SW_HIDE); or ::ShowWindow (::FindWindow("Shell_TrayWnd",NULL),SW_HIDE); 顯示 ::ShowWindow (::FindWindow("Shell_TrayWnd",NULL),SW_SHOW); or ::ShowWindow (::FindWindow("Shell_TrayWnd",NULL),SW_SHOW);

SendMessage(h,WM_SETTEXT,255,Integer(PChar(''我來(lái)測(cè)度了'')));WM_CUT、WM_COPY和WM_PASTE　　剪切，復(fù)制，粘帖。★WM_SETTEXT 應(yīng)用程序發(fā)送此消息來(lái)設(shè)置一個(gè)窗口的文本?！颳M_GETTEXT 應(yīng)用程序發(fā)送此消息來(lái)復(fù)制對(duì)應(yīng)窗口的文本到緩沖區(qū)?！颳M_QUERYOPEN 用戶(hù)窗口恢復(fù)以前的大小位置時(shí)，把此消息發(fā)送給某個(gè)圖標(biāo)?！颳M_QUERYENDSESSION 消息后，此消息發(fā)送給應(yīng)用程序，通知它對(duì)話(huà)是否結(jié)束。SendMessage(hwnd,WM_GETTEXT,256,lparam);

“聰明的程序員用Delphi！”現(xiàn)在，真是有越來(lái)越多的人開(kāi)始用Delphi了。procedure TForm2.→將焦點(diǎn)上移一行：For i:=0 to ListView1.Items.Count-1 Do If (ListView1.Items[i].Selected) and (i>0) then begin ListView1.SetFocus; ListView1.Items.Item[i-1].Selected := True; end;不過(guò)在Delphi6中，ListView多了一個(gè)ItemIndex屬性，所以只要ListView1.SetFocus;ListView1.ItemIndex:=3;就能設(shè)定焦點(diǎn)了。

答： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_down then perform(WM_NEXTDLGCTL,0,0) else if key=vk_up then perform(WM_NEXTDLGCTL,1,0); end; ================================ 12、如何用delphi5實(shí)現(xiàn)讀文本文件指定的一行，并得到文本文件的總行數(shù)？

如何在自己的系統(tǒng)中打開(kāi)并關(guān)閉外部程序 如何在自己的系統(tǒng)中打開(kāi)并關(guān)閉外部程序 大家知道，在一個(gè)大型復(fù)雜的系統(tǒng)中，有時(shí)會(huì)調(diào)用一些外部程序來(lái)幫助我們完成某些特定功能。其中ExeHandle是程序窗體的句柄，但如何得到窗體句柄呢？//獲得句柄-->標(biāo)題確定 ExeHandle:=findWindow(nil,''文件管理器'');//返回句柄 //關(guān)閉程序 if ExeHandle0 then SendMessage(ExeHandle,WM_Close,0,0) else.

//創(chuàng)建Directshow中的FilterGraph COM對(duì)象并返回IGraphBuilder接口 VideoRender:=createcomobject(CLSID_VideoMixingRenderer) as IBaseFilter; //創(chuàng)建Directshow中的VideoMixingRenderer Filter COM對(duì)象并返回IBaseFilter接口 SampleGrabber:=createcomobject(CLSID_SampleGrabber) AS ISampleGrabber; //創(chuàng)建Directshow中的SampleGrabber Filter COM對(duì)象并返回ISampleGrabber接口。

SText_Buffer.sprintf("鼠標(biāo)位置:X:%dY:%d",Mouse_Position.x,Mouse_Position.y); Label_QQ_Title->Caption=SText_Buffer;SetCursorPos(QQ_Rect.left+(QQ_Rect.right-QQ_Rect.left)/2,QQ_Rect.top+160);//檢測(cè)是否出現(xiàn)異常 GetWindowText(GetForegroundWindow(),CText_Buffer,255); SText_Buffer.sprintf("%s",CText_Buffer);keybd_event(VK_MENU,MapVirtualKey(VK_MENU,0),KEYEVENTF_KEYUP,0);

Delphi / VCL組件開(kāi)發(fā)及應(yīng)用 - CSDN社區(qū) c...

delphi 限制FORM窗體為固定的大小在FORM私有聲明部分加上如下一行：procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo );在聲明部分加上如下幾行:procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );begin.{最大化時(shí)寬度}ptMaxSize.Y := 200; {最大化時(shí)高度}ptMaxPosition.X := 99; {最大化時(shí)左上角橫坐標(biāo)}ptMaxPosition.Y := 99; {最大化時(shí)左上角縱坐標(biāo)}end;

delphi制作透明窗體procedure CreateParams(var Params: TCreateParams); override; //重載 CreateParams 過(guò)程的實(shí)現(xiàn)。//先繼承原來(lái)的 CreateParams 過(guò)程inherited;//然后修改 Param.ExStyle 的值，使窗體具有透明效果Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;end;//將畫(huà)布的筆刷樣式改成 bsClear 以及時(shí)清除窗體原來(lái)的內(nèi)容，這樣窗體就有透明效果Canvas.Brush.Style := bsClear;end;

Delphi編程模擬鼠標(biāo)操作Delphi編程模擬鼠標(biāo)操作時(shí)間:2011-5-26來(lái)源:yang 作者: peng點(diǎn)擊: 126次。mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);然后通過(guò)mouse_event (MOUSEEVENTF_LEFTDOWN,0,0,0,0)語(yǔ)句在(10,10)坐標(biāo)處按下鼠標(biāo)左鍵。最后不要忘了通過(guò)mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)語(yǔ)句釋放鼠標(biāo)左鍵。右鍵單擊和左鍵單擊的原理一致，只不過(guò)mouse_event函數(shù)中的參數(shù)分別替換為MOUSEEVENTF_RIGHTDOWN和MOUSEEVENTF_RIGHTUP。

Keybd_event 和mouse_event 參數(shù)之解釋W(xué)indows提供了一個(gè)模擬鍵盤(pán)API函數(shù)Keybd_event（），使用該函數(shù)可以相應(yīng)的屏蔽鍵盤(pán)的動(dòng)作。

組件是對(duì)象的一種。二、讀寫(xiě)對(duì)象(Filer)與組件讀寫(xiě)機(jī)制 Filer對(duì)象主要用于存取Delphi的窗體文件和窗體文件中的組件，所以要清楚地理解Filer對(duì)象就要清楚Delphi 窗體文件(DFM文件)的結(jié)構(gòu)。在程序開(kāi)始運(yùn)行的時(shí)候，TReader通過(guò)流式對(duì)象Stream來(lái)讀取窗體及組件，因?yàn)镈elphi在編譯程序的時(shí)候，利用編譯指令{$R *.dfm}已經(jīng)把DFM文件信息編譯到可執(zhí)行文件中，因此TReader讀取的內(nèi)容實(shí)際上是被編譯到可執(zhí)行文件中的有關(guān)窗體和組件的信息。

用api（shell）函數(shù)實(shí)現(xiàn)文件復(fù)制（摘至delphi盒子）

實(shí)現(xiàn)原理是啟動(dòng)一個(gè)應(yīng)用程序，通過(guò)ProcessID得到窗體句柄，然后對(duì)其設(shè)定父窗體句柄為本程序某控件句柄(本例是窗體內(nèi)一個(gè)Panel的句柄)，這樣就達(dá)成了內(nèi)嵌的效果。問(wèn)題1：如果程序有Splash窗體先顯示，則實(shí)際窗體無(wú)法內(nèi)嵌，因?yàn)閮H將Splash窗體的父窗體設(shè)定為本程序的控件句柄，后續(xù)窗體無(wú)法設(shè)定。以上的基礎(chǔ)是，外殼和子窗體都是Delphi程序，都是源碼級(jí)別#9樓 2011-08-17 13:13 vcc 外殼將多個(gè)子窗體定義為窗體數(shù)組。

下面這些主題描述了怎樣使用Tools API： Tools API概述 編寫(xiě)一個(gè)專(zhuān)家類(lèi) 獲得Tools API服務(wù) 對(duì)文件和編輯器的操作 創(chuàng)建窗體和工程 IDE的專(zhuān)家事件通知 2、 Tools API概述 所有的Tools API聲明都在這一個(gè)單元里：ToolsAPI。下面的主題討論了使用Tools API服務(wù)接口來(lái)工作時(shí)一些特定的事項(xiàng)： 使用本地IDE對(duì)象 調(diào)試專(zhuān)家 接口版本號(hào) 7、 使用本地IDE對(duì)象 專(zhuān)家可以完全地訪問(wèn)IDE的主菜單、工具欄、Action列表和圖像列表。

在Delphi中開(kāi)發(fā)使用多顯示器的應(yīng)用程序[轉(zhuǎn)]在Delphi中開(kāi)發(fā)使用多顯示器的應(yīng)用程序[轉(zhuǎn)]作者：fence | 出處：博客園 | 2011/11/10 9:08:41 | 閱讀13次 在Delphi中開(kāi)發(fā)使用多顯示器的應(yīng)用程序　　Windows可以將多個(gè)顯示器映射為虛擬桌面，使我們可以利用這一點(diǎn)設(shè)計(jì)出方便工作的應(yīng)用程 序。為了不使一個(gè)窗體顯示在兩個(gè)顯示器之間等原因的考慮，Windows將一個(gè)顯示器作為主顯示器。Windows為多顯示器應(yīng)用程序的開(kāi)發(fā)提供了一組API。

在Delphi中開(kāi)發(fā)使用多顯示器的應(yīng)用程序在Delphi中開(kāi)發(fā)使用多顯示器的應(yīng)用程序 作者：WAZptROE 來(lái)源：中國(guó)寬帶 發(fā)布時(shí)間：2009-2-6 12:39:51 關(guān)鍵字/核心提示：[標(biāo)簽:副標(biāo)題]Windows可以將多個(gè)顯示器映射為虛擬桌面，使我們可以利用這一點(diǎn)設(shè)計(jì)出方便工作的應(yīng)用程序。在顯示屬性中可以根據(jù)顯示器的物理位置任意排布這些顯示器。為了不使一個(gè)窗體顯示在兩個(gè)顯示器之間等原因的考慮，Windows將一個(gè)顯示器作為主顯示器。

其方法和屬性集中包括了 Windows操作系統(tǒng)中創(chuàng)建、運(yùn)行和銷(xiāo)毀應(yīng)用程序等既定的基本操作和屬性，因此在用Delphi編寫(xiě) Windows應(yīng)用程序時(shí)簡(jiǎn)化了用戶(hù)和Windows環(huán)境之間的接口。在應(yīng)用程序中，可以調(diào)用方法Application.MainForm.Close來(lái)終止應(yīng)用程序運(yùn)行，可以獲取Application.MainForm.Top、Application.MainForm.Left 等屬性的值從而確定當(dāng)前活動(dòng)窗口的位置以及尺寸等。應(yīng)用程序?qū)⒌谝粋€(gè)調(diào)用CreateForm 創(chuàng)建的窗體默認(rèn)為工程的主窗體。