//刚测试过,肯定可以直接打开
procedure TOpenPramForm.Button3Click(Sender: TObject);
begin
if Edit1.Text='' then
begin
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
end;
end
else
begin
if fileexists(Edit1.Text) then
begin
ShellExecute(0, 'open', 'notepad.exe', PAnsiChar ('C:/WINDOWS/Temp/rcusbwdm.inf'), '', SW_SHOWNORMAL);
//WinExeC(PAnSiChar(Edit1.Text),SW_SHOW);
end
else
begin
ShowMessage('文件没有找到!')
end;
end;
end;