form1上需要opendialog1、button1、edit1。
uses
shellapi;
代码
procedure
TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
// ShellExecute(handle, ' open ' ,pchar(opendialog1.FileName), nil , nil ,SW_SHOW ); // 2 个的执行效果貌似一样
ShellExecute(Form1.handle, ' open ' ,pchar(opendialog1.FileName), nil , nil ,SW_SHOWNORMAL);
edit1.Text: = opendialog1.FileName;
end ;
begin
if opendialog1.Execute then
// ShellExecute(handle, ' open ' ,pchar(opendialog1.FileName), nil , nil ,SW_SHOW ); // 2 个的执行效果貌似一样
ShellExecute(Form1.handle, ' open ' ,pchar(opendialog1.FileName), nil , nil ,SW_SHOWNORMAL);
edit1.Text: = opendialog1.FileName;
end ;