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

TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØÏµTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......

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

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

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

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

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

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

delphi ¶Ô RESÎļþµÄʹÓÃ

Ò»¡¢Òý×Ó£º
     ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊǰÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
   &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ