Delphiµ÷ÓÃÍⲿ³ÌÐòÏê½â
WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI;
1.±ê×¼Ó÷¨
¡¡¡¡ ShellExecuteº¯ÊýÔÐͼ°²ÎÊýº¬ÒåÈçÏ£º
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
¡ñhWnd£ºÓÃÓÚÖ¸¶¨¸¸´°¿Ú¾ä±ú¡£µ±º¯Êýµ÷Óùý³Ì³öÏÖ´íÎóʱ£¬Ëü½«×÷ΪWindowsÏûÏ¢´°¿ÚµÄ¸¸´°¿Ú¡£ÀýÈ磬¿ÉÒÔ½«ÆäÉèÖÃΪӦÓóÌÐòÖ÷´°¿Ú¾ä±ú£¬¼´Application.Handle£¬Ò²¿ÉÒÔ½«ÆäÉèÖÃΪ×ÀÃæ´°¿Ú¾ä±ú£¨ÓÃGetDesktopWindowº¯Êý»ñµÃ£©¡£
¡ñOperation£ºÓÃÓÚÖ¸¶¨Òª½øÐеIJÙ×÷¡£ÆäÖГopen”²Ù×÷±íʾִÐÐÓÉFileName²ÎÊýÖ¸¶¨µÄ³ÌÐò£¬»ò´ò¿ªÓÉFileName²ÎÊýÖ¸¶¨µÄÎļþ»òÎļþ¼Ð£»“print”²Ù×÷±íʾ´òÓ¡ÓÉFileName²ÎÊýÖ¸¶¨µÄÎļþ£»“explore”²Ù×÷±íʾä¯ÀÀÓÉFileName²ÎÊýÖ¸¶¨µÄÎļþ¼Ð¡£µ±²ÎÊýÉèΪnilʱ£¬±íʾִÐÐĬÈϲÙ×÷“open”¡£
¡ñFileName£ºÓÃÓÚÖ¸¶¨Òª´ò¿ªµÄÎļþÃû¡¢ÒªÖ´ÐеijÌÐòÎļþÃû»òÒªä¯ÀÀµÄÎļþ¼ÐÃû¡£
¡ñParameters£ºÈôFileName²ÎÊýÊÇÒ»¸ö¿ÉÖ´ÐгÌÐò£¬Ôò´Ë²ÎÊýÖ¸¶¨ÃüÁîÐвÎÊý£¬·ñÔò´Ë²ÎÊýӦΪnil»òPChar(0)¡£
¡ñDirectory£ºÓÃÓÚÖ¸¶¨Ä¬ÈÏĿ¼¡£
¡ñShowCmd£ºÈôFileName²ÎÊýÊÇÒ»¸ö¿ÉÖ´ÐгÌÐò£¬Ôò´Ë²ÎÊýÖ¸¶¨³ÌÐò´°¿ÚµÄ³õʼÏÔʾ·½Ê½£¬·ñÔò´Ë²ÎÊýÓ¦ÉèÖÃΪ0¡£
ÈôShellExecuteº¯Êýµ÷Óóɹ¦£¬Ôò·µ»ØֵΪ±»Ö´ÐгÌÐòµÄʵÀý¾ä±ú¡£Èô·µ»ØֵСÓÚ32£¬Ôò±íʾ³öÏÖ´íÎó¡£
ÉÏÊö½ö½öÊÇShellExecuteº¯ÊýµÄ±ê×¼Ó÷¨£¬ÏÂÃ潫½éÉÜËüµÄÌØÊâÓ÷¨¡£
2.ÌØÊâÓ÷¨
¡¡¡¡Èç¹û½«FileName²ÎÊýÉèÖÃΪ“http:”ÐÒé¸ñʽ£¬ÄÇô¸Ãº¯Êý½«´ò¿ªÄ¬ÈÏä¯ÀÀÆ÷²¢Á´½Óµ½Ö¸¶¨µÄURLµØÖ·¡£ÈôÓû§»úÆ÷Öа²×°Á˶à¸öä¯ÀÀÆ÷£¬Ôò¸Ãº¯Êý½«¸ù¾ÝWindows 9x/NT×¢²á±íÖÐhttpÐÒé´¦Àí³ÌÐò£¨Protocols Handler£©µÄÉèÖÃÈ·¶¨Æô¶¯Äĸöä¯ÀÀÆ÷¡£
¡¡¸ñʽһ£ºhttp://ÍøÕ¾ÓòÃû¡£È磺 ShellExecute(handle,"open","http://www.neu.edu.cn",nil,nil,SW_SHOWNORMAL);
¸ñʽ¶þ£ºhttp://ÍøÕ¾ÓòÃû/ÍøÒ³ÎļþÃû¡£ È磺ShellExecute(handle,"open","http://www.neu.edu.cn/default.htm",nil ,nil , SW_SHOWNORMAL);
Èç¹û½«FileName²ÎÊýÉèÖÃΪ"mailto:"ÐÒé¸ñʽ£¬ÄÇô¸
Ïà¹ØÎĵµ£º
<1>ÀûÓÃUnitµÄ
InitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
Program
Óë
Library²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin
..end.ÖмäÊÇ¿ÉÒÔд´úÂë
µÄ£¬
ÕâÀï¿ÉÒÔ·ÅÖÃ
DLL³õʼ»¯´úÂë
¡£Èç¹ûÏëÒª×öÉÆ ......
Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
´ò¿ªDelphi±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......
delphiÖÐWebbrowserµÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
htmÖÐ<script> var currID=123</script>
³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID
ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......
ÓÉÓÚÐèÒªÔÚ´°ÌåÖÐÉ趨һ¸öÈÕÆÚʱ¼ä£¬³öȥͨÓÃÐÍ¿¼ÂÇ£¬²ÉÓÃÁËTDateTimePicker¿Ø¼þ¡£
ÒòΪÕâ¸ö¿Ø¼þµÄĬÈÏ״ֻ̬ÄÜÏÔʾÈÕÆÚ£¬Ôì³ÉʹÓÃÉϵIJ»±ã£¬ËùÒÔÐèÒª×öÈçϵÄÉ趨£º
ÔڿؼþµÄformatÊôÐÔÀ¸ÀïÉèÖÃÈçÏÂÖµ£ºyyyy-mm-dd hh:mm:ss£»
É趨Íê³ÉºóµÄʱ¼äΪµ±Ç°µÄϵͳʱ¼ä£¬²»ÄÜͨ¹ýµ¯³öÈÕÀúÉ趨£¬Ö»ÄÜÔÚÎı¾¿òÖÐÉ趨¡£ ......