uses
  ShellApi;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'c:\windows\circles.bmp', nil, nil, SW_SHOW);
  //价格公道
end;