Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 TStringListµÄÓ÷¨

delphi TStringListµÄÓ÷¨
TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏÈ°ÑÒªÌÖÂ۵ļ¸¸öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£Ôõô ......

DELPHI ÈÃ×Ó´°ÌåÏÔʾÔÚÈÎÎñÀ¸ÉÏ

 ÖØÔØ CreateParams ·½·¨¼´¿É
ÉùÃ÷£º
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......

DelphiÔ´³ÌÐò¸ñʽÊéд¹æ·¶

1£¬¹æ·¶¼ò½é
¡¡¡¡±¾¹æ·¶Ö÷Òª¹æ¶¨DelphiÔ´³ÌÐòÔÚÊéд¹ý³ÌÖÐËùÓ¦×ñÑ­µÄ¹æÔò¼°×¢ÒâÊÂÏî¡£±àд¸Ã¹æ·¶µÄÄ¿µÄÊÇʹ¹«Ë¾Èí¼þ¿ª·¢ÈËÔ±µÄÔ´´úÂëÊéдϰ¹ß±£³ÖÒ»Ö¡£ÕâÑù×ö¿ÉÒÔʹÿһ¸ö×éÔ±¶¼¿ÉÒÔÀí½âÆäËü×éÔ±µÄ´úÂ룬ÒÔ±ãÓÚÔ´´úÂëµÄ¶þ´Î¿ª·¢¼ÇÒäϵͳµÄά»¤¡£
2£¬Ò»°ã¸ñʽ¹æ·¶
2.1 Ëõ½ø
¡¡¡¡Ëõ½ø¾ÍÊÇÔÚµ±Ô´³ÌÐòµÄ¼¶¸Ä±äʱΪÔö¼ ......

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔÇ°µÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂÇ°µÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
        Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......

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

¶ÔÓÚÍøÂçÓÎÏ·À´Ëµ£¬ËüºÍµ¥»ú°æÓÎÏ·×î´óµÄÇø±ð¾ÍÔÚÓÚÍøÂçͨÐŲ¿·Ö¡£¿ÉÒÔ˵£¬ÍøÂçͨÐÅÊǹ¹³ÉÍøÓεÄ×î»ù±¾ÔªËØ¡£ÔÚÕâÀïÎÒ²»ÏëÏêϸµÄÂÛÊöÈçºÎʹÓÃDELPHIÔÚWINDOWSϽøÐÐÍøÂç±à³Ì£¬ÒòΪÕâÊÇÒ»¸ö·Ç³£¸´ÔӵĻ°Ìâ¡£ÕâÀïÎÒÖ»ÊÇÏë˵Ã÷ÔÚÎÒÉè¼ÆµÄÆåÅÆÀàÓÎÏ·ÖÐÈçºÎʵÏÖÓÎÏ·ÍøÂ粿·ÖµÄ¡£
¶ÔÓÚWINDOWSÀ´Ëµ£¬ËüµÄͨÐÅÄ£ÐÍ´ó¸Å·ÖΪ5ÖÖ¡£·Ö± ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ