Windows \u7684\u6267\u884c\u6587\u4ef6\u53ef\u4ee5\u5212\u5206\u4e3a\u4e24\u79cd\u5f62\u5f0f\u7a0b\u5e8f\u548c\u52a8\u6001\u8fde\u63a5\u5e93\uff08DLLs\uff09\u3002\u4e00\u822c\u7a0b\u5e8f\u8fd0\u884c\u662f\u7528.EXE\u6587\u4ef6\uff0c\u4f46\u5e94\u7528\u7a0b\u5e8f\u6709\u65f6\u4e5f\u53ef\u4ee5\u8c03\u7528\u5b58\u50a8\u5728DLL \u4e2d\u7684\u51fd\u6570\u3002<\/p>\n
\u5f53\u6211\u4eec\u8c03\u7528Windows \u4e2d\u7684API \u51fd\u6570\u7684\u65f6\u5019\uff0c\u5b9e\u9645\u4e0a\u5c31\u662f\u8c03\u7528\u5b58\u50a8\u5728DLL \u4e2d\u7684\u51fd\u6570\u3002
\n\u5728\u5982\u4e0b\u51e0\u79cd\u60c5\u51b5\u4e0b\uff0c\u8c03\u7528DLL \u662f\u5408\u7406\u7684\uff1a
\n1\uff09 \u4e0d\u540c\u7684\u7a0b\u5e8f\u4f7f\u7528\u76f8\u540c\u7684DLL \uff0c\u8fd9\u6837\u53ea\u9700\u8981\u5c06DLL \u5728\u5185\u5b58\u4e2d\u88c5\u8f7d\u4e00\u6b21\uff0c\u8282\u7701\u4e86\u5185\u5b58\u7684\u5f00\u9500\u3002
\n2\uff09 \u5f53\u67d0\u4e9b\u5185\u5bb9\u9700\u8981\u5347\u7ea7\u7684\u65f6\u5019\uff0c\u5982\u679c\u4f7f\u7528DLL \u53ea\u9700\u8981\u6539\u53d8DLL \u5c31\u53ef\u4ee5\u4e86\uff0c\u800c\u4e0d\u9700\u8981\u628a\u6574\u4e2a\u7a0b\u5e8f\u90fd\u8fdb\u884c\u53d8\u52a8\u3002
\n3\uff09 \u7531\u4e8eDLL \u662f\u72ec\u7acb\u4e8e\u8bed\u8a00\u7684\uff0c\u6240\u4ee5\uff0c\u5f53\u4e0d\u540c\u8bed\u8a00\u4e60\u60ef\u7684\u4eba\u5171\u540c\u5f00\u53d1\u4e00\u4e2a\u5927\u578b\u9879\u76ee\u7684\u65f6\u5019\uff0c\u4f7f\u7528DLL \u4fbf\u4e8e\u7a0b\u5e8f\u7cfb\u7edf\u7684\u4ea4\u6d41\uff0c\u5f53\u7136\uff0cDelphi\u5f00\u53d1\u7684DLL \u4e5f\u53ef\u4ee5\u5728\u8bf8\u5982Visual BASIC\uff0cC++ \u7b49\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002
\n\u4e0b\u9762\u901a\u8fc7\u51e0\u4e2a\u4f8b\u5b50\uff0c\u8bf4\u660eDelphi\u5f00\u53d1\u52a8\u6001\u8fde\u63a5\u5e93\u7684\u65b9\u6cd5\u548c\u89c4\u8303\u3002<\/p>\n
\u7b2c\u4e00\u8282 \u52a8\u6001\u8fde\u63a5\u5e93\u7684\u6784\u5efa\u548c\u8c03\u7528\u65b9\u6cd5<\/p>\n
\u4e00\u3001\u52a8\u6001\u8fde\u63a5\u5e93\u6784\u5efa
\nFile\u2014New\u2014Other\u2014DLL Wizard
\n\u8fd9\u5c31\u521b\u5efa\u4e86\u4e00\u4e2a\u52a8\u6001\u8fde\u63a5\u5e93\u7684\u57fa\u672c\u6a21\u5757<\/p>\n
\r\n library Project2;\r\n uses\r\n SysUtils,\r\n Classes;\r\n {$R *.res}\r\n begin\r\n end.\r\n<\/pre>\n\u628a\u5de5\u7a0b\u540d\u6539\u4e3aMydll\uff0c\u5e76\u5199\u5165\u5fc5\u8981\u7684\u51fd\u6570<\/p>\n
\r\n library mydll;\r\n uses\r\n SysUtils,Classes,Dialogs,windows;\r\n\r\n function Triple(N:Integer):integer;stdcall;\r\n begin\r\n result:=N+3;\r\n end;\r\n\r\n function Double(N:Integer):integer;stdcall;\r\n begin\r\n result:=N+2;\r\n end;\r\n\r\n function Triple1(N:Integer):integer;stdcall;\r\n begin\r\n showmessage(\u2018\u8ba1\u7b97N+3\u2032);\r\n result:=N+3;\r\n end;\r\n\r\n function Double1(N:Integer):integer;stdcall;\r\n begin\r\n messagebox(0,\u2019\u8ba1\u7b97N+2\u2032,\u2019\u8ba1\u7b97N+2\u2032,mb_ok);\r\n result:=N+2;\r\n end;\r\n\r\n exports\r\n Triple name \u2018Tr\u2019,\r\n Double name \u2018Do\u2019,\r\n Triple1 name \u2018TrM\u2019,\r\n Double1 name \u2018DoM\u2019;\r\n\r\n Triple,Double,Triple1,Double1;\r\n\r\n {$R *.RES}\r\n\r\n begin\r\n end.\r\n<\/pre>\n\u5176\u4e2d\u51fd\u6570\uff1aTriple\uff1a\u628a\u4f20\u5165\u503c\u52a0\u4e09
\nDouble\uff1a\u628a\u4f20\u5165\u503c\u52a0\u4e8c
\nTriple1\uff1a\u628a\u4f20\u5165\u503c\u52a0\u4e09\u5e76\u663e\u793a\u63d0\u793a
\nDouble1\uff1a\u628a\u4f20\u5165\u503c\u52a0\u4e8c\u5e76\u663e\u793a\u63d0\u793a<\/p>\n
\u4ece\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\u53ef\u4ee5\u770b\u51faDLL \u7a0b\u5e8f\u7684\u51e0\u4e2a\u89c4\u5219\uff1a
\n1\uff09 \u5728DLL \u7a0b\u5e8f\u4e2d\uff0c\u8f93\u51fa\u51fd\u6570\u5fc5\u987b\u88ab\u58f0\u660e\u4e3astdcall\uff0c\u4ee5\u4f7f\u7528\u6807\u51c6\u7684Win32 \u53c2\u6570\u4f20\u9012\u6280\u672f\u6765\u4ee3\u66ff\u4f18\u5316\u7684Register\u3002\uff08\u8bf4\u660e\uff1a\u5728Delphi\u4e2dRegister\u65b9\u5f0f\u662f\u7f3a\u7701\u7684\u8c03\u7528\u7ea6\u5b9a\uff0c\u8fd9\u4e2a\u7ea6\u5b9a\u5c3d\u91cf\u91c7\u7528\u5bc4\u5b58\u5668\u6765\u4f20\u9012\u53c2\u6570\uff0c\u4f20\u9012\u6b21\u5e8f\u4ece\u5de6\u5230\u53f3\uff0c\u6700\u591a\u53ef\u7528\u52303\u4e2aCPU \u7684\u5bc4\u5b58\u5668\uff0c\u5982\u679c\u53c2\u6570\u591a\u4e8e3 \u4e2a\uff0c\u5269\u4e0b\u7684\u5c31\u901a\u8fc7\u6808\u6765\u4f20\u9001\uff0c\u4f7f\u7528\u5bc4\u5b58\u5668\u4f20\u9001\u53ef\u4fdd\u8bc1\u53c2\u6570\u4f20\u9012\u7684\u901f\u5ea6\u6700\u5feb\u3002
\n\u800cstdcall \u65b9\u5f0f\u662f\u901a\u8fc7Windows \u7684\u6807\u51c6\u8c03\u7528\u6765\u4f20\u9012\u53c2\u6570\uff0c\u4f20\u9012\u79e9\u5e8f\u4ece\u5de6\u5230\u53f3\uff0c\u8fd9\u79cd\u65b9\u5f0f\u9002\u5408\u8c03\u7528Windows \u7684API \uff0c\u5728DLL \u4e2d\uff0c\u5f53\u7136\u8981\u4f7f\u7528\u8fd9\u79cd\u65b9\u5f0f\uff09\u3002
\n2\uff09\u6240\u6709\u7684\u8f93\u51fa\u51fd\u6570\u90fd\u5fc5\u987b\u5217\u5728exports\u5b50\u53e5\u4e0b\u9762\uff0c\u8fd9\u4f7f\u7684\u5b50\u4f8b\u7a0b\u5728DLL\u5916\u90e8\u5c31\u53ef\u4ee5\u770b\u5230\u3002<\/p>\n
\r\n exports\r\n Triple name \u2018Tr\u2019,\r\n Double name \u2018Do\u2019,\r\n Triple1 name \u2018TrM\u2019,\r\n Double1 name \u2018DoM\u2019;\r\n<\/pre>\n\u5217\u51fa\u4e86\u7528\u6237\u4f7f\u7528\u8fd9\u4e2a\u51fd\u6570\u7684\u63a5\u53e3\u540d\u5b57\u3002\u867d\u7136\u522b\u540d\u4e0d\u662f\u5fc5\u987b\u7684\uff0c\u4f46\u6700\u597d\u7ed9\u4e2a\u522b\u540d\uff0c\u4ee5\u4fbf\u7528\u6237\u7a0b\u5e8f\u66f4\u5bb9\u6613\u627e\u5230\u8fd9\u4e2a\u51fd\u6570\uff0c\u540c\u65f6\u8fd8\u8981\u6307\u51fa\uff0cDelphi 6.0\u53d6\u6d88\u4e86Delphi 5.0\u4e2d\u5141\u8bb8\u4f7f\u7528\u7684index \uff0c\u5982\u679c\u8fd8\u7528Index\u6765\u6307\u660e\u63a5\u53e3\u540d\u5b57\uff0cDelphi 6.0\u4e2d\u5c06\u63d0\u793a\u9519\u8bef\u3002
\n\u5b9e\u4f8b\u4e2d\u7ed9\u51fa\u4e86\u4e24\u79cd\u63d0\u793a\u65b9\u6cd5\uff0c\u4e3b\u8981\u60f3\u8bf4\u660e\u4e00\u4e2a\u95ee\u9898\uff1a
\nshowmessage(\u201d)\uff0c\u662fVCL \u63d0\u4f9b\u7684\u51fd\u6570\uff0c\u7531\u4e8e\u591a\u6b21\u7f16\u8bd1VCL\uff0c\u505a\u51fa\u7684\u7a0b\u5e8f\u4f1a\u6bd4\u8f83\u5927\u3002
\n\u800cmessagebox(0,\u201d,\u201d,mb_ok) \u662fWindows\u63d0\u4f9b\u7684API \u51fd\u6570\uff0c\u505a\u51fa\u7684\u7a0b\u5e8f\u4f1a\u6bd4\u8f83\u5c0f\u3002
\n\u8fd9\u5c31\u662f\u8bf4\uff0c\u7f16\u5199DLL \u7a0b\u5e8f\u7684\u65f6\u5019\uff0c\u8981\u5c3d\u91cf\u907f\u514d\u591a\u6b21\u7f16\u8bd1VCL \u3002\u4f5c\u4e3a\u4e00\u4e2a\u5b9e\u4f8b\uff0c\u8fd9\u91cc\u628a\u4e24\u79cd\u65b9\u6cd5\u90fd\u5217\u51fa\u6765\u4e86\u3002
\n\u4fdd\u5b58
\n\u7f16\u8bd1\uff1aProjrct\u2014Build Mydll
\n\u8fd9\u5c31\u5b8c\u6210\u4e86\u4e00\u4e2a\u7b80\u5355\u7684\u52a8\u6001\u8fde\u63a5\u5e93\u7684\u7f16\u5199\u3002<\/p>\n
\u4e8c\u3001\u52a8\u6001\u8fde\u63a5\u5e93\u7684\u8c03\u7528
\n\u9996\u5148\u5728implementation\u4e0b\u505a\u8c03\u7528\u58f0\u660e<\/p>\n
\r\nconst\r\ngdi32=\u2019mydll.dll\u2019;\r\nfunction triple(n:integer):integer;stdcall;external gdi32 name \u2018Tr\u2019;\r\nfunction Double(N:Integer):integer;stdcall;external gdi32 name \u2018Do\u2019;\r\nfunction triple1(n:integer):integer;stdcall;external gdi32 name \u2018TrM\u2019;\r\nfunction Double1(N:Integer):integer;stdcall;external gdi32 name \u2018DoM\u2019;\r\n<\/pre>\n\u4ee5\u540e\u7a0b\u5e8f\u4e2d\u5c31\u53ef\u4ee5\u4f5c\u4e3a\u666e\u901a\u7684\u51fd\u6570\u4f7f\u7528\u4e86\uff0c\u4f8b\u5982\uff1a<\/p>\n
\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar N:integer;\r\nbegin\r\n N:=updown1.position;\r\n edit1.text:=inttostr(triple(N));\r\nend;\r\n<\/pre>\n\u7b2c\u4e8c\u8282 DLL \u4e2d\u7684Delphi\u7a97\u4f53<\/p>\n
\u4e00\u3001\u5728DLL \u4e2d\u653e\u7f6e\u7a97\u7684\u7684\u65b9\u6cd5
\n\u5728DLL \u4e2d\uff0c\u9664\u4e86\u653e\u7f6e\u6807\u51c6\u7684\u51fd\u6570\u548c\u8fc7\u7a0b\u4ee5\u5916\uff0c\u4e5f\u53ef\u4ee5\u653e\u7f6e\u5df2\u7ecf\u505a\u597d\u7684\u7684delphi\u7a97\u4f53\uff0c\u4e5f\u53ef\u4ee5\u628a\u505a\u597d\u7684\u7a97\u4f53\u4f9b\u5176\u5b83\u7a0b\u5e8f\u4f7f\u7528\uff0c\u65b9\u6cd5\u662f\uff1a
\n1\uff09\u9996\u5148\u6309\u666e\u901a\u65b9\u6cd5\u5236\u4f5c\u7a97\u4f53\uff0c\u4e0d\u8fc7\u5728interface\u533a\u57df\uff0c\u5bf9\u63a5\u53e3\u51fd\u6570\u505a\u5982\u4e0b\u58f0\u660e<\/p>\n
\r\nfunction Createform(capt:string):string;stdcall;\r\n<\/pre>\n2\uff09\u5728implementation\u4e0b\u52a0\u5165\u63a5\u53e3\u51fd\u6570<\/p>\n
\r\nfunction Createform(capt:string):string;stdcall;\r\nvar Form1: TForm1;\r\nbegin\r\n form1:=Tform1.Create(application);\r\n form1.show;\r\n form1.caption:=capt;\r\nend;\r\n<\/pre>\n3\uff09\u5236\u4f5cDLL \u52a8\u6001\u8fde\u63a5\u5e93\uff0c\u4f46\u8981\u58f0\u660e\uff1a<\/p>\n
\r\nuses\r\n unit1 in \u2018unit1.pas\u2019;\r\nexports\r\n{\u5199\u5165\u63a5\u53e3\u6807\u793a\u7b26}\r\nCreateform name \u2018Myform\u2019;\r\n<\/pre>\n4\uff09\u8c03\u7528\u7a97\u4f53\u7684\u7a0b\u5e8f\u6309\u666e\u901a\u65b9\u6cd5\u5236\u4f5c\uff0c\u4f46\u662f \u5728implementation\u4e0b\u9996\u5148\u58f0\u660e\u8981\u8c03\u7528\u7684DLL\u51fd\u6570<\/p>\n
\r\nconst\r\n gdi32=\u2019myFormdll.dll\u2019;\r\n function Createform(capt:string):string;stdcall;external gdi32 name \u2018Myform\u2019;\r\n\r\nprocedure TForm3.Button1Click(Sender: TObject);\r\nvar n,m:string;\r\nbegin\r\n m:=\u2019\u6211\u7684\u7a97\u4f53\u2019;\r\n Createform(m);var n,m:string;\r\nend;\r\n<\/pre>\n\u4e8c\u3001DLL \u4e2d\u7684\u8c03\u7528\u7a97\u4f53\u65f6\u7684\u6570\u636e\u4f20\u9012<\/p>\n
\u5728\u7a97\u4f53\u8c03\u7528\u65f6\uff0c\u53ef\u4ee5\u7528\u666e\u901a\u7684\u51fd\u6570\u65b9\u6cd5\u4f20\u9012\u6570\u636e\uff0c\u4e0b\u9762\u4e3e\u4e2a\u4f8b\u5b50\u3002
\n1\uff09\u5efa\u7acb\u7a97\u4f53
\n\u505a\u4e00\u4e2a\u6539\u53d8\u989c\u8272\u7a97\u4f53\uff0c\u653e\u5728DLL \u4e2d\uff0c\u53ef\u4ee5\u7528\u666e\u901a\u7684\u65b9\u6cd5\u6765\u505a\uff0c\u4f46\u8981\u4f5c\u5982\u4e0b\u58f0\u660e\uff1a<\/p>\n
\r\n function mycolor(col:longint):longint;stdcall;\r\n function Getcolor:longint;stdcall;\r\n<\/pre>\n\u5176\u4e2d\uff0cmycolor\u4e3a\u6784\u9020\u7a97\u4f53\uff1bGetcolor\u4e3a\u4f20\u9012\u989c\u8272\u6570\u636e\u3002
\n\u5728implementation\u533a\u58f0\u660e\u4e00\u4e2a\u7a97\u4f53\u5185\u5168\u5c40\u7684\u53d8\u91cf
\nvar color1:longint;
\n\u4e0b\u9762\u5199\u51fa\u76f8\u5e94\u7684\u7a0b\u5e8f<\/p>\n
\r\nfunction mycolor(col:longint):longint;stdcall;\r\nvar Form1: TForm1;\r\nbegin\r\n form1:=Tform1.Create(application);\r\n form1.show;\r\n form1.panel1.Color:=col;\r\n form1.edit1.Text:=inttostr(form1.panel1.Color);\r\n result:=color1;\r\nend;\r\n\r\nfunction Getcolor:longint;stdcall;\r\nbegin\r\n result:=color1;\r\nend;\r\n\r\nprocedure TForm1.ScrollBar1Change(Sender: TObject);\r\nbegin\r\n panel2.Color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);\r\n edit2.Text:=inttostr(panel2.Color);\r\n color1:=panel2.Color;\r\nend;\r\n\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nbegin\r\n Free; \/\/\u6790\u6784Form1\r\nend;\r\n<\/pre>\n2\uff09\u5efa\u7acb\u52a8\u6001\u8fde\u63a5\u5e93
\n\u8fd0\u884c\u6210\u529f\u540e\uff0c\u518d\u5efa\u7acb\u52a8\u6001\u8fde\u63a5\u5e93\uff1a<\/p>\n
\r\nlibrary FormDLL;\r\n\r\n{\u4ece\u6587\u4ef6\u8c03\u5165}\r\nuses\r\n unit1 in \u2018unit1.pas\u2019;\r\nexports\r\n\r\n{\u5199\u5165\u63a5\u53e3\u6807\u793a\u7b26}\r\nMycolor name \u2018My\u2019,\r\nGetcolor name \u2018Get\u2019;\r\n\r\nbegin\r\nend.\r\n<\/pre>\n3\uff09\u5efa\u7acb\u8c03\u7528\u7684\u7a0b\u5e8f
\n\u9996\u5148\u58f0\u660e\u8981\u8c03\u7528\u7684DLL\u51fd\u6570<\/p>\n
\r\nconst\r\n gdi32=\u2019formDll.dll\u2019;\r\n function Mycolor(col:longint):longint;stdcall;external gdi32 name \u2018My\u2019;\r\n function Getcolor:longint;stdcall;external gdi32 name \u2018Get\u2019;\r\n<\/pre>\n\u7136\u540e\u5199\u51fa\u76f8\u5e94\u7684\u7a0b\u5e8f<\/p>\n
\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n Mycolor(color);\r\nend;\r\n\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nbegin\r\n color:=getcolor;\r\nend;\r\n<\/pre>\n\u6211\u4eec\u53ef\u4ee5\u770b\u5230\uff0c\u5728\u6539\u53d8\u989c\u8272\u7684\u7a97\u4f53\u4e2d\u505a\u4e86\u989c\u8272\u53d8\u5316\u540e\uff0c\u5f53\u524d\u7a97\u4f53\u7684\u989c\u8272\u5c06\u53d1\u751f\u53d8\u5316\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
Windows \u7684\u6267\u884c\u6587\u4ef6\u53ef\u4ee5\u5212\u5206\u4e3a\u4e24\u79cd\u5f62\u5f0f\u7a0b\u5e8f\u548c\u52a8\u6001\u8fde\u63a5\u5e93\uff08DLLs\uff09\u3002\u4e00\u822c\u7a0b\u5e8f\u8fd0\u884c\u662f\u7528.EXE\u6587\u4ef6\uff0c\u4f46\u5e94\u7528 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-356","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/356","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=356"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/356\/revisions"}],"predecessor-version":[{"id":4780,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/356\/revisions\/4780"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=356"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=356"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=356"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}