通过什么命令调出windows画图程序，用shellexecute怎么写

Question

同上

Answer 1

var
ss:string;
begin
ss='C:\WINNT\System32\mspaint.exe';ShellExecute(handle,nil,pchar(lj),nil,nil,sw_shownormal);

Answer 2

ShellExecute(handle,nil,pchar(ss),nil,nil,sw_shownormal);

Answer 3

%SystemRoot%\System32\mspaint.exe用了这个还是不行。

Answer 4

不要加路径就可以了。因为不无论是98还是2000，系统目录都会在搜索路径中。$PATH---还记得吗？ShellExecute(handle, 'open', 'mspaint.exe', nil, nil, sw_shownormal);再问楼主：现在在石家庄吗？ 怎么样？我也是石家庄人。

Answer 5

在石家庄呢，有时间联系[email protected],QQ41334906

Answer 6

可以试试下面：
var
  SysPath: Pchar;
begin
  GetMem(SysPath, 255);
  GetSystemDirectory(SysPath, 255);
  filename:= SysPath+'\'+'mspaint.exe';
  ShellExecute(handle, 'open', Pchar(filename), nil, nil, sw_shownormal);
  FreeMem(SysPath);
end;