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;
±ðÈËÎҾͲ»ÖªµÀÁË£¬·´ÕýÎÒÊÇÕâôÓõÄ
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......