比如这样: <br><br> myregistry.OpenKey('/txtfile/shell/open/command',true);<br> myregistry.WriteString('','NotePad.exe %1');<br> myregistry.Free;<br> if ParamCount>=2 then<br> begin<br> temp:=ParamStr(1);<br> For iCount:= 2 to ParamCount do<br> begin<br> temp:=temp+' '+paramstr(icount);<br> end;<br> end<br> else temp:=Paramstr(1);<br> winexec(pchar(temp),sw_normal);