x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Inetcpl.cpl
3''
9);
{Internet 属性-程序}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Inetcpl.cpl
4''
9);
{Internet 属性-高级}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Inetcpl.cpl
5''
9);
{区域设置 属性-区域设置}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Intl.cpl
0''
9);
{区域设置 属性-数字}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Intl.cpl
1''
9);
{区域设置 属性-货币}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Intl.cpl
2''
9);
{区域设置 属性-时间}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Intl.cpl
3''
9);
{区域设置 属性-日期}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Intl.cpl
4''
9);
{游戏控制器-一般}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Joy.cpl
0''
9);
{游戏控制器-高级}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Joy.cpl
1''
9);
{鼠标 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Main.cpl''
9);
{多媒体 属性-音频}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Mmsys.cpl
0''
9);
{多媒体 属性-视频}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Mmsys.cpl
1''
9);
{多媒体 属性-MIDI}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Mmsys.cpl
2''
9);
{多媒体 属性-CD音乐}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Mmsys.cpl
3''
9);
{多媒体 属性-设备}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Mmsys.cpl
4''
9);
{调制解调器 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Modem.cpl''
9);
{网络}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Netcpl.cpl''
9);
{密码 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Password.cpl''
9);
{扫描仪与数字相机 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Sticpl.cpl''
9);
{系统 属性-常规}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Sysdm.cpl
0''
9);
{系统 属性-设备管理器}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Sysdm.cpl
1''
9);
{系统 属性-硬件配置文件}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Sysdm.cpl
2''
9);
{系统 属性-性能}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Sysdm.cpl
3''
9);
{日期/时间 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL timedate.cpl''
9);
{电源管理 属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Powercfg.cpl''
9);
{拨号属性}
x:=winexec(''rundll32.exe shell32.dll
Control_RunDLL Telephon.cpl''
9);
{----------------------调用错误----------------------}
if x=0 then messagebox(0
''程序超出内存''
''错误''
0);
if x=ERROR_BAD_FORMAT then messagebox(0
''该程序非一个合法的Win32.EXE程序).''
''错误''
0);
if x=ERROR_FILE_NOT_FOUND then messagebox(0
''指定文件没找到''
''错误''
0);
if x=ERROR_PATH_NOT_FOUND then messagebox(0
''指定路径没找到''
''错误''
0);
end;
控制壁纸
控制Windows 95的壁纸，以下程序使壁纸变为我们想要的位图，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩; 但这种方法只是暂时的，在WINDOWS重新启动后还是原来的位图，这时就需要对WIN.INI文件进行写操作，才能保存住我们改动的图片不被替换。
var THEPCHAR:pchar;
begin
THEPCHAR:=''e:\a.bmp'';
SystemParametersInfo(SPI_SETDESKWALLPAPER
0
THEPCHAR
SPIF_SENDWININICHANGE)
end;
辨别分辨率
要得到显示器的
