Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÃ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;


Ïà¹ØÎĵµ£º

DelPhiÏÂÓÃCDO·¢ËÍÓÊÏäʵÀý

Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬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 ÖÐMd5»ñÈ¡£¨Indy 9£©







ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......

delphi ½Å±¾ÒýÇæ±È½Ï

TMS Scripter£ºÖ§³ÖPascalºÍVBScriptÁ½ÖÖÓï·¨¡£ÓŵãÊÇÎĵµÆëÈ«¡¢Àý×ÓÆëÈ«£¬½Å±¾¿ÉÖ±½ÓÖ§³ÖDLL£¬¹Ù·½»¹ÌṩÁ˷ḻµÄIDE Debug¹¤¾ß¡¢µ¥Ôªµ¼³öº¯Êý¹¤¾ßµÈ£¬È±µãÊDZàÒëÔËÐнÏÂý¡£for ¿ÕÑ­»·1000Íò´Î£¬ÐèÒª10ÃëÖÓÒÔÉÏ¡£TMS ScripterÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
       FastScript£ºÓùýFastReport±¨±íµÄÍ¬Ñ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ