{"id":134,"date":"2008-11-05T15:51:00","date_gmt":"2008-11-05T07:51:00","guid":{"rendered":""},"modified":"2013-11-19T21:51:29","modified_gmt":"2013-11-19T13:51:29","slug":"delphi%e7%ac%94%e8%ae%b0%e4%ba%94","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/134.html","title":{"rendered":"Delphi\u7b14\u8bb0[\u4e94]"},"content":{"rendered":"<p>if (Key=VK_F4)and(ssAlt in shift) then {\u4f7f\u7cfb\u7edf\u952eAlt+F4\u5931\u6548}<\/p>\n<p>\u63a7\u4ef6Transparent\u5c5e\u6027\u503c\u4e3aTrue\u65f6\uff0c\u80cc\u666f\u662f\u900f\u660e\u7684<\/p>\n<p>bsTrayIcon1\u63a7\u4ef6\uff0c\u5728OnDbClick\u4e8b\u4ef6\u4e2d\u5199form1.show\u5c31\u53ef\u4ee5\u8fbe\u5230\u6548\u679c\uff0c\u4f46\u662f\u8981\u5c06SkinForm\u8fd9\u4e2a\u63a7\u4ef6\u4e2d\u7684TrayIcon\u5c5e\u6027\u4e0e\u4e4b\u76f8\u5173\u8054<br \/>\nRxGIFAnimator\u63a7\u4ef6\uff0c\u53ef\u4ee5\u653eGIF\u56fe\u7247<br \/>\nRxDice\u8d4a\u5b50\u63a7\u4ef6\uff0c\u53ef\u4ee5\u653e\u4e00\u4e2a\u8d4a\u5b50\uff0cRotate\u5c5e\u6027\u8868\u793a\u662f\u5426\u53d8\u5316<br \/>\nRxClock\u63a7\u4ef6\uff0c\u663e\u793a\u7cfb\u7edf\u65f6\u95f4<br \/>\nColorComboBox,\u7528\u6765\u9009\u62e9Color\u7528\u7684\u4e00\u4e2aComboBox<br \/>\nFontComboBox\uff0c\u7528\u6765\u9009\u62e9\u5b57\u4f53<br \/>\nRxCalcEdit,\u5e26\u6709\u8ba1\u7b97\u529f\u80fd\u7684\u4e00\u4e2aEdit<br \/>\nDirectoryEdit\uff0c\u7528\u6765\u9009\u62e9\u76ee\u5f55\u7684\u4e00\u4e2aEdit<br \/>\nDateEdit,\u7528\u6765\u9009\u62e9Date\u7684\u4e00\u4e2aEdit<br \/>\nFilenameEdit\uff0c\u7528\u6765\u9009\u62e9File\u7684\u4e00\u4e2aEdit<br \/>\nClipboardViewer\uff0c\u7528\u6765\u663e\u793a\u7cfb\u7edf\u526a\u5207\u677f\u91cc\u9762\u7684\u4e1c\u897f<br \/>\nRxLoginDialog,\u4e00\u4e2a\u5bc6\u7801\u786e\u8ba4\u7684\uff0c\u5176\u4e2d\u8981\u5728OnCheckUser\u4e8b\u4ef6\u65f6\u9762\u5199\u4e0a\u7528\u6237\u540d\u548c\u5bc6\u7801\u662f\u5426\u6b63\u786e\u7684\u4ee3\u7801<\/p>\n<p>Cookies\u76f8\u5173\u64cd\u4f5c\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nidhtp1.CookieManager := TIdCookieManager.Create(nil);\r\nidhtp1.CookieManager.AddCookie(\u2018baidu=sb\u2019,'baidu.com\u2019);\r\nidhtp1.Get(\u2018http:\/\/www.baidu.com\u2019);\r\nfor I := 0 to idhtp1.CookieManager.CookieCollection.Count \u2013 1 do\r\ns := s + idhtp1.CookieManager.CookieCollection.Items&#x5B;i].CookieText;\r\nShowMessage(s);\r\n\r\nprocedure TForm1.Timer1Timer(Sender: TObject);\r\nvar\r\nSList: TStrings;\r\ni: integer;\r\nbegin\r\n   Doc := WebBrowser1.Document as IHTMLDocument2;\r\n   if edit2.Text = \u201d then Exit;\r\n   SList := TStringList.Create; {\u4fee\u6539\u6d4f\u89c8\u5668\u7684Cookies}\r\n   Slist.CommaText := edit2.Text;\r\n   for i := 0 to SList.Count \u2013 1 do {\u5c06Cookies\u5206\u6bb5\u63d0\u4ea4\u7ed9\u6d4f\u89c8\u5668}\r\n   Doc.cookie := SList.Strings&#x5B;i];\r\n   SList.Free; {\u91ca\u653e}\r\nend;\r\n<\/pre>\n<p>\u4f7f\u7a0b\u5e8f\u6700\u5927\u5316\u7684\u4ee3\u7801\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nForm1.WindowState:=WSMaximized;\r\ntype TWindowState = (wsNormal, wsMinimized, wsMaximized);\r\n\r\nvar\r\nMyStream:TMemoryStream;\r\nbegin\r\nMyStream:=TMemoryStream.Create;\r\nIdHTTP1.Get(\u2018http:\/\/www.138soft.com\/download\/Mp3ToExe.zip\u2019,MyStream);\/\/\u4e0b\u8f7d\u7ad9\u70b9\u7684\u4e00\u4e2aZIP\u6587\u4ef6\r\n<\/pre>\n<p>*\u53d6\u5f97\u4e0e\u7f51\u5740\u6709\u5173\u7684Cookie<br \/>\n\u7528InternetGetCookie\u8fd9\u4e2aAPI,\u5b83\u5728WinInet\u5355\u5143\u4e2d<br \/>\n\u67094\u4e2a\u53c2\u6570,\u7b2c\u4e00\u4e2a\u662fURL,\u7b2c\u4e8c\u4e2a\u8bbe\u4e3anil,\u7b2c\u4e09\u4e2a\u6307\u5230\u4e00\u4e2a\u53d8\u91cfBUFFER,\u5b58\u653eCookie\u7684\u5185\u5bb9,\u7b2c\u56db\u4e2a\u662fCookie\u7684\u957f\u5ea6<br \/>\nInternetGetCookie(PChar(Edit1.Text), nil, buf, Size)<\/p>\n<p>*\u7ed9idHttp\u8bbe\u7f6eCookie<br \/>\nidHttp1.Request.CustomHeaders.Text := \u2018Cookie: \u2018 + Memo1.Lines.Text;<\/p>\n<p>\u7a0b\u5e8f\u81ea\u5220\u9664\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar Selfname,BatFilename,s1,s2:string;\r\nBatchFile: TextFile;\r\nbegin\r\nSelfname:=Extractfilename(application.exename);\/\/\u53d6EXE\u6587\u4ef6\u81ea\u5df1\u7684\u540d\u79f0\r\nBatFilename:=ExtractFilePath(Application.ExeName)+ \u2018a.bat\u2019;\/\/\u6279\u5904\u7406\u6587\u4ef6\u540d\u79f0\r\nS1:=\u2019@del \u2018+Selfname;\r\nS2:=\u2019if exist \u2018+Selfname+\u2019 goto pp\u2019;\r\nassignfile(BatchFile,BatFilename);\r\nrewrite(BatchFile);\r\nwriteln(BatchFile,\u2019:pp\u2019);\r\nwriteln(BatchFile,S1);\r\nwriteln(BatchFile,S2);\r\nwriteln(BatchFile,\u2019@del %0\u2032);\r\nclosefile(BatchFile);\r\nwinexec(pchar(BatFilename),sw_hide);\/\/\u9690\u85cf\u7a97\u53e3\u8fd0\u884ca.bat\r\napplication.Terminate;\/\/\u9000\u51fa\u7a0b\u5e8f\r\nend;\r\n<\/pre>\n<p>\u521b\u5efa\u6587\u4ef6\u5939\u53ef\u7528API\u51fd\u6570CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+\u2019Test\u2019),nil);<br \/>\n\u4e5f\u53ef\u7528CreateDir,CreateDir(\u2018d:\\abc\u2019);<\/p>\n<p>TspSkinButton\u91cc\u9762\u6709SkinDataName\u53ef\u4ee5\u9009\u62e9Button\u7684\u7c7b\u578b<\/p>\n<p>TextLabel\u63a7\u4ef6\u53ef\u4ee5\u8f93\u5165\u591a\u884c\uff0c\u800cLabel\u53ea\u80fd\u8f93\u5165\u4e00\u884c\u6587\u5b57<\/p>\n<p>handle2:=FindWindowEx(handle1,0,\u2019Button\u2019,&#8217;\u5f00\u542f\u2019);\u8fd9\u6837\u627e\u7a97\u4f53\u5185\u7684\u6309\u94ae\u53e5\u67c4\u662f\u627e\u4e0d\u5230\u7684\uff0c\u8fd9\u4e2a\u597d\u50cf\u53ea\u80fd\u627e\u7a97\u4f53\u7684\u5b50\u7a97\u53e3\u7684\u6309\u94ae\u7684\u53e5\u67c4<br \/>\n\u627e\u7a97\u4f53\u4e0a\u6309\u94ae\u7528EnumChildWindows\uff0c\u5982\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nEnumChildWindows(handle1,@DoIt,0);   \u5176\u4e2dhandle1\u662f\u6211\u4eec\u627e\u597d\u4e86\u7684\u7236\u53e5\u67c4,DoIt\u662f\u4e00\u4e2a\u56de\u8c03\u51fd\u6570\u5982\u4e0b\uff1a\r\nfunction DoIt(h:THandle;i:integer):Boolean;stdcall;\r\nvar s:array&#x5B;0..255] of char;\r\nbegin\r\n   result:=true; \/\/\u4e0d\u53ef\u5c11\uff0c\u5426\u5219\u53ef\u80fd\u53ea\u6267\u884c\u4e00\u6b21\r\n   GetWindowText(h,pchar(@s),255);\r\n   showmessage(string(s));\r\n   if strpas(s)=\u2019\u5f00\u542f\u2019 then   \/\/StrPas\u51fd\u6570\u5c06\u4ee5NULL\u7ed3\u675f\u7684\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3aPASCAL\u7c7b\u7684\u5b57\u7b26\u4e32\uff0c\u8fd9\u91cc\u5fc5\u987b\u7528StrPas\r\n   begin\r\n    PostMessage(h,WM_LBUTTONDOWN,0,0);\r\n    PostMessage(h,WM_LBUTTONUP,0,0);\r\n   end;\r\nend;         \/\/\u83b7\u53d6\u5173\u4e8e\u8fd9\u4e2a\u6309\u94ae\u7684\u53e5\u67c4\u5e76\u6a21\u62df\u9f20\u6807\u70b9\u51fb\r\n\r\nGetWindow(),FindWindow(),FindWindowEx(),EnumWindows(),EnumChildWindows()\u2026\u90fd\u662f\u7528\u6765\u83b7\u5f97\u7a97\u53e3\u53e5\u67c4\u7684\uff0c\u83b7\u5f97\u53e5\u67c4\u6807\u9898\u7684\u51fd\u6570\u662fGetWindowText()\r\n\r\nSendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0));\u3000\u8bbe\u7f6eTV\u80cc\u666f\u989c\u8272\r\nSendMessage(Button.Handle,WM_LBUTTONDOWN,0,0);\u3000\u3000\u9f20\u6807\u5de6\u952e\u6309\u4e0b\r\nSendMessage(Button.Handle,WM_LBUTTONUP,0,0);\u3000\u3000\u3000\u9f20\u6807\u5de6\u952e\u62ac\u8d77\r\nSendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar(\u2018abc\u2019)));\u3000\u4f20\u9012\u6587\u672c\r\nSendMessage(Edit.Handle,WM_Char,Wparam(\u2018Q\u2019),2);\u3000\u3000\u4f20\u9012\u5b57\u7b26\r\nSendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1);\u3000\u3000\u6539\u53d8Button\u98ce\u683c\r\nSendMessage(ComboBox.Handle,CB_SETDROPPEDWIDTH,300,0);\u3000\u3000\u6539\u53d8CBDownWidth\r\nWM_CUT\u3001WM_COPY\u548cWM_PASTE\u3000\u3000\u526a\u5207\uff0c\u590d\u5236\uff0c\u7c98\u5e16\r\n<\/pre>\n<p>\u5b9e\u73b0\u4efb\u610f\u7ec4\u5408\u952e<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nkeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);\r\nkeybd_event(ord(\u2018V\u2019), MapVirtualKey(ord(\u2018V\u2019), 0), 0, 0);\r\nkeybd_event(ord(\u2018V\u2019), MapVirtualKey(ord(\u2018V\u2019), 0), KEYEVENTF_KEYUP, 0);\r\nkeybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nBitBlt(Image.Canvas.Handle,0,0,Image1.Width,Image1.Height,GetDC(GetForegroundWindow),0,0,SRCCOPY);\u622a\u5f53\u524d\u7a97\u53e3\u7684\u5c4f\r\n<\/pre>\n<p>\u8bbe\u7f6e\u7a97\u53e3\u7684BorderStyle\u5c5e\u6027 \u7981\u6b62\u6539\u53d8\u7a97\u4f53\u5927\u5c0f \u6bd4\u5982\u8bbe\u6210bsSingle\u7b49\u7b49<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nBOOL GetWindowRect(\r\nHWND hWnd,      \/\/ handle to window\r\nLPRECT lpRect   \/\/ address of structure for window coordinates\r\n);\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\u6355\u6349\u5168\u5c4f\u5e55\u56fe\u50cf\u5e76\u4fdd\u5b58\u5230: c:\\temp\\Screen.bmp\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nbit: TBitmap;\r\ncvs: TCanvas;\r\nbegin\r\nbit := TBitmap.Create;\r\nbit.SetSize(Screen.Width, Screen.Height);\r\n\r\ncvs := TCanvas.Create;\r\ncvs.Handle := GetDC(0);\r\n\r\nbit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);\r\nbit.SaveToFile(\u2018c:\\temp\\Screen.bmp\u2019);\r\n\r\ncvs.Free;\r\nbit.Free;\r\nend;\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\u628a\u6587\u5b57\u8f93\u51fa\u5230\u5c4f\u5e55\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\ncvs: TCanvas;\r\nRect: TRect;\r\nStr: string;\r\nbegin\r\ncvs := TCanvas.Create;\r\ncvs.Handle := GetDC(0);\r\nSetBkMode(cvs.Handle, TRANSPARENT);\r\n\/\/cvs.Font.Name := \u2018\u5b8b\u4f53\u2019;\r\ncvs.Font.Style := &#x5B;fsBold, fsItalic];\r\ncvs.Font.Size := 48;\r\nRandomize;\r\ncvs.Font.Color := Random($FFFFFF);\r\nRect := Screen.DesktopRect;\r\nStr := \u2018\u9f99\u5728\u5929\u535a\u5ba2\u2019;\r\ncvs.TextRect(Rect, Str, &#x5B;tfSingleLine, tfCenter, tfVerticalCenter]);\r\ncvs.Free;\r\nend;\r\n<\/pre>\n<p>\u628a\u6574\u4e2a\u7a97\u4f53\u4fdd\u5b58\u4e3a\u56fe\u7247\u7684\u65b9\u6cd5:<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nbit: TBitmap;\r\nbegin\r\nbit := TBitmap.Create;\r\nbit.Width := Width;\r\nbit.Height := Height;\r\nBitBlt(bit.Canvas.Handle, 0, 0, Width, Height, GetWindowDC(Handle), 0, 0, SRCCOPY);\r\nbit.SaveToFile(\u2018c:\\temp\\Form1.bmp\u2019);\r\nbit.Free;\r\nend;\r\n<\/pre>\n<p>trunc()\u53d6\u6574<br \/>\nround()\u56db\u820d\u4e94\u5165<\/p>\n<p>HANDLE GetCurrentProcess(VOID) \u8fd4\u56de\u5f53\u524d\u8fdb\u7a0b\u7684\u53e5\u67c4(\u7cfb\u7edf),\u65e0\u53c2\u6570<br \/>\n\u5982\u679cPostMessage(GetCurrentProcess(),WM_CLOSE,0,0); \u5219\u7cfb\u7edf\u5c06\u5f3a\u5236\u5173\u95ed<\/p>\n<p>PostMessage(hWnd,WM_SYSKEYDOWN,0\u00d741,1&lt;&lt;29);<br \/>\n\u7ecf\u8fc7\u6d4b\u8bd5\uff0c\u53d1\u73b0\u8fd9\u4e2a\u5c31\u662fAlt+A\u7684\u6548\u679c<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nRadioGroup1.Items.CommaText := \u2018Left,Center,Right\u2019;\/\/\u5c31\u76f4\u63a5\u52a0\u4e86\u4e09\u4e2a\u6309\u94ae\u5e76\u8d4b\u4e86\u503c\r\n<\/pre>\n<p>\u8bbe\u7f6eEdit\u4e2d\u5b57\u7684\u5bf9\u9f50\u65b9\u5f0f\uff1aSetWindowLong(Edit1.Handle, GWL_STYLE, 2);\u53f3\u5bf9\u9f50<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.RadioGroup1Click(Sender: TObject);\r\nvar\r\nes: Integer;\r\nbegin\r\nes := GetWindowLong(Edit1.Handle, GWL_STYLE) or 3;\r\nes := es xor (3 \u2013 RadioGroup1.ItemIndex);\r\nSetWindowLong(Edit1.Handle, GWL_STYLE, es);\r\nEdit1.Refresh;\r\nend;\r\n<\/pre>\n<p>\u51b3\u5b9a\u5bf9\u9f50\u65b9\u5f0f\u7684\u4e09\u4e2a\u5e38\u91cf\u503c ES_LEFT\u3001ES_CENTER\u3001ES_RIGHT \u5206\u522b\u662f 0\u30011\u30012<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nif GetKeyState(VK_SHIFT) &lt; 0 then Memo1.Lines.Add(\u2018Shift\u2019);\r\nif GetKeyState(VK_LSHIFT) &lt; 0 then Memo1.Lines.Add(\u2018LeftShift\u2019);\r\nif GetKeyState(VK_RSHIFT) &lt; 0 then Memo1.Lines.Add(\u2018RightShift\u2019);\r\nif GetKeyState(VK_CONTROL) &lt; 0 then Memo1.Lines.Add(\u2018Ctrl\u2019);\r\nif GetKeyState(VK_LCONTROL) &lt; 0 then Memo1.Lines.Add(\u2018LeftCtrl\u2019);\r\nif GetKeyState(VK_RCONTROL) &lt; 0 then Memo1.Lines.Add(\u2018RightCtrl\u2019);\r\nif GetKeyState(VK_MENU) &lt; 0 then Memo1.Lines.Add(\u2018Alt\u2019);\r\nif GetKeyState(VK_LMENU) &lt; 0 then Memo1.Lines.Add(\u2018LeftAlt\u2019);\r\nif GetKeyState(VK_RMENU) &lt; 0 then Memo1.Lines.Add(\u2018RightAlt\u2019);\r\n<\/pre>\n<p>\u5de5\u5177\u6761\u6309\u94ae\u4e0a\u7684\u4e0b\u62c9\u83dc\u5355:<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nToolButton1.Style := tbsDropDown;\r\nToolButton2.Style := tbsDropDown;\r\nToolButton1.DropdownMenu := PopupMenu1;\r\nToolButton2.DropdownMenu := PopupMenu2;\r\n<\/pre>\n<p>\u5236\u4f5c\u4efb\u610f\u62d6\u52a8\u7a97\u4f53\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;\r\nShift: TShiftState; X, Y: Integer);\r\nbegin\r\nReleaseCapture;\r\nSendMessage(self.Handle, WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0);\r\nend;\r\n\r\nprocedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;\r\nShift: TShiftState; X, Y: Integer);\r\nbegin\r\nReleaseCapture;\r\nPerform(WM_SYSCOMMAND, $F012, 0);\r\nend;\r\n<\/pre>\n<p>\u4ece\u8d44\u6e90\u6587\u4ef6\u4e2d\u88c5\u8f7d\u9f20\u6807\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar MyCursor:HCURSOR;\r\nMyCursor:=LoadCursor(hInstance,\u2019NEWCURSOR\u2019);\r\n<\/pre>\n<p>ParamCount\u8fd4\u56de\u547d\u4ee4\u884c\u7684\u603b\u6570,ParamStr(2)\u663e\u793a\u7b2c2\u6761\u547d\u4ee4,ParamStr(0)\u8fd4\u56de\u672c\u5730\u8def\u5f84<\/p>\n<p>\u8fd9\u79cd\u65b9\u6cd5\u7684\u539f\u7406\u662f\u7a0b\u5e8f\u8fd0\u884c\u65f6\u5148\u67e5\u770b\u81ea\u5df1\u662f\u4e0d\u662f\u5728\u7279\u5b9a\u76ee\u5f55\u4e0b,\u5982\u679c\u662f\u5c31\u7ee7\u7eed\u8fd0\u884c,\u5982<\/p>\n<p>\u679c\u4e0d\u662f\u5c31\u628a\u81ea\u5df1\u62f7\u8d1d\u5230\u7279\u5b9a\u76ee\u5f55\u4e0b,\u7136\u540e\u8fd0\u884c\u65b0\u7a0b\u5e8f,\u518d\u9000\u51fa\u65e7\u7a0b\u5e8f.<br \/>\n\u6253\u5f00Delphi,\u65b0\u5efa\u4e00\u4e2a\u5de5\u7a0b,\u5728\u7a97\u53e3\u7684Create\u4e8b\u4ef6\u4e2d\u5199\u4ee3\u7801:<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nvar myname: string;\r\nbegin\r\nmyname := ExtractFilename(Application.Exename); \/\/\u83b7\u5f97\u6587\u4ef6\u540d\r\nif application.Exename &lt;&gt; GetWindir + myname then \/\/\u5982\u679c\u6587\u4ef6\u4e0d\u662f\u5728Windows\\System\\\u90a3\u4e48..\r\nbegin\r\ncopyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{\u5c06\u81ea\u5df1\u62f7\u8d1d\u5230Windows\\System\\\u4e0b}\r\nWinexec(pchar(GetWindir + myname), sw_hide);\/\/\u8fd0\u884cWindows\\System\\\u4e0b\u7684\u65b0\u6587\u4ef6\r\napplication.Terminate;\/\/\u9000\u51fa\r\nend;\r\nend;\r\n<\/pre>\n<p>\u5176\u4e2dGetWinDir\u662f\u81ea\u5b9a\u4e49\u51fd\u6570,\u5176\u529f\u80fd\u662f\u627e\u51faWindows\\System\\\u7684\u8def\u5f84.<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nfunction GetWinDir: String;\r\nvar\r\nBuf: array&#x5B;0..MAX_PATH] of char;\r\nbegin\r\nGetSystemDirectory(Buf, MAX_PATH);\r\nResult := Buf;\r\nif Result&#x5B;Length(Result)]&lt;&gt;\u2019\\\u2019 then Result := Result + \u2018\\\u2019;\r\nend;\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nsendmessage(hwnd_broadcast,wm_syscommand,sc_screensave,0); \/\/\u5feb\u901f\u542f\u52a8\u5c4f\u4fdd\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\u5f97\u5230\u4e34\u65f6\u6587\u4ef6\u5939\r\nfunction Temppath: string;\r\nvar tmpdir: array&#x5B;0..255] of char;\r\nbegin\r\nGetTempPath(255, @tmpdir);\r\nResult := StrPas(Tmpdir);\r\nend;\r\n\r\n\/\/==============================\u67e5\u627e\u53e5\u67c4\u5957\u88c5=======================\r\nEnumChildWindows(idid2,@DoIt,0);\r\nfunction DoIt(h:THandle;i:integer):Boolean;stdcall;\r\nvar s:array&#x5B;0..255] of char;\r\nbegin\r\n   result:=true;      \/\/\u4e0d\u53ef\u5c11\uff0c\u5426\u5219\u53ef\u80fd\u53ea\u6267\u884c\u4e00\u6b21\r\n   GetWindowText(h,pchar(@s),255);\r\n   if pos(\u2018\u662f\u2019,strpas(s))&lt;&gt;0 then\r\n   begin\r\n    PostMessage(h,WM_LBUTTONDOWN,0,0);\r\n    PostMessage(h,WM_LBUTTONUP,0,0);\r\n   end;\r\nend;\r\n<\/pre>\n<p>function LCalCoordinate(A,B:Point;var ab_bear:single):single;\/\/\u987a\u4fbf\u8fd4\u56de ab_bear \u5fc5\u987b\u4f7f\u7528var\u624d\u80fd\u8fd4\u56deab_bear<\/p>\n<p>PageControl\u8fdb\u884c\u6392\u5e8f\u53ef\u5728\u5bf9\u8c61\u68c0\u67e5\u5668\u91cc\u9762\u62d6\u52a8\u76f8\u5e94\u7684Page\u5c31\u53ef\u4ee5\u4e86.<\/p>\n<p>bsSkinTextLabel\u91cc\u9762\u7684\u5b57\u4f53\u989c\u8272\u8bbe\u7f6e\uff0c\u8981\u4e0d\u4f7f\u7528SkinData\u624d\u80fd\u4f53\u73b0\u51fa\u6765.<\/p>\n<p>XPManifest\u63a7\u4ef6\u53ef\u4f7f\u6309\u94ae\u6210XP\u7cfb\u7edf\u6837\u5f0f\uff0c\u5728WIN32\u9762\u677f\u4e2d<\/p>\n<p>Image1.Picture.Bitmap.Handle := LoadBitmap(HInstance, \u2018bmp1\u2032);<br \/>\nimage1.Picture.Bitmap.LoadFromResourceName(HInstance, \u2018bmp2\u2032);<\/p>\n<p>\u7528\u56fe\u7247\u4f5c\u7a0b\u5e8f\u80cc\u666f\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbit := TBitmap.Create;\r\nbit.LoadFromResourceID(HInstance, 1);\r\nSelf.Brush.Bitmap := bit;\r\nRepaint;\r\n<\/pre>\n<p>\u5176\u4e2drc\u6587\u4ef6\u4e2d\u7528\u7f16\u53f7 1 BITMAP img\\bmpFile1.bmp<\/p>\n","protected":false},"excerpt":{"rendered":"<p>if (Key=VK_F4)and(ssAlt in shift) then {\u4f7f\u7cfb\u7edf\u952eAlt+F4\u5931\u6548} \u63a7 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-134","post","type-post","status-publish","format-standard","hentry","category-my_notes"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/134","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=134"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/134\/revisions"}],"predecessor-version":[{"id":4855,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/134\/revisions\/4855"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=134"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=134"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=134"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}