C
carem1
Unregistered / Unconfirmed
GUEST, unregistred user!
我是不是漏掉某些东西了？？？<br>procedure TForm3.ToolButton10Click(Sender: TObject);<br>var SEI
SHELLEXECUTEINFOA;<br>begin<br> getmem(sei,sizeof(sei^));<br> With SEI^ do<br> begin<br> cbSize:= sizeof(SEI<font color=red><b>^</b></font>
;//<<=======怎么会出错呢？是不是要调用什么单元阿？？我已经用了shellapi了~！！！！<br> fMask:= SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI;<br> wnd:=handle;<br> lpVerb:= 'properties';<br> lpFile:= 'c:/HPW5Ast2.dll'; //你自己的文件名<br> lpParameters:=nil;<br> lpDirectory:=nil;<br> nShow:=0;<br> hInstApp:=hInstance;<br> lpIDList:=nil;<br>End;<br>ShellExecuteEX(SEI);<br>freemem(sei);<br>end;
SHELLEXECUTEINFOA;<br>begin<br> getmem(sei,sizeof(sei^));<br> With SEI^ do<br> begin<br> cbSize:= sizeof(SEI<font color=red><b>^</b></font>//<<=======怎么会出错呢？是不是要调用什么单元阿？？我已经用了shellapi了~！！！！<br> fMask:= SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI;<br> wnd:=handle;<br> lpVerb:= 'properties';<br> lpFile:= 'c:/HPW5Ast2.dll'; //你自己的文件名<br> lpParameters:=nil;<br> lpDirectory:=nil;<br> nShow:=0;<br> hInstApp:=hInstance;<br> lpIDList:=nil;<br>End;<br>ShellExecuteEX(SEI);<br>freemem(sei);<br>end;