摘要:
uses shellapi;...procedure TForm1.Button2Click(Sender: TObject); var vh: HWND;begin ShellExecute(Self.Handle,'open',Pchar(filename),'',nil,SW_SHOWNO... 阅读全文
摘要:
uses shellapi;...procedure TForm1.Button2Click(Sender: TObject); var vh: HWND;begin ShellExecute(Self.Handle,'open',Pchar(filename),... 阅读全文