📄 00403.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00403.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080"><a name="1"></a>1：启动屏幕保护程序</span></b><br>
只需要一句话就可以了：SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);<br>
<span style="background-color: #000000">
<br>
</span>
<b><span style="background-color: #000080"><a name="2"></a>2：启动控制面板 </span></b><br>
procedure TForm1.Button2Click(Sender: TObject);<br>
var<br>
x:cardinal;<br>
begin<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9); {启动控制面板}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9); {辅助选项 属性-键盘}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9); {辅助选项 属性-声音}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9); {辅助选项 属性-显示}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9); {辅助选项 属性-鼠标}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9); {辅助选项 属性-常规}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9); {添加/删除程序 属性-安装/卸载}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9); {添加/删除程序 属性-Windows安装程序}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9); {添加/删除程序 属性-启动盘}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9); {显示 属性-背景}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9); {显示 属性-屏幕保护程序}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9); {显示 属性-外观}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9); {显示 属性-设置}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9); {Internet 属性-常规}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9); {Internet 属性-安全}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9); {Internet 属性-内容}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9); {Internet 属性-连接}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9); {Internet 属性-程序}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9); {Internet 属性-高级}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9); {区域设置 属性-区域设置}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9); {区域设置 属性-数字}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9); {区域设置 属性-货币}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9); {区域设置 属性-时间}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9); {区域设置 属性-日期}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9); {游戏控制器-一般}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9); {游戏控制器-高级}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9); {鼠标 属性}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9); {多媒体 属性- 音频}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9); {多媒体 属性- 视频}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9); {多媒体 属性 -MIDI}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9); {多媒体 属性 -CD音乐}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9); {多媒体 属性- 设备}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9); {调制解调器 属性}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9); {网络}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9); {密码 属性}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9); {扫描仪与数字相机属性}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9); {系统 属性-常 规}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9); {系统 属性-设 备管理器}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9); {系统 属性-硬 件配置文件}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9); {系统 属性-性 能}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9); {日期/时间 属 性}<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9); {电源管理 属性 }<br>
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9); {拨号属性}<br>
{----------------------调用错误----------------------}<br>
if x=0 then messagebox(0,'程序超出内存','错误',0);<br>
if x=ERROR_BAD_FORMAT then messagebox(0,'该程序非一个合法的Win32.EXE程序).','错误',0);<br>
if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定文件没找到','错误',0);<br>
if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路径没找到','错误',0);<br>
end;<br>
<span style="background-color: #000000">
<br>
</span>
<b><span style="background-color: #000080"><a name="3"></a>3：得到系统默认的浏览器<br>
</span></b>function TForm1.GetBrowerPath(AValue: String): string;<br>
var<br>
X:integer;<br>
tmpstr:string;<br>
begin<br>
Result:='没有默认的浏览器';<br>
if AValue='' then exit;<br>
for X:=2 to Length(AValue) do<br>
begin<br>
if AValue[X]='''' then break;<br>
tmpstr:=tmpstr+AValue[X];<br>
end;<br>
Result:=tmpStr;<br>
end;<br>
<br>
function TForm1.GetDefBrower: string;<br>
var<br>
Reg:TRegistry;<br>
begin<br>
Result:='';<br>
Reg:=TRegistry.Create;<br>
try<br>
reg.RootKey:=HKEY_CLASSES_ROOT;<br>
if Reg.OpenKey('\http\shell\open\command',false)then<br>
if
Reg.ValueExists('')then Result:=Reg.ReadString('');<br>
Reg.Closekey;<br>
finally<br>
Reg.Free;<br>
end;<br>
end;<br>
<br>
<span style="background-color: #FF0000"><a href="00403.zip">源程序下载</a></span>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -