求问一个api函数

Question

我在之前的帖子问到：
api函数中，是否有一条可以实现以下功能：
用一个指定的程序打开指定的文件。例如：
我要实现：
单击TDBImage控件中的图片，就能用acdsee ,打开此图片！有人说到用ShellExecute我在delphi 的在线帮助查过：ShellExecute共有四个参数
HINSTANCE ShellExecute(          HWND hwnd,
    LPCTSTR lpOperation,
    LPCTSTR lpFile,
    LPCTSTR lpParameters,
    LPCTSTR lpDirectory,
    INT nShowCmd
);我在添加一个点击的事件
procedure TForm1.Image1Click(Sender: TObject);
begin
     ShellExecute(handle,'open', 'C:\WINDOWS\system32\mspaint.exe', NULL, NULL, SW_SHOWNORMAL);
end;
却运行不了，
请问各位，应该怎么修改。
或是有什么更好的方法实现同样的功能。

Answer 1

//先保存为文件，再打开
uses ShellAPI;procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Picture.SaveToFile('c:\temp.bmp');
  ShellExecute(Handle, nil, 'c:\temp.bmp', nil, nil, SW_SHOWNORMAL);
end;