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

DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ

¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ¹ý³Ìµ÷ÓÃͨ¹ý¸Ã¶ÔÏó ʵÀý·ÃÎÊÊý¾Ý¿â¡£
ÐèÒªÃ÷ȷһЩ»ù±¾¸ÅÄî¡£¶ÔÓÚ DLL£¬ÐèÒªÔÚÖ÷³ÌÐòÖаüº¬ exports×Ӿ䣬ÓÃÓÚÏòÍâ½çÌṩµ÷Óà ½Ó¿Ú£¬×Ó¾äÖоÍÊÇһϵÁк¯Êý»ò¹ý³ÌµÄÃû×Ö¡£¶ÔÓÚÖ÷½Ð·½£¨µ÷Óà DLLµÄÓ¦ÓóÌÐò»òÆäËüµÄ DLL£©£¬ ÔòÐèÒªÔÚµ÷ÓÃ֮ǰ½øÐÐÍⲿÉùÃ÷£¬¼´external±£Áô×ÖָʾµÄÉùÃ÷¡£ÕâЩÊDZàд DLLºÍµ÷Óà DLL±ØÐë ¾ß±¸µÄÒªËØ¡£
ÁíÍâÐèÒªÁ˽âObject Pascal ÖÐÓйص÷ÓÃЭÒéµÄÄÚÈÝ¡£ÔÚObject Pascal ÖУ¬¶ÔÓÚ¹ý³ÌºÍº¯Êý ÓÐÒÔÏÂÎåÖÖµ÷ÓÃЭÒ飺
ָʾ×Ö ²ÎÊý´«µÝ˳Ðò ²ÎÊýÇå³ýÕß ²ÎÊýÊÇ·ñʹÓüĴæÆ÷
register ×Ô×óÏòÓÒ ±»µ÷Àý³Ì ÊÇ
pascal ×Ô×óÏòÓÒ ±»µ÷Àý³Ì ·ñ
cdecl ×ÔÓÒÏò×ó µ÷ÓÃÕß ·ñ
stdcall ×ÔÓÒÏò×ó ±»µ÷Àý³Ì ·ñ
safecall ×ÔÓÒÏò×ó ±»µ÷Àý³Ì ·ñ
ÕâÀïµÄָʾ×Ö¾ÍÊÇÔÚÉùÃ÷º¯Êý»ò¹ý³Ìʱ¸½¼ÓÔÚÀý³Ì±êÌâÖ®ºóµÄ±£Áô×Ö£¬Ä¬ÈÏΪregister£¬¼´ÊÇ Î¨Ò»Ê¹Óà CPU¼Ä´æÆ÷µÄ²ÎÊý´«µÝ·½Ê½£¬Ò²ÊÇ´«µÝËÙ¶È×î¿ìµÄ·½Ê½£»
pascal: µ÷ÓÃЭÒé½öÓÃÓÚÏòºó¼æÈÝ£¬¼´Ïò¾ÉµÄ°æ±¾¼æÈÝ£»
cdecl: ¶àÓÃÓÚ CºÍ C++ÓïÑÔ±àдµÄÀý³Ì£¬Ò²ÓÃÓÚÐèÒªÓɵ÷ÓÃÕßÇå³ý²ÎÊýµÄÀý³Ì£»
stdcall: ºÍsafecallÖ÷ÒªÓÃÓÚµ÷ÓÃWindows API º¯Êý£»ÆäÖÐsafecall»¹ÓÃÓÚË«ÖØ½Ó¿Ú¡£
ÔÚ±¾ÀýÖУ¬½«Ê¹Óõ÷ÓÃЭÒécdecl £¬ÒòΪ±»µ÷ÓÃµÄ DLLÖУ¬Ê¹ÓõÄÊý¾Ý¿âÁ¬½ÓÊÇÓÉÖ÷½Ð·½´«µÝ µÃµ½µÄ£¬²¢ÇÒÐèÒªÓÉÖ÷½Ð·½´¦ÀíÁ¬½ÓµÄ¹Ø±ÕºÍÏú»Ù¡£
ÏÂÃæÊÇ DLLÍêÕûÔ´³ÌÐòºÍÖ÷½Ð³ÌÐòÍêÕûÔ´³ÌÐò¡£°üÀ¨ÒÔÏÂËĸöÎļþ£º
Project1.DPR {Ö÷½Ð³ÌÐò}
Unit1.PAS {Ö÷½Ð³ÌÐòµ¥Ôª}
Project2.DPR {DLL}
Unit2.PAS {DLLµ¥Ôª}
{---------- DLL Ö÷³ÌÐò Project2.DPR ----------}
library Project2;
uses
SysUtils,
Classes,
Unit2 in 'Unit2.pas' {Form1};
{$R *.RES}
{ ÏÂÃæµÄÓï¾äÓÃÓÚÏòµ÷Óøà DLLµÄ³ÌÐòÌṩµ÷ÓÃ½Ó¿Ú }
exports
DoTest; { ¹ý³ÌÀ´×Ôµ¥ÔªUnit2 }
begin
end.
{---------- DLLÖеĵ¥Ôª Unit2.PAS ----------}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, Menus;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;{ ±¾µØÊý¾Ý¿âÁ¬½Ó }
Memo1: TMem


Ïà¹ØÎĵµ£º

DELPHI»ù´¡½Ì³Ì¶ÁÊé±Ê¼Ç

ÉèÖÃ×ÖÌåµÄ¹ý³Ì
Procedure TForm1.FontDlgApply(Sender:Tobject);
begin
Button1.Font:= FontDialog1.Font;
end;¡¡
¸Ã³ÌÐòÖ»Óе±Óû§°´¶¯About¿òµÄ°´Å¥»ò±»About´°¿ØÖÆÍ¼±ê¹Ø±Õ´°¿Úºó£¬²Å»á»Øµ½Ö÷´°ÌåÖУ¬¶ø²»ÄÜÓëµÚÒ»¸ö´°Ìå·¢Éú½»»¥ÐÐΪ¡£Õâ¾ÍÊÇ·½·¨ShowºÍShowModalµÄÖ÷Òª²»Í¬Ö®´¦
¼¯ºÏÀàÐÍÊÇһȺÏàͬÀàÐÍÔªËØµÄ×éºÏ ......

Delphi »ñÈ¡¾ä±ú sendmessage

²éÕÒÁíÍâÒ»¸ö´°¿ÚµÄ¾ä±ú£º handle := FindWindow(nil,PChar('´°¿ÚµÄ±êÌâ'));//²éµ½´°Ìå¾ä±ú
²éÕÒ×Ó´°Ì壺childHandle := FindWindowEx(handle,0,'×Ó´°ÌåÀà','×Ó´°Ìå±êÌâ');
ÁíÍâÓиöö¾Ù×Ó´°ÌåµÄAPI£¬EnumChildWindows(Ö÷´´Ìå¾ä±ú,@»Øµ÷º¯Êý,Óû§²ÎÊý);
ÓÃÕâ¸öº¯ÊýÐèÒª×Ô¼ºÐ´Ò»¸ö»Øµ÷µÄº¯Êý£¬±ÈÈ磺
function EnumChil ......

Delphi ÎҵĴúÂëÖ®´°ÌåÒÆ¶¯

¼¼Êõ½»Á÷,DH½²½â. Õâ¸ö¹¤¾ßÊǺÃÔçºÃÔçÒÔǰдµÄ,ÎÒÕâ¸öϲ»¶Ôڼұ߿´µçÓ°±ßдд´úÂë»òÕß¿´µç×ÓÊé,ËùÒÔ¾­³£»á½«ÍøÒ³ÒƵ½ÆÁÄ»µÄ×óÉϽǻòÕßÓÒÉϽÇ,¶øÇÒÒªÖö¥.ËùÒÔ¾ÍдÁËÕâÑùÒ»¸ö¹¤¾ß,Õâ¸ö¹¤¾ßÖ÷ÒªÊǶԾä±úµÄ²Ù×÷,»¹ÓоÍÊÇ´°ÌåÑùʽÒÔ¼°¼¸¸öAPIµÄÀý×Ó,±È½Ï»ù´¡. Õû¸öÎļþÔÚ here(Can't Input Chinese:() ÏÂÃæ°Ñ´úÂëÌù³öÀ´,Ï£Íû ......

delphiÈçºÎÓñ£´æÊý¾Ý¿âÁ¬½Ó²ÎÊý£¨INIƪ£©

ÔÚÉè¼ÆÊý¾Ý¿âÓ¦ÓóÌÐòµÄʱºò£¬¾­³£ÐèÒª½«Ò»Ð©ÐÅÏ¢´Ó³ÌÐòÖжÀÁ¢³öÀ´£¬ÒÔ±£Ö¤³ÌÐòµÄ¿ÉÒÆÖ²ÐÔ¡£ÆäÖÐ×îÖØÒªµÄÐÅÏ¢¾ÍÊÇÊý¾Ý¿âµÄÁ¬½Ó²ÎÊý¡£
ÔÚDelphiÖУ¬»ñµÃÕýÈ·µÄÊý¾Ý¿âÁ¬½Ó²ÎÊýµÄ·½·¨Ê®·Ö¼òµ¥£¬ÄãÖ»ÐèÒª½¨Á¢Ò»¸öÊý¾ÝÄ£¿é£¬ÔÚÆäÖÐÌí¼ÓÒ»¸öADO Connection,Ë«»÷Ö®£¬È»ºóÔÚµ¯³öµÄ´°¿ÚÖÐÑ¡“Use Connection String”£¬µ¥ ......

»ñÈ¡Îļþ·¾¶(Delphi ) תÌù

ExtractFileDrive £º·µ»ØÍêÕûÎļþÃûÖеÄÇý¶¯Æ÷£¬Èç"C:"
ExtractFilePath£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó´ø“/”£¬Èç"C:\test\"
ExtractFileDir£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó²»´ø“/” ,Èç"C:\test"
ExtractFileName:·µ»ØÍêÕûÎļþÃûÖеÄÎļþÃû³Æ (´øÀ©Õ¹Ãû)£¬Èç"mytest.doc"
ExtractFileExt ·µ»ØÍ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ