DelphiÔõÑùµ÷³öexe ²¢¸½´«²ÎÊý°¡
ѧÃÃÌáÒ»¸ö²ËÄñÎÊÌ⣬DelphiÔõÑùµ÷³öexe ²¢¸½´«²ÎÊý°¡£¬¸÷λºÃÐÄÈ˰ï°ïæ°¡£¡Ð»Ð»ÁË£¬¼±£¬¼±£¬¼±£¡
´ó¼Ò°ï°ïæÁË!ÔÙ´ÎллÁË
¸ß·Ö£¡
Shellexecute µÚËĸö²ÎÊý¾ÍÊǵ÷ÓòÎÊý
ShellExecute
¾ß體Ó÷¨£¬參¿¼msdn說Ã÷»òdelphi幫Öú...
uses ShellApi;
µ÷ÓÃcÅÌϵÄA.exe,ͬʱ´«2¸ö²ÎÊý¹ýÈ¥,Èô¶à¸ö¾ÍÓÿոñ·Ö¿ª:
ShellExecute(0, nil,'c:\A.exe', 'k kk', nil, Sw_ShowNormal);
ÔÚA.exe onCreateʼþ,¿ÉÒÔÈ¡µÃÕâЩ²ÎÊý:
showmessage(ParamStr(1)); //½á¹ûÊÇ k
showmessage(ParamStr(2)); //½á¹ûÊÇ kk
...
showmessage(ParamStr(n));
Shellexecute
up
лл´ó¼Ò£¬ÎÒ²»ÖªµÀÔõô¸øÄãÃÇ·Ö
ÎÒÊÇÐÂÊÖÔõô¸øÑ½
·ÖÈ«¸øÁËÎÒ·ÖÉÙ£¬Ð»Ð»´ó¼Ò
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do ......