delphiÖ´ÐÐÍⲿ³ÌÐòµÈ´ý³ÌÐòÔËÐгɹ¦,¶ø²»ÊdzÌÐòÍ˳ö
ÎÒÏëÓÃdelphiÖ´ÐÐÒ»¸öÍⲿ³ÌÐò,µÈÍⲿ³ÌÐòÍêÈ«ÔËÐÐ(Õâ¸ö³ÌÐò²»ÄܹرÕ),²¢È¡µÃÕâ¸öÍⲿ³ÌÐòÖеÄEdit¾ä±ú
ÔÚÖ÷³ÌÐòÔËÐеÄʱºòÐèÒªÍⲿ³ÌÐò¸¨Öú,ÎÒÏÖÔÚÓÃCreateProcessÔËÐгÌÐòÒÔºó,ÒòΪ³ÌÐòÌ«¿ìedit¾ä±úÓÐʱȡ²»µ½,ÈçºÎµÈ´ý,Õâ¸öÍⲿ³ÌÐòÍêÈ«´ò¿ªÁË,ÔÙÍù϶Á¾ä±ú
function WinExecAndWait32(FileName: string; Visibility: integer): Dword;
{Ö´ÐÐÒ»¸öÍⲿ³ÌÐò²¢µÈ´ýÆä½áÊø}
var
zAppName: array[0..512] of char;
zCurDir: array[0..255] of char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
chmForm.btSaveas.Tag := 1;
chmForm.btView.Tag := 1;
TRY
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
ÔÚdelphiÖлæ×ø±êͼ¶¼ÓÃʲô¿Ø¼þÄØ£¬Ð»Ð»ÁË
tchart ͼ±í¿Ø¼þ£¬»¹ÓÐÐí¶àµÚÈý·½¿Ø¼þ¶¼¿ÉÒÔ
×Ô¼º±à»òµÚÈý·½¿Ø¼þ¡£
лл¥ÉÏÁ½Î»»Ø´ð£¬Èç¹û×Ô¼º±àµÄ»°¸ÃÈçºÎÏÂÊÖÄØ£¬ÎÒ¸Õ½Ó´¥delphi£¬Ðí¶à¶«Î÷²»ÊǺÜÇå³þ£¬Ð»Ð»ÁË
......