{"id":89,"date":"2008-10-09T21:34:00","date_gmt":"2008-10-09T01:34:00","guid":{"rendered":""},"modified":"2013-11-19T21:58:27","modified_gmt":"2013-11-19T13:58:27","slug":"delphi%e7%ac%94%e8%ae%b0%e4%b8%89","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/89.html","title":{"rendered":"Delphi\u7b14\u8bb0[\u4e09]"},"content":{"rendered":"

DELPHI \u5982\u4f55\u8bbe\u7f6e\u4e00\u4e2a\u7a97\u53e3\u4e0d\u80fd\u6700\u5927\u5316\/\u6700\u5c0f\u5316\/\u8fd8\u539f\u529f\u80fd?
\n\u8bbe\u7f6e\u7a97\u4f53\u7684BorderIcons\u5c5e\u6027\u7684biMinimize\u548cbiMaximize\u4e3aFalse\uff0c\u5177\u4f53\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n

Form1.BorderIcons:=Form1.BorderIcons-[biMaximize];\/\/\u9664\u53bb\u6700\u5927\u5316\u529f\u80fd<\/p>\n

OpenDialog1.InitialDir:=GetCurrentDir; \/\/\u6307\u5b9a\u6253\u5f00\u6587\u4ef6\u5bf9\u8bdd\u6846\u521d\u59cb\u663e\u793a\u5f53\u524d\u76ee\u5f55<\/p>\n

\u624b\u52a8\u8bbe\u7f6eACCESS\u6570\u636e\u5e93\u5bc6\u7801:
\n\u5728\u8bbe\u7f6e\u6570\u636e\u5e93\u5bc6\u7801\u4e4b\u524d\uff0c\u9700\u8981\u4ee5\u72ec\u5360\u65b9\u5f0f\u6253\u5f00\u6570\u636e\u5e93\u3002\u8981\u4ee5\u72ec\u5360\u65b9\u5f0f\u6253\u5f00\u6570\u636e\u5e93\uff1a
\n1.\u5982\u679c\u6570\u636e\u5e93\u5904\u4e8e\u6253\u5f00\u72b6\u6001\uff0c\u5173\u95ed\u6570\u636e\u5e93\u3002
\n2.\u5355\u51fb\u201c\u6587\u4ef6\u201d\u83dc\u5355\u4e2d\u7684\u201c\u6253\u5f00\u201d\u91cd\u65b0\u6253\u5f00\u6570\u636e\u5e93\u3002
\n3.\u5728\u201c\u6253\u5f00\u201d\u5bf9\u8bdd\u6846\u4e2d\uff0c\u627e\u5230\u6570\u636e\u5e93\uff0c\u5355\u51fb\u201c\u6253\u5f00\u201d\u6309\u94ae\u65c1\u8fb9\u7684\u7bad\u5934\uff0c\u7136\u540e\u5355\u51fb\u201c\u4ee5\u72ec\u5360\u65b9\u5f0f\u6253\u5f00\u201d\u3002
\n\u8981\u624b\u52a8\u8bbe\u7f6e\u6570\u636e\u5e93\u5bc6\u7801\uff1a
\n1.\u5728\u201c\u5de5\u5177\u201d\u83dc\u5355\u4e2d\uff0c\u6307\u5411\u201c\u5b89\u5168\u201d\uff0c\u7136\u540e\u5355\u51fb\u201c\u8bbe\u7f6e\u6570\u636e\u5e93\u5bc6\u7801\u201d\u3002
\n2.\u5728\u201c\u5bc6\u7801\u201d\u6846\u4e2d\uff0c\u952e\u5165\u5bc6\u7801\u3002<\/p>\n

Terminate\u662f\u4e00\u4e2a\u65b9\u6cd5,\u5b83\u8868\u793a\u4e2d\u65ad\u7a0b\u5e8f,\u9000\u51fa\u603b\u7cfb\u7edf\u3002\u5982Form1.Terminate,Application.Terminate<\/p>\n

Trim\u51fd\u6570:\u5220\u9664\u5b57\u7b26\u4e32\u9996\u90e8\u548c\u5c3e\u90e8\u7684\u7a7a\u683c\u3002\u8bed\u6cd5Trim ( string ) \u53c2\u8003\uff1ahttp:\/\/baike.baidu.com\/view\/926428.htm<\/p>\n

Table\u7ec4\u4ef6\uff1a
\n\u65b9\u6cd5\uff1aOpen\u3001Close\u3001First\u3001Prior\u3001Next\u3001Last
\nTable.MoveBy(Distance:integer):integer \u5c06\u6307\u9488\u5411\u524d\u6216\u5411\u540e\u79fb\u52a8\u5230\u6307\u5b9a\u6761\u6570\u7684\u8bb0\u5f55\uff0c\u4f7f\u4e4b\u6210\u4e3a\u5f53\u524d\u8bb0\u5f55
\nTable.Locate(const KeyFields:string;const KeyValues:Variant;Option:TLocateOption):boolean; \u5728\u6570\u636e\u96c6\u4e2d\u5b9a\u4f4d\u4e00\u6761\u7279\u5b9a\u7684\u8bb0\u5f55\uff0c\u4f7f\u4e4b\u6210\u4e3a\u6210\u524d\u7684\u8bb0\u5f55\u3002
\nTable.Lookup(const KeyFields:string;const KeyValues:Variant;const ResultFields:string):Variant; KeyFields\u662f\u6307\u5b9a\u8981\u6309\u54ea\u4e9b\u5b57\u6bb5\u641c\u7d22\uff0cKeyValues\u6307\u5b9a\u6bcf\u4e2a\u5b57\u6bb5\u76f8\u5e94\u7684\u503c\uff0cResultFields\u6307\u5b9a\u8981\u8fd4\u56de\u54ea\u4e9b\u5b57\u6bb5\u7684\u503c\u3002<\/p>\n

ClipBoard.Clear; \u6e05\u9664\u526a\u8d34\u677f\uff0cDelphi\u81ea\u5e26\u51fd\u6570\uff0c\u5728ClipBrd\u5355\u5143\u4e2d,\u5728\u8fdb\u884c\u526a\u8d34\u677f\u64cd\u4f5c\u65f6\u6700\u597d\u5148\u8fdb\u884cClear\u5de5\u4f5c\u3002<\/p>\n

\u8fde\u63a5\u6709\u5bc6\u7801\u7684ACCESS\uff1a
\n\u53cc\u51fbADOTabel\u7b49\u63a7\u4ef6\uff0c\u7136\u540e\u70b9\u51fbBuild\u2026\u6309\u94ae\uff0c\u5728\u201c\u63d0\u4f9b\u8005\u201d\u9875\u4e2d\u9009\u62e9\u201cMicrosoft Jet 4.0 OLE DB Provider\u201d\uff0c\u7136\u540e\u70b9\u51fb\u201c\u4e0b\u4e00\u6b65\u201d\u6309\u94ae\uff0c\u5728\u201c\u8fde\u63a5\u201d\u9875\u4e2d\u9009\u62e9\u8981\u8fde\u63a5\u7684Access\u6570\u636e\u5e93\u7684\u8def\u5f84\u548c\u6570\u636e\u5e93\u7684\u6587\u4ef6\u540d.\u5982\u679c\u6570\u636e\u5e93\u6ca1\u6709\u5bc6\u7801,\u90a3\u5c31\u53ef\u4ee5\u4e86,\u5982\u679c\u6709\u5bc6\u7801\uff0c\u8fd9\u65f6\u5982\u679c\u70b9\u201c\u6d4b\u8bd5\u8fde\u63a5\u201d\u6309\u94ae\u65f6\uff0c\u51fa\u73b0\u201c\u521d\u59cb\u5316\u63d0\u4f9b\u8005\u65f6\u53d1\u751f\u9519\u8bef\uff0c\u6d4b\u8bd5\u8fde\u63a5\u5931\u8d25\uff0c\u5bc6\u7801\u65e0\u6548\u201d\u7684\u9519\u8bef\u63d0\u793a\uff0c \u8fd9\u65f6\u70b9\u201c\u6240\u6709\u201d\u9875\uff0c\u7136\u540e\u53cc\u51fb\u201cJetOLEDB:Database Password\u201d\uff0c\u51fa\u73b0\u5bf9\u8bdd\u6846\uff0c\u6dfb\u5165\u5bc6\u7801\u540e\uff0c\u9009\u62e9\u201c\u8fde\u63a5\u201d\u9875\u4e2d\u7684\u201c\u6d4b\u8bd5\u8fde\u63a5\u201d\u6309\u94ae\uff0c\u51fa\u73b0\u201c\u6d4b\u8bd5\u8fde\u63a5\u6210\u529f\u201d\u7684\u5bf9\u8bdd\u6846\u3002<\/p>\n

StringGrid1.PopupMenu:=PopupMenu1; \u8981\u5c06PopupMenu\u6307\u5b9a\u5230\u67d0\u4e2a\u7ec4\u4ef6\u5f53\u4e2d\u53bb<\/p>\n

Memo1.Text:=RichEdit1.Text; \/\/\u5c06\u5185\u5bb9\u590d\u5236\u5230Memo\u4e2d\u518d\u4fdd\u5b58\uff0c\u8fd9\u6837\u624d\u4e0d\u4f1a\u6709\u4e71\u7801
\nMemo1.Lines.SaveToFile(\u2018\u7b2c\u2019+Edit1.Text+\u2019\u9875.cpp\u2019);<\/p>\n

RichEdit1.Text:=ADOTable1.FieldByName(\u2018data\u2019).AsString;\u8fd4\u56de\u4e3a\u5b57\u6bb5\u4e3adata\u7684\u5f53\u524d\u6570\u636e<\/p>\n

Edit2.SetFocus; \u5c06\u53e5\u67c4\u7684\u7126\u70b9\u8f6c\u79fb\u5230Edit2\u4e0a\u3002<\/p>\n

Label3.Caption := FormatDateTime(\u2018yyyy\u5e74m\u6708d\u65e5\u2019, Date);
\nLabel5.Caption := FormatDateTime(\u2018h:mm:ss\u2019, Time);Date\u548cTime\u662f\u51fd\u6570<\/p>\n

Edit1.Text := Format(\u2018%f\u2019, [Num]);<\/p>\n

StatusBar1.Panels[0].Text := \u2018\u8bb0\u5f55\u603b\u6570\uff1a\u2019 + IntToStr(AdoTable1.RecordCount);
\nStatusBar1.Panels[1].Text := \u2018\u5f53\u524d\u8bb0\u5f55\uff1a\u2019 + IntToStr(AdoTable1.RecNo) + \u2018 \u2018;<\/p>\n

Num := Num + ADOTable1.FieldByName(\u2018\u91d1\u989d\u2019).AsFloat;<\/p>\n

ADOTable\u5b9e\u73b0\u6570\u636e\u5199\u5165:
\nADOTable1.Edit;
\nADOTable1.FieldByName(\u2018\u54c1\u540d\u2019).AsString := Edit1.Text;
\nADOTable1.FieldByName(\u2018\u6570\u91cf\u2019).AsString := Edit2.Text;
\nADOTable1.FieldByName(\u2018\u5355\u4ef7\u2019).AsString := Edit3.Text;
\nADOTable1.FieldByName(\u2018\u91d1\u989d\u2019).AsString := Edit4.Text;
\nADOTable1.Post;<\/p>\n

Trim\u51fd\u6570:\u5220\u9664\u5b57\u7b26\u4e32\u9996\u90e8\u548c\u5c3e\u90e8\u7684\u7a7a\u683c\u3002\u8bed\u6cd5Trim ( string ) \u53c2\u8003\uff1ahttp:\/\/baike.baidu.com\/view\/926428.htm<\/p>\n

Query\u7ec4\u4ef6\uff1a
\nDatabaseName\u5c5e\u6027\u8fde\u63a5\u6307\u5b9a\u6570\u636e\u5e93\uff0cSQL\u5c5e\u6027\u4ee5\u5b57\u7b26\u4e32\u5f62\u5f0f\u6307\u5b9a\u5f85\u6267\u884c\u7684\u4e00\u6761SQL\u8bed\u53e5\uff0cParams\u5c5e\u6027\u6307\u5b9aSQL\u8bed\u53e5\u53c2\u6570\u3002
\nQuery1.SQL.Clear \u6e05\u9664\u539f\u6765\u7684SELECE\u8bed\u53e5\u3002
\nQuery1.SQL.Add(string); \u6dfb\u52a0SELECT\u8bed\u53e5
\nQuery1.Open;\u6253\u5f00\u8868\uff0c\u6267\u884cSELECT\u8bed\u53e5
\nif Query1.Active=True then Query1.Close;\u5173\u95ed\u6570\u636e\u5e93<\/p>\n

Quotedstr\u51fd\u6570\uff0c\u8fd9\u4e2a\u51fd\u6570\u4f1a\u5728\u6307\u5b9a\u7684\u5b57\u7b26\u4e32\u4e24\u4fa7\u81ea\u52a8\u52a0\u4e0a\u7b26\u5408\u8bed\u6cd5\u8981\u6c42\u7684\u5f15\u53f7\u3002<\/p>\n

Delphi\u7a0b\u5e8f\u8bbe\u8ba1\u6240\u7528\u7684\u5feb\u6377\u952e\uff1a
\n\u8bbe\u8ba1\u7a97\u4f53\u65f6\u7684\u5feb\u6377\u952e\uff1a
\nDel\uff1a\u5220\u9664\u6240\u9009\u7ec4\u4ef6
\nEsc\uff1a\u9009\u62e9\u5f53\u524d\u7ec4\u4ef6\u7684\u5bb9\u5668\u5bf9\u8c61
\nF11\uff1a\u5728\u7a97\u4f53\u3001\u5355\u5143\u6587\u4ef6\u548c\u5bf9\u8c61\u68c0\u6d4b\u5668\u4e4b\u95f4\u5207\u6362
\nF12\uff1a\u5728\u7a97\u4f53\u548c\u4ee3\u7801\u7f16\u8f91\u5668\u4e4b\u95f4\u5207\u6362
\nCtrl+F12\uff1a\u663e\u793a\u67e5\u770b\u5355\u5143\u5bf9\u8bdd\u6846
\nShift+F12\uff1a\u663e\u793a\u67e5\u770b\u7a97\u4f53\u5bf9\u8bdd\u6846
\nTab\uff1a\u79fb\u52a8\u7126\u70b9\u5230\u4e0b\u4e00\u7ec4\u4ef6
\nShift+Tab\uff1a\u79fb\u52a8\u7126\u70b9\u5230\u524d\u4e00\u7ec4\u4ef6
\n\u65b9\u5411\u952e\uff1a\u5728\u76f8\u8fd1\u7684\u7ec4\u4ef6\u4e2d\u79fb\u52a8\u7126\u70b9
\nCtrl+\u65b9\u5411\u952e\uff1a\u5c06\u6240\u9009\u7ec4\u4ef6\u7684\u4f4d\u7f6e\u79fb\u52a8\u4e00\u4e2a\u50cf\u7d20
\nShift+\u65b9\u5411\u952e\uff1a\u4ee5\u4e00\u4e2a\u50cf\u7d20\u4e3a\u5355\u4f4d\u6539\u53d8\u7ec4\u4ef6\u5927\u5c0f
\nCtrl+Shift+\u65b9\u5411\u952e\uff1a\u5c06\u6240\u9009\u7ec4\u4ef6\u79fb\u52a8\u4e00\u683c
\nShift+\u9f20\u6807\u5de6\u952e\uff1a\u9009\u62e9\u591a\u4e2a\u7ec4\u4ef6<\/p>\n

\u8bbe\u8ba1\u5355\u5143\u6587\u4ef6\u65f6\u7684\u5feb\u6377\u952e\uff1a
\nCtrl+\u7a7a\u683c\u952e\uff1a\u663e\u793a\u7c7b\u53d8\u91cf\u7684\u6210\u5458\u4fe1\u606f
\nCtrl+Shift+\u7a7a\u683c\uff1a\u663e\u793a\u8fc7\u7a0b\u548c\u51fd\u6570\u7684\u53c2\u6570\u4e2a\u6570\u548c\u5404\u53c2\u6570\u7684\u7c7b\u578b\u4fe1\u606f
\nCtrl+J\uff1a\u663e\u793a\u4ee3\u7801\u6a21\u677f
\nCtrl+\u9f20\u6807\u5de6\u952e\uff1a\u4ee5\u8d85\u94fe\u63a5\u7684\u65b9\u5f0f\u6253\u5f00\u9f20\u6807\u6307\u9488\u6240\u6307\u7684\u53d8\u91cf\u3001\u51fd\u6570\u548c\u8fc7\u7a0b\u7684\u58f0\u660e\u3001\u5b9a\u4e49\u6240\u5728\u7684\u5355\u5143\u3002\u81ea\u52a8\u6253\u5f00\u76f8\u5e94\u7684\u5355\u5143\u5e76\u6307\u5411\u5355\u5143\u7684\u5b9a\u4e49\u548c\u58f0\u660e\u90e8\u5206
\nCtrl+Shift+\u4e0a\u4e0b\u952e\uff1a\u5b9e\u73b0\u5149\u6807\u6240\u5728\u4f4d\u7f6e\u7684\u8fc7\u7a0b\u6216\u51fd\u6570\u7684\u5b9a\u4e49\u4e0e\u4ee3\u7801\u7684\u5b9e\u73b0\u90e8\u5206\u7684\u5207\u6362
\nCtrl+Shift+C\uff1a\u81ea\u52a8\u8865\u5168\u4ee3\u7801\uff0c\u5728\u58f0\u660e\u90e8\u5206\u5199\u51fa\u8fc7\u7a0b\u6216\u51fd\u6570\u58f0\u660e\u8bed\u53e5\uff0c\u81ea\u52a8\u751f\u6210\u51fd\u6570\u8fc7\u7a0b\u7684\u6846\u67b6
\nCtrl+Shift+\u6570\u5b57\u952e\uff1a\u5b9a\u4e49\/\u53d6\u6d88\u4e00\u4e2a\u4e66\u7b7e
\nCtrl+\u6570\u5b57\u952e\uff1a\u8df3\u5230\u4e00\u4e2a\u9884\u5148\u5b9a\u4e49\u7684\u4e66\u7b7e<\/p>\n

\u8bbe\u7f6e\u7a97\u4f53\u900f\u660e\u5ea6\uff1a
\nform1.AlphaBlend := true;
\nform1.AlphaBlendValue := ScrollBar1.Position;\u5176\u4e2dScrollBar1.Position\u4e3a\u900f\u660e\u5ea6\u7684\u503c\uff0c\u503c\u4e3a255\u65f6\u4e3a\u5168\u4e0d\u900f\u660e\u3002<\/p>\n

beep;\u54cd\u94c3\u8b66\u544a\uff0c\u54cd\u4e00\u58f0\u3002<\/p>\n

\u6587\u4ef6\u7c7b\u578b\uff1a
\nfaReadOnly 1 Read-only files
\nfaHidden 2 Hidden files
\nfaSysFile 4 System files
\nfaVolumeID 8 Volume ID files
\nfaDirectory 16 Directory files
\nfaArchive 32 Archive files
\nfaSymLink 64 Symbolic link
\nfaAnyFile 71 Any file<\/p>\n

ShellExecute(handle,\u201d,p,0,0,1); \u6253\u5f00\u6307\u5b9a\u7684\u6587\u4ef6\uff0c\u5176\u5b83P\u4e3a\u6587\u4ef6\u7684\u8def\u5f84\u5b57\u7b26\u4e32<\/p>\n

function FileGetAttr(const FileName: string): Integer; \u4f8b\uff1a
\nAttrs := FileGetAttr(\u2018MyFile.sys\u2019);
\nif Attrs and faHidden <> 0 then \/\/\u8fd9\u53e5\u610f\u601d\u662ffaHidden\u4e0d\u5728\u8be5\u6587\u4ef6\u7684\u5c5e\u6027\u5185
\nFileSetAttr(\u2018MyFile.sys\u2019, Attrs -faHidden);<\/p>\n

\u6587\u4ef6\u64cd\u4f5c\u53c2\u8003\uff1ahttp:\/\/zhidao.baidu.com\/question\/41309845.html?si=1<\/p>\n

Form1.BorderIcons:=Form1.BorderIcons-[biMaximize]; \/\/\u4e0d\u80fd\u6700\u5927\u5316
\nDragAcceptFiles(self.Handle,true);\/\/\u8bbe\u5b9a\u63a5\u53d7\u62d6\u52a8\u4e8b\u4ef6\u7684\u53e5\u67c4\u4e3a\u672c\u7a97\u53e3
\n\u8bbe\u7f6e\u4e0d\u80fd\u6700\u5927\u5316\u7684\u8bed\u53e5\u5e94\u8be5\u653e\u5728\u524d\u9762\uff0c\u5426\u5219\u62d6\u52a8\u529f\u80fd\u5c06\u6ca1\u6709\u6548\u679c<\/p>\n

CreateEllipticRgn(int nLeftRect,int nTopRect,int nRightRect, int nBottomRect );\/\/\u753b\u4e00\u4e2a\u692d\u5706<\/p>\n

hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
\nGW_HWNDNEXT GW_HWNDLAST \u8fd4\u56de\u7684\u53e5\u67c4\u6807\u8bc6\u4e86\u5728Z\u5e8f\u6700\u9ad8\u7aef\u7684\u76f8\u540c\u7c7b\u578b\u7684\u7a97\u53e3
\nGetWindowText(hCurrentWindow, @szText, 255);\u628a\u53e5\u67c4\u4e3ahCurrentWindow\u7684\u7a97\u53e3\u7684\u6807\u9898\u8003\u8d1d\u5230\u7f13\u51b2\u533a\u5730\u5740szText\u4e2d\uff0cszText\u7684\u6700\u5927\u957f\u5ea6255
\nWindowsNameListBox.Items.Add(StrPas(@szText));
\nhCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);<\/p>\n

BOOL GetCursorPos(
\nLPPOINT lpPoint \/\/ address of structure for cursor position
\n); \/\/\u8fd4\u56de\u6307\u5b9a\u6240\u5728\u7684\u4f4d\u7f6e\u5750\u6807\u5230TPoint\u7c7b\u578b\u53d8\u91cflpPoint\u4e2d<\/p>\n

Form1.FormStyle := fsStayOnTop; \u7a97\u53e3\u59cb\u7ec8\u5728\u6700\u9876\u7aef<\/p>\n

\u6309F7\u6765\u5230\uff1a
\nApplication.Initialize; \/\/\u521d\u59cb\u5316
\nApplication.Title := \u2018\u9f99\u5728\u5929\u4f5c\u54c1\u2019;
\nApplication.CreateForm(TForm1, Form1);
\nApplication.ShowMainForm:=false; \/\/\u4e0d\u663e\u793a\u7a97\u4f53,\u4e5f\u5c31\u662f\u8bf4\u9690\u85cf\u8fd0\u884c\u7684\u529f\u80fd\u3002
\nApplication.Run;<\/p>\n

URLDownloadToFile(nil,\u2019http:\/\/127.0.0.1\/test.txt\u2019,’d:\\123.txt\u2019,0,nil);
\n\u4ece\u7f51\u7ad9\u4e0b\u8f7d\u4e1c\u897f\u4fdd\u5b58\u5230\u672c\u5730\u76ee\u5f55\uff0c\u5f15\u7528\u5355\u5143 uses urlmon<\/p>\n

\r\nprocedure killkaka;\r\nvar\r\nidid,hand,he:THandle;\r\nbegin\r\nidid:=FindWindow(\u2018#32770\u2032,nil); \/\/\u83b7\u53d6\u53e5\u67c4\r\nIF idid <> 0 THEN \/\/\u5f53\u83b7\u5f97\u53e5\u67c4\u7684\u65f6\u5019\r\nbegin\r\n    hand:=FindWindowEX(idid,0,\u2019Button\u2019,'\u62d2\u7edd\u672c\u6b21\u52a8\u4f5c\u2019);\/\/\u5148\u83b7\u53d6\u62d2\u7edd\u672c\u6b21\u52a8\u4f5c\u7684\u9009\u9879\u53e5\u67c4\r\n          if hand<>0 then\/\/\u83b7\u5f97\u201d\u62d2\u7edd\u672c\u6b21\u52a8\u4f5c\u201d\u7684\u53e5\u67c4\r\n          begin\r\n           PostMessage(hand,wm_lbuttondown,0,0);\r\n           PostMessage(hand,wm_lbuttonup,0,0);\/\/\u5c06\u9009\u9879\u786e\u5b9a\u5728\u5141\u8bb8\u6b64\u52a8\u4f5c\u4e0a\r\n           he:=Findwindowex(idid,0,\u2019Button\u2019,'\u786e\u5b9a\u2019);\/\/\u83b7\u5f97\u201d\u786e\u5b9a\u201d\u7684\u53e5\u67c4\r\n           PostMessage(he,wm_lbuttondown,0,0);\r\n           PostMessage(he,wm_lbuttonup,0,0);\/\/\u81ea\u52a8\u70b9\u51fb\u786e\u5b9a\r\n          end;\r\nend;\r\nend;\r\n<\/pre>\n
function AnsiContainsText(const AText, ASubText: string): Boolean;
\n\u529f\u80fd \u8fd4\u56de\u5b57\u7b26\u4e32AText\u662f\u5426\u5305\u542b\u5b50\u4e32ASubText \u8bf4\u660e \u4e0d\u533a\u5206\u5927\u5c0f\u5199
\nfunction AnsiContainsStr(const AText, ASubText: string): Boolean;
\n\u529f\u80fd \u8fd4\u56de\u5b57\u7b26\u4e32AText\u662f\u5426\u5305\u542b\u5b50\u4e32ASubText \u8bf4\u660e \u533a\u5206\u5927\u5c0f\u5199<\/p>\n
ShowWindow(form1.Handle, SW_SHOWMINIMIZED);
\nSW_SHOW \u4ee5\u5f53\u524d\u7684\u5927\u5c0f\u548c\u4f4d\u7f6e\u6fc0\u6d3b\u5e76\u663e\u793a\u7a97\u4f53\u3002
\nSW_SHOWMINIMIZED \u6fc0\u6d3b\u5e76\u6700\u5c0f\u5316\u73b0\u5b9e\u7a97\u4f53\u3002
\nSW_SHOWMAXIMIZED \u6fc0\u6d3b\u5e76\u6700\u5927\u5316\u663e\u793a\u7a97\u4f53\u3002
\nSW_SHOWNOACTIVATE \u4ee5\u7a97\u53e3\u6700\u8fd1\u4e00\u6b21\u7684\u5927\u5c0f\u548c\u72b6\u6001\u663e\u793a\u7a97\u53e3
\nSW_SHOWNOMAL \u6fc0\u6d3b\u5e76\u663e\u793a\u4e00\u4e2a\u7a97\u53e3\u3002\u5982\u679c\u7a97\u53e3\u88ab\u6700\u5c0f\u5316\u6216\u6700\u5927\u5316\uff0c\u7cfb\u7edf\u5c06\u5176\u6062\u590d\u5230\u539f\u6765\u7684\u5c3a\u5bf8\u548c\u5927\u5c0f
\nSW_SHOWNA \u4ee5\u7a97\u53e3\u539f\u6765\u7684\u72b6\u6001\u663e\u793a\u7a97\u53e3\u3002\u6fc0\u6d3b\u7a97\u53e3\u4ecd\u7136\u7ef4\u6301\u6fc0\u6d3b\u72b6\u6001
\nSW_MAXIMIZE \u6700\u5927\u5316\u6307\u5b9a\u7684\u7a97\u53e3
\nSW_MINIMIZE \u6700\u5c0f\u5316\u6307\u5b9a\u7684\u7a97\u4f53\uff0c\u5e76\u6309\u987a\u5e8f\u6fc0\u6d3b\u6700\u4e0a\u5c42\u7684\u7a97\u4f53\u3002
\nSW_HIDE \u9690\u85cf\u8fd9\u4e2a\u7a97\u4f53\uff0c\u5e76\u6fc0\u6d3b\u5176\u4ed6\u7a97\u4f53\u3002
\nSW_RESTORE \u6fc0\u6d3b\u5e76\u663e\u793a\u7a97\u4f53\u3002\u5982\u679c\u7a97\u4f53\u4e3a\u6700\u5c0f\u5316\u6216\u8005\u6700\u5927\u5316\uff0c\u7a97\u4f53\u6062\u590d\u5230\u539f\u59cb\u5927
\n\u5c0f\u548c\u7f6e\u3002\u5e94\u7528\u7a0b\u5e8f\u5f53\u6062\u590d\u4e00\u4e2a\u6700\u5c0f\u5316\u7684\u7a97\u4f53\u65f6\u5c06\u6307\u5b9a\u6807\u8bb0\u3002
\nSW_SHOWMINNOACTIVE \u6700\u5c0f\u5316\u7a97\u4f53\uff0c\u4fdd\u6301\u5176\u6fc0\u6d3b\u72b6\u6001\u3002<\/p>\n
ExitWindows(0, 0); \u91cd\u542f\u8ba1\u7b97\u673a
\nShellExecute(0, nil, p, nil, nil, SW_NORMAL); p\u4e3a\u6587\u4ef6\u8def\u5f84\u540d\uff0c\u6253\u5f00\u4e00\u4e2a\u6587\u4ef6
\nWinExec(\u2018Notepad.exe\u2019, sw_Normal); \u6253\u5f00\u7cfb\u7edf\u7684\u8bb0\u4e8b\u672c<\/p>\n
\u83b7\u53d6\u6587\u4ef6\u5927\u5c0f\uff1a<\/p>\n
\r\nvar\r\nSearchRec: TSearchRec;\r\nbegin\r\nif FindFirst(FileName, faAnyFile, SearchRec) = 0 then\/\/\u5982\u679c\u67e5\u627e\u6210\u529f\u5219\u8fd4\u56de0\r\n    Result := SearchRec.Size\r\nelse\r\n    Result := -1;   \/\/error\r\nend;\r\n<\/pre>\n
BOOL IsIconic(HWND hWnd);\u5982\u679c\u7a97\u53e3\u5df2\u56fe\u6807\u5316(\u6700\u5c0f\u5316)\uff0c\u8fd4\u56de\u503c\u4e3a\u975e\u96f6\uff1b\u5982\u679c\u7a97\u53e3\u672a\u56fe\u6807\u5316\uff0c\u8fd4\u56de\u503c\u4e3a\u96f6
\nBOOL SetForegroundWindow(HWND hWnd);\u5982\u679c\u7a97\u53e3\u8bbe\u5165\u4e86\u524d\u53f0\uff0c\u8fd4\u56de\u503c\u4e3a\u975e\u96f6\uff1b\u5982\u679c\u7a97\u53e3\u672a\u88ab\u8bbe\u5165\u524d\u53f0\uff0c\u8fd4\u56de\u503c\u4e3a\u96f6<\/p>\n
FindWindow(\u2018Shell_TrayWnd\u2019, nil) \u8fd4\u56de\u4e3a\u4efb\u52a1\u680f\u53e5\u67c4
\nFindWindowEx(FindWindow(\u2018Shell_TrayWnd\u2019, nil),0,\u2019Button\u2019,nil) \u8fd4\u56de\u5f00\u59cb\u83dc\u5355<\/p>\n
Rgn := CreateRectRgn(0, 0, 0, 0);
\nSetWindowRgn(FindWindowEx(FindWindow(\u2018Shell_TrayWnd\u2019, nil),0,\u2019Button\u2019,nil),Rgn, true); \/\/\u9690\u85cf\u5f00\u59cb\u83dc\u5355
\nSetWindowRgn(FindWindowEx(FindWindow(\u2018Shell_TrayWnd\u2019, nil),0,\u2019Button\u2019,nil),0,true); \/\/\u663e\u793a\u5f00\u59cb\u83dc\u5355
\nEnableWindow(FindWindowEx(FindWindow(\u2018Shell_TrayWnd\u2019, nil),0, \u2018Button\u2019, nil),false); \/\/\u7981\u7528\u5f00\u59cb\u83dc\u5355
\nEnableWindow(FindWindowEx(FindWindow(\u2018Shell_TrayWnd\u2019, nil),0,\u2019Button\u2019,nil),true); \/\/\u53d6\u6d88\u7981\u7528\u83dc\u5355<\/p>\n","protected":false},"excerpt":{"rendered":"
DELPHI \u5982\u4f55\u8bbe\u7f6e\u4e00\u4e2a\u7a97\u53e3\u4e0d\u80fd\u6700\u5927\u5316\/\u6700\u5c0f\u5316\/\u8fd8\u539f\u529f\u80fd? \u8bbe\u7f6e\u7a97\u4f53\u7684BorderIcons\u5c5e\u6027\u7684biMin […]<\/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-89","post","type-post","status-publish","format-standard","hentry","category-my_notes"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/89","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=89"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/89\/revisions"}],"predecessor-version":[{"id":4858,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/89\/revisions\/4858"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=89"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=89"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=89"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}