关于delphi的OpenPictureDialog的问题

[fstao]

比如edit1.text:='E:\素材\好物分享\好物分享背景.jpg'，我这样写代码：

OpenPictureDialog.InitialDir:=edit1.text；

OpenPictureDialog.Execute;

打开的时候，其路径并不是在“E:\素材\好物分享”，而跑到其它的路径上去了。

如果把edit1.text:='E:\素材\好物分享'，这样运行代码就没有问题，会打开默认的路径是“E:\素材\好物分享”。

但是edit1.text:='E:\素材\好物分享\好物分享背景.jpg'是动态的，有时还会有edit1.text:='E:\素材\测试\可转债步骤.png'，或者是

edit1.text:='E:\素材\金融理财广告\新产业.jpeg'，那如何写代码，让OpenPictureDialog默认在当前的路径上？比如路径在“E:\素材\好物分享”，或者是“E:\素材\测试”，或者是“E:\素材\金融理财广告”，等等。

[daigua1987]

OpenPictureDialog只是用于选择图片，如果是显示需要一个图片控件显示出来，或者用ShellExecute调用电脑默认的预览软件，案例是这样 Uses ShellApi ,点击代码ShellExecute(Self.handle,'open',PCHAR(Edit1.Text),'','',SW_SHOWNORMAL)

[日立奔腾浪潮微软松下联想]

OpenPictureDialog.InitialDir := ExtractFilePath(edit1.text);
OpenPictureDialog.FileName := ExtractFileName(edit1.text);
if OpenPictureDialog.Execute then
begin
// ...
end;