TOpenDialog.Filename在ActiveX中工作有问题,谁研究一下这个 SendMessage(100分)

  • 主题发起人 张鸿林
  • 开始时间

张鸿林

Unregistered / Unconfirmed
GUEST, unregistred user!
包括TOpenDialog控件的ActiveX或Com,在Delphi中作为组件调用<br>返回的TOpenDialog.Filename正确<br>但如果通过IE调用,返回乱码,我想是Dialogs.pas下列函数有问题<br>(肯定是widestring和string的兼容问题)<br><br>function TOpenDialog.GetFileName: TFileName;<br>var<br>&nbsp; Path: array[0..MAX_PATH] of Char;<br>begin<br>&nbsp; if NewStyleControls and (FHandle &lt;&gt; 0) then<br>&nbsp; begin<br>&nbsp; &nbsp; SendMessage(GetParent(FHandle), CDM_GETFILEPATH, SizeOf(Path), Integer(@Path));<br>&nbsp; &nbsp; Result := StrPas(Path);<br>&nbsp; end<br>&nbsp; else Result := FFileName;<br>end;<br>
 
请问一下<br>TOpenDialog/TOpenPictureDlg<br>使用哪个windows资源?<br>是winsysy/Commdlg.dll吗?
 
顶部