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:"ÐÒé¸ñʽ£¬ÄÇô¸
Ïà¹ØÎĵµ£º
ǰ¶Îʱ¼äÒòΪÏîÄ¿ÐèÒª£¬»ñȡָ¶¨ÎļþµÄͼ±ê£¬ÈÆÁ˺ܶàÍä×Ó£¬ÏÖÔÚŪ³öÀ´ÁË£¬¸ú´ó¼Ò¹²ÏíÏÂ.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
l ......
Delphi±àдϵͳ·þÎñÁù£ºÔÚ·þÎñÖÐʹÓÃCOM×é¼þ ÊÕ²Ø
ÔÚ·þÎñÖе÷ÓÃCOM×é¼þ²»ÄÜÏñÔÚ×ÀÃæ³ÌÐòÖÐÖ±½Ó´´½¨£¬ÔÚÿ´Î´´½¨Ö®Ç°Ïȵ÷ÓÃCoInitialize(nil)£¬ÊͷŵÄʱºòµ÷ÓÃCoUninitialize¡£ÀýÈ磺µ÷ÓÃADO×é¼þ
var
Qry: TADOQuery;
begin
CoInitialize(nil);
Qry := TADOQuery.Create(nil);
tr ......
±ÈÈç²Ù×÷
CSDNµÄµÇ¼
ÏÈÓÃWebBrowser¶¨Î»µ½µÇÂ¼Ò³Ãæ
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
È»ºó£¬¿´ÆäHTMLÔ´´úÂ룬·¢ÏÖ
Ãû×ÖΪ ctl00$CPH_Content$tb_LoginNameOrLoginEmailµÄÔªËØ¾ÍÊÇ ÆäÓû§ÃûµÄÊäÈë¿òÁË¡£
´Ëʱ
ʹÓÃ
(WebBrowser1.Documen ......
ǰÑÔ
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØÐ±àÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓÐ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......
ÎÒһֱʹÓÃDelphi6¿ª·¢Èí¼þ£¬¿´µ½CSDNÉϵÄOPhoneÊÖ»ú¿ª·¢£¬ÓÖÈ¥GoogleÒ»·¬£¬Ìý˵±àдÊÖ»úÈí¼þ
ÄÜ׬Ǯ£¬ËùÒÔҪѧϰJava ME£¬¶ÁÁ˼¸Ì첩ÎÄ£¬´ó¶àÊý¸ÅÄî¸ãÇå³þÁË¡£
ҪѧJavaME¾ÍµÃÏÈѧJavaSE£¬ËùÒÔ×°Á˺ܶàÈí¼þ(²»×°ÄÇô¶à£¬OPhone¾Í×°²»ÉÏÈ¥)¡£
ÍÆ¼öһƪÓÅÐãµÄÎÄÕ£º
ÔÚ NetBeans IDE ÖÐÉè¼Æ Swing GUI
¶ÁÍêÕâÆªÎÄÕ£¬³õ ......