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;
±ðÈËÎҾͲ»ÖªµÀÁË£¬·´ÕýÎÒÊÇÕâôÓõÄ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!!
up
baidu£¬google
up
http://www.codepub.com/software/view-software-4061.html
ÍøÕ¾ÉÏÓÐ
......