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

DELPHI¶àÐдúÂëÔõôÁ¬½Ó?

WinExec(pchar('c:\windows\sys
tem32\calc.exe'),SW_SHOWNORMAL);

¶àÐдúÂëÔõôÁ¬½ÓÔËÐÐ?

±ÈÈçÉÏÃæµÄ´úÂëÁ½ÐÐ,Ôõô²ÅÄÜÔËÐÐÆðÀ´?
WinExec(pchar('c:\windows\sys'+
  'tem32\calc.exe'),SW_SHOWNORMAL);

»ò

var
  str: string;
begin
  str:= 'c:windows\sys'+
        'temp32\calc.exe')
  winexec(pchar(str),sw_shownormal);
end;

UP

ÏÈÆ´½Ó×Ö·û

ÓÃ+Æ´½Ó×Ö·û

+

concat

str := 'abc'
      +'def'
      +'ghi';



ûλÖÃÁË

´ú¿ª¸÷ÐÐÒµ¡¾増Ö±/鐠ͨ¡¿Æ¯¾Ý¡£
ÁíÅú·¢/ÁãÊÛ·ÂÕæ¶È¿É´ï90%ÒÔÉϸ÷Æ·ÅÆÏãÑÌ£¬ÈçÖлª¡¢»Æº×Â¥1916¡¢Ü½ÈØÍõ¡¢ÄϾ©95ÖÁ×ð¡¢°×ɳ(ºÍÌìÏÂ)¡¢ËÕÑÌ¡¢ÓñϪ¡¢ÀûȺ¡¢Ë«Ï²¡¢ÊÀ¼Í¾­µäµÈ¡£
ÈçÓÐÒ⣬ÇëÁªÏµQ£º1145553117¡£  ÊÖ»ú£º13544123356¡¢½ðÏÈÉú


WinExec(PChar('cmd /c net user&ipconfig'),SW_SHOW);
ÃüÁîÓëÃüÁîÖ®¼äÓà ¡°&¡±

var
  str:string;
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
    str:=str+memo1.Lines.Strings[i]+'&';
  WinExec(PChar('cmd /c '+str),SW_SHOW);
end;

±ðÈËÎҾͲ»ÖªµÀÁË£¬·´ÕýÎÒÊÇÕâôÓõÄ





Ïà¹ØÎÊ´ð£º

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

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

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

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

ѧϰѧϰ¡£

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

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

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

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

unit UShare;
interface
uses Windows, Me ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi ½øÏú´æÊ±Èë¿âÊýÁ¿ºÍ³ö¿âÊýÁ¿¼äµÄ¹ØÏµ

ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ