fanybupt

日出而作，日入而息，凿井而饮，耕田而食，帝力于我何有哉？

导航

打开方式对话框

Posted on 2012-05-04 17:32  fanybupt  阅读(195)  评论(0)    收藏  举报 

function OpenAs_RunDLL(const AWND1, AWND2: HWND; const AFilename:
  PChar;AShow: Integer = SW_SHOW):integer; stdcall; external 'shell32.dll ';
也可使用ShellExecute，lpOperation 设置为‘OpenAS’，不过这个不太好使，需要保证对应类型的注册表有下面的项

[HKEY_CLASSES_ROOT\Unknown\shell\openas\command]
@=”%SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\shell32.dll,OpenAs_RunDLL %1”

"DelegateExecute"="{e44e9428-bdbc-4987-a099-40dc8fd255e7}"