ÓÃDELPHI´´½¨DLLÎļþ£¬·â×°´°ÌåµÄʵÏÖ·½·¨ÊµÀý
ËäÊÇÔ´´£¬µ«ÊÇÊDzο¼¹ý±ðÈ˵Ä×÷Æ·£¬È»ºó×Ô¼ºÖØÐÂдµÄ£¬Ä¿µÄÊÇÒª¸ø³õѧÕßÒ»¸ö¸üÈÝÒ×Ã÷°×¡£
ÓÃDELPHI´´½¨DLLÎļþ£¬·â×°´°ÌåµÄʵÏÖ·½·¨ÊµÀý£º
¼´Ò»¸ö³ÌÐò²»ÔÙÊǵ¥Ò»µÄÒ»¸öEXEÎļþÁË£¬¶øÊÇÓÉÒ»¸öEXEÎļþ¼ÓN¸öDLLÎļþ×é³É£¬ÕâÑù×öµÄÔÒòÊÇ·½±ãÒÔºóµÄά»¤Óë¸üУ¬Ò²ÊÇ¿çÆ½Ì¨¿ª·¢µÄÖØÒªÒ»²½¡£
1£¬ ´ò¿ªDELPHI£¬Ð½¨Ò»¸öDll Wizard
2£¬ ÔÚн¨µÄDllÀïн¨Ò»¸öForm
3£¬ ÔÚн¨µÄFormÀïuses stdctrls
4£¬ ÔÚvarÏÂÃæÐ´£º
Procedure synapp(App:THandle);stdcall;
Procedure showform;stdcall;
5£¬ È»ºóÔÚimplementation ÏÂÃæuses math
6£¬ ÔÚ{$R *.dfm}ÏÂÃæÐ´
Procedure synapp(App:THandle);stdcall;
Begin
Application.Handle:=app;
End;
Procedure showform;stdcall;
Begin
Form1:=Tform1.create(application);
Form1.show;
End;
7£¬ ÔÚdllµÄLibraryÎļþÀïµÄ{$R *.res}ÏÂÃæÐ´£º
exports
Sysapp,show;
ÉÏÃæµ½´ËΪֹÍê³ÉÁËDLL·â×°´°ÌåµÄ´´½¨
ÏÂÃæÊǵ÷ÓÃÁË
1£¬ ÔÚÒªµ÷ÓÃDLLÎļþµÄ³ÌÐòµÄvarÏÂд£º
Procedure synapp(App:THandle);stdcall;external ‘my.dll’ ;//----ÄãµÄDLLÎļþÃû
Procedure showform;stdcall;external‘my.dll’;//----ÄãµÄDLLÎļþÃû
×¢£º°ÑÄãдºÃµÄDLL·ÅÔÚ±¾³ÌÐòµÄͬһĿ¼Ï£¬ºÍÉÏÃæÒ»Ñù£¬Òªuses math;
2£¬ ÔÚÄãµÄ³ÌÐòµÄButtonµÄOn ClickʼþÏÂд£º
Synapp(applicatiln.Handle);
Showform;
Ïà¹ØÎĵµ£º
Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'< ......
Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......
µÚÒ»ÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
µÚ¶þÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
1>ÏòÖ¸¶¨µÄÇøÓò»òÐÎ×´Ìí¼Ó³¬Á´½Ó¡£
Óï·¨
±í´ïʽ.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
±í´ïʽ Ò»¸ö´ú±í Hyperlinks ¶ÔÏóµÄ±äÁ¿¡£
²ÎÊý
Ãû³Æ±ØÑ¡/¿ÉÑ¡Êý¾ÝÀàÐÍÃèÊö
Anchor
±ØÑ¡
Object
³¬Á´½ÓµÄλÖ᣿ÉΪ Range »ò Shape ¶ÔÏó¡£
Address
±ØÑ¡
String
³¬Á´½ÓµÄµØÖ ......