var x:cardinal;<br>begin<br>x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,<br>,1',9);<br>if x=0 then messagebox(0,'程序超出内存','错误',0);<br>if x=ERROR_BAD_FORMAT then messagebox(0,<br>'该程序非一个合法的Win32.EXE程序).','错误',0);<br>if x=ERROR_FILE_NOT_FOUND then messagebox(0,<br>'指定文件没找到','错误',0);<br>if x=ERROR_PATH_NOT_FOUND then messagebox(0,<br>'指定路径没找到','错误',0);<br>end;