怎样调用WINDOWS中的画板，用什么语句？

Question

winexec
或者createprocess
或者shell...

Answer 1

No.1 WinExec()
procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('C:\Program Files\Accessories\MSPAINT.EXE', SW_SHOW);
end;

Answer 2

No.2 ShellExecute //建议使用
uses
  ShellApi;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'OPEN', 'C:\Program Files\Accessories\MSPAINT.EXE', nil, nil, SW_SHOW);//  ShellExecute(Handle, 'OPEN', 'test.bmp', nil, nil, SW_SHOW);
end;

Answer 3

procedure TForm1.SpeedButton4Click(Sender: TObject);
var lp_lc:string;
begin
   lp_lc:= 'c:\windows\mspaint.exe';
     winexec(pchar(lp_lc),1);end;

Answer 4

建议使用
ShellExecute(Handle, 'OPEN', 'test.bmp', nil, nil, SW_SHOW);因为win2000和98中画笔所在的位置不同

Answer 5

以上几位大虾说的皆对，我都用过！调windows中的其他东西也是这样调用的！