Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔõÑùÔÚDelphiÖе÷ÓÃEXEÎļþ


//¼Óһϰ´Å¥£¬¼ÓÒ»¸ö¶Ô»°¿ò¾ÍOKÀ²
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;

---------------------------------------------------------------

ÎÒÃdz£Óõĺ¯ÊýÓÐÁ½¸ö£¬WinExec ºÍ ShellExecute¡£

1£© ʹÓà WinExec º¯Êý £¨ÊôÓÚ WinProcsµ¥Ôª£©
· ÉùÃ÷ÐÎʽ UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow);
[Àý] var SDir:string;
SetLength(SDir,144);
GetWindowsDirectory(PChar(SDir),144);
SetLength(SDir,StrLen(PChar(SDir)));
SDir:=SDir+'\notepad.exe'+' '+savedialog1.FileName;
WinExec(PChar(SDir), SW_SHOWMAXIMIZED);
×¢Ò⣺Èç¹û SDir ²»ÊÇÓÐЧ·¾¶²»»áÌáʾ´íÎó¡£
[Àý] winexec('command.com /c copy *.* c:\',SW_Normal);
[Àý] winexec('start abc.txt');



2£©Ê¹Óà ShellExecute º¯Êý£¨ÊôÓÚShellAPIµ¥Ôª£©
ËüµÄ¼¸¸ö²ÎÊý£º
· hwnd£º´°ÌåµÄ¾ä±ú£»
· lpOperation£º´ò¿ª³ÌÐòÖ´ÐеIJÙ×÷£¬¹²Ô¤ÁôÓÐ"open"¡¢"explore"¡¢ "print"ÈýÖÖ·½Ê½£¬´Ë²ÎÊý¿ÉÒÔÊ¡ÂÔ£¬´Ëʱ½«ÒÀ¾Ý´ò¿ªµÄÎļþ£¨lpFile£©µÄÀàÐÍÖ´ÐÐÏàÓ¦µÄ²Ù×÷£¬±ÈÈ磺Èç¹ûlpFileΪһÎı¾Îļþ£¬ÄÇô½«»áÔÚÓë¸ÃÎļþÏà¹ØÁªµÄ³ÌÐòÖдò¿ªËü
· lpFile£ºÎļþÃû£»
· lpParamerters£º´ò¿ªÎļþʱËùÐèµÄ²ÎÊý£»
· lpDirectory£ºÎļþÃûËùÔڵķ¾¶£¬µ±È»£¬Ò»°ãÀ´Ëµ£¬ÔÚWindowsÖеǼǹýµÄ³ÌÐò£¨ÈçWinWord£©²»±ØÌṩ´Ë²ÎÊý£»
· nShowCmd£º´ò¿ªÎļþºó³ÌÐò´°ÌåÈçºÎÏÔʾ¡£

£¨1£©ÔËÐпÉÖ´ÐÐÎļþ
[Àý] ÒÔ"¼Çʱ¾"ΪÀý
procedure TForm1.OpenBtnClick(Sender:TObject);
begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal); end;
´ËÍ⣬ShellExeCute() »¹¿ÉÒÔ½øÐÐÁ´½ÓÍøÂç¡£
[Àý] procedure TForm1.HttpClick(Sender: TObject);
begin
ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal);
end;

£¨2£©´ò¿ªÔÚWi


Ïà¹ØÎĵµ£º

delphi×Ô¶¨Òå¹â±ê

¿ª·¢Õ߶¼Ï£Íû×Ô¼ºµÄ³ÌÐòÓÐÒ»¸öÓѺõĽçÃ棬´Ëʱ£¬Ò»¸öÉú¶¯»îÆá¢ÓбíÏÖÁ¦µÄ¹â±ê¾Í±Ø²»¿ÉÉÙÁË¡£Windows ȱʡÌṩ22ÖÖ±ê×¼¹â±ê¹©ÔÚ³ÌÐòÖе÷Ó㬵«¶ÔÒ»¸öÇóÐÂÇó±äµÄ³ÌÐòÔ±À´Ëµ£¬±ê×¼¹â±ê¾Í²»ÄÜÂú×ãÒªÇóÁË£¬ÐèҪʹÓÃ×Ô¼ºµÄ¹â±ê£¬ÄÇô£¬ÔÚ³ÌÐòÖÐÔõÑùʹÓÃ×Ô¼ºµÄ¹â±êÄØ£¿ ¡¡¡¡¡ñ¹â±ê×ÊÔ´µÄ»ñµÃ ¡¡¡¡ÒªÊ¹ÓÃ×Ô¶¨Òå¹â±ê£¬±ØÐëÏȵõ½Õâ ......

delphiÖÐCreateMutex£¬OpenMutexʹÓÃÒ»Àý

VCÉùÃ÷
HANDLE CreateMutex(
¡¡¡¡LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
¡¡¡¡BOOL bInitialOwner, // initial owner
¡¡¡¡LPCTSTR lpName // object name
¡¡¡¡);
delphiÉùÃ÷£º
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
´´½ ......

DelphiµÄAction¼°ActionListµÄÓ÷¨

    Ò»¸öÓѺõÄÓû§½çÃæ,±ØÐë¾ßÓÐÏÂÀ­²Ëµ¥£¬µ¯³ö²Ëµ¥£¬¹¤¾ßÌõºÍ¿ì½Ý¼ü¡£Í¬ÑùÒ»¸ö¹¦ÄÜ£¬³ÌÐòÔ±¿ÉÄÜÒªÌṩ¼¸ÖÖ²Ù×÷·½Ê½£¬ÈçÎı¾¿½±´£¬²Ëµ¥ÃüÁî&Copy,¿ì½Ý¼üCtrl+C,¹¤¾ßÌõÉϵĿ½±´°´Å¥£¬¶¼ÊdzÌÐòÔ±Ìṩ¸øÓû§µÄ²Ù×÷£¬¿ÉÒÔ´ó´ó·½±ãÁ˲»Í¬²ã´ÎµÄÓû§¡£µ«ÊÇ£¬¶àÔö¼ÓÒ»ÖÖ²Ù×÷·½Ê½£¬¾ÍÒâζ×ÅÔö¼ÓÏìӦʼþµÄ´úÂë£ ......

DELPHI Ö¸ÕëʹÓÃÓõÄһƪºÃÎÄ ÊÕ²Ø

DELPHI Ö¸ÕëʹÓÃÓõÄһƪºÃÎÄ ÊÕ²Ø
    DelphiÀï×Ô¼º¹ÜÀíÄÚ´æµÄÁ½¶Ôº¯Êý new(),dispose()ºÍgetmem(),freemem()   
   
    ´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í ......

ʹÓÃDelphi±àдÆåÅÆÀàÓÎÏ· »ù´¡Æª(1)

Ä¿Ç°¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľ­Ñé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕßÆðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼Æƪ¡£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ