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

delphi ÃüÃû³åÍ»ÎÊÌâ

ÓÃdelphiдһ¿ª·¢Æ½Ì¨

ÓÃÆ½Ì¨¿ª·¢³ÌÐò¡£
¹¤³ÌAÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
¹¤³ÌBÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£

ÏÖÔÚÔÚ¹¤³ÌAÖд°Ìå1ÉÏÌí¼ÓÒ»°´Å¥ µã»÷µ¯³ö¹¤³ÌBµÄ´°Ìå1.

uses
  VT5004Unit2

procedure Button1Click(Sender: TObject);
var
  nForm:TForm1;                         
begin       
  nForm := TForm1.Create(Application);
  nForm.Show;             
end;

ÆäÖÐVT5004Unit2Ϊ¹¤³ÌBÎļþ¡£
ÏÖÔÚµÄЧ¹ûÊǵã»÷°´Å¥ µ¯³ö¹¤³ÌAµÄ´°Ìå1
¶øÒªµÄЧ¹ûÓ¦¸ÃÊǵ¯³ö¹¤³ÌBµÄ´°Ìå1   

Ó¦¸ÃÔõô°ì
nForm := VT5004Unit2.TForm1.Create(Application);

Delphi(Pascal) code:


procedure Button1Click(Sender: TObject);
var
nForm:TForm1;
begin
nForm := TForm1.Create(Application);
nForm.Show;
end;



ÄãÕâ¸ö¼ÈȻҪµ÷Óù¤³ÌBµÄ´°¿Ú£¬ÎªºÎ»¹Òªµ½ÕâÀﶨÒå1¸önForm¡£Õâ¾ÍÃ÷ÏÔÓÐÎÊÌâÂï¡£ÄãÕâÀïÓ¦¸ÃÊÇ
Òªµ÷Óù¤³ÌBÖж¨ÒåµÄÈ«¾Ö´°¿Ú¶ÔÏó²Å¶Ô°¡¡£

ÄãÒ²¿ÉÒ԰ѹ¤³ÌBµÄ´°¿Ú¶ÔÏóÊÖ¶¯¸ÄΪTForm2£¬ºÇºÇ¡£ÕâÑù¾Í²»»á³öÏÖͬÃûµÄÇé¿öÁË¡£

°ÑÆäÖÐÒ»¸ö¸ÃÆäËûÃû×Ö¾ÍÐÐÁË. ÄãÕâ¸ö³ÌÐòÓÐÁ½¸öProject?

¸ÄÃû×ÖÊÇ¿ÉÒÔ µ


Ïà¹ØÎÊ´ð£º

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ