9922.txt

关于编程技术技巧的文章

　　Private Sub cmdUndo_Click()
　　 fb=SendMessage(Text1.hwnd, WM_UNDO, 0, 0)
　　End Sub
　　除了TextBox外SendMessage 还可以对RitchTextBox和ComboBox等进行操
作,只要相应改变hwnd参数即可。    
                 
***********************************************************
     
               在Visual Basic中使用Rundll32.exe和Rundll.exe 

                               福州 Pasic

　　　　常用Windows9x的朋友一定对Rundll32.exe和Rundll.exe这两个文件不
会陌生吧，不过,由于这两个程序的功能原先只限于在微软内部使用，因而真正
知道如何使用它们的朋友想必不多。那么好，如果你还不清楚的话，那么
就让我来告诉你吧。
　　首先，请你做个小实验（请事先保存好你正在运行的程序的结果，否则...）：
点击“开始－程序－Ms－Dos方式”，进入Dos窗口，然后键入
"rundll32.exe user.exe,restartwindows"，再按下回车键，这时你将看到，机
器被重启了！怎么样，是不是很有趣？
　　当然，Rundll的功能绝不仅仅是重启你的机器。其实，Rundll者，顾名思义，
运行Dll也，它的功能就是以命令行的方式调用Windows的动态链接库，
Rundll32.exe与Rundll.exe的区别就在于前者是调用32位的链接库，而后者是运
用于16位的链接库，它们的命令格式是：
　　RUNDLL.EXE ，<入口点>，<调用参数>
　　这里要注意三点：1.Dll文件名中不能含有空格，比如该文件位于
c:\Program Files\目录，你要把这个路径改成c:\Progra～1\；2.Dll文件名与Dll
入口点间的逗号不能少，否则程序将出错并且不会给出任何信息！3.这是最重要的
一点：Rundll不能用来调用含返回值参数的Dll，例如Win32API中的GetUserName(),
GetTextFace()等。在Visual Basic中，提供了一条执行外部程序的指令Shell,格
式为：
　　Shell “命令行”
　　如果能配合Rundll32.exe用好Shell指令，会使您的VB程序拥有用其他方法难
以甚至无法实现的效果：仍以重启为例，传统的方法需要你在VB工程中先建立一
个模块，然后写入WinAPI的声明，最后才能在程序中调用。而现在只需一句: 
　　Shell “rundll32.exe user.exe,restartwindows”就搞定了！是不是方便
多了？
　　实际上，Rundll32.exe在调用各种Windows控制面板和系统选项方面有着独特
的优势。下面，我就将本人在因特网上收集的有关Rundll的指令列举如下（很有
用的，能省去你很多调用Windows API的时间！！），供大家在编程中引用：
　　命令行: rundll32.exe shell32.dll,Control_RunDLL 
　　功能: 显示控制面板 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 
　　功能: 显示“控制面板－辅助选项－键盘”选项窗口 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2 
　　功能: 显示“控制面板－辅助选项－声音”选项窗口 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3 
　　功能: 显示“控制面板－辅助选项－显示”选项窗口
　　命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
　　功能: 显示“控制面板－辅助选项－鼠标”选项窗口
　　命令行: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5 
　　功能: 显示“控制面板－辅助选项－常规”选项窗口
　　命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1 
　　功能: 运行“控制面板－添加新硬件”向导。
　　命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter 
　　功能: 运行“控制面板－添加新打印机”向导。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1 
　　功能: 显示 “控制面板－添加/删除程序－安装/卸载” 面板。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2 
　　功能: 显示 “控制面板－添加/删除程序－安装Windows” 面板。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3 
　　功能: 显示 “控制面板－添加/删除程序－启动盘” 面板。
　　命令行: rundll32.exe syncui.dll,Briefcase_Create 
　　功能: 在桌面上创建一个新的“我的公文包”。
　　命令行: rundll32.exe diskcopy.dll,DiskCopyRunDll
　　功能: 显示复制软盘窗口
　　命令行: rundll32.exe apwiz.cpl,NewLinkHere ％1 
　　功能: 显示“创建快捷方式”的对话框，所创建的快捷方式的位置由％1参数决定。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0 
　　功能: 显示“日期与时间”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1 
　　功能: 显示“时区”选项窗口。
　　命令行: rundll32.exe rnaui.dll,RnaDial [某个拨号连接的名称]
　　功能: 显示某个拨号连接的拨号窗口。如果已经拨号连接，则显示当前的连接状态的窗口。
　　命令行: rundll32.exe rnaui.dll,RnaWizard
　　功能: 显示“新建拨号连接”向导的窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0 
　　功能: 显示“显示属性－背景”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1 
　　功能: 显示“显示属性－屏幕保护”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2 
　　功能: 显示“显示属性－外观”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3 
　　功能: 显示显示“显示属性－属性”选项窗口。
　　命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder 
　　功能: 显示Windows的“字体”文件夹。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
　　功能: 同样是显示Windows的“字体”文件夹。
　　命令行: rundll32.exe shell32.dll,SHFormatDrive 
　　功能: 显示格式化软盘对话框。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0 
　　功能: 显示“控制面板－游戏控制器－一般”选项窗口。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,1
　　功能: 显示“控制面板－游戏控制器－高级”选项窗口。
　　命令行: rundll32.exe mshtml.dll,PrintHTML (HTML文档) 
　　功能: 打印HTML文档。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl 
　　功能: 显示Microsoft Exchange一般选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @0 
　　功能: 显示“控制面板－鼠标” 选项 。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1 
　　功能: 显示 “控制面板－键盘属性－速度”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,,1 
　　功能: 显示 “控制面板－键盘属性－语言”选项窗口。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @2 
　　功能: 显示Windows“打印机”文件夹。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3 
　　功能: 显示Windows“字体”文件夹。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL main.cpl @4 
　　功能: 显示“控制面板－输入法属性－输入法”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add 
　　功能: 运行“添加新调制解调器”向导。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0 
　　功能: 显示“控制面板－多媒体属性－音频”属性页。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1 
　　功能: 显示“控制面板－多媒体属性－视频”属性页。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2 
　　功能: 显示“控制面板－多媒体属性－MIDI”属性页。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3 
　　功能: 显示“控制面板－多媒体属性－CD音乐”属性页。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4 
　　功能: 显示“控制面板－多媒体属性－设备”属性页。 
　　命令行: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1 
　　功能: 显示“控制面板－声音”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl 
　　功能: 显示“控制面板－网络”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl 
　　功能: 显示ODBC32数据管理选项窗口。
　　命令行: rundll32.exe shell32.dll,OpenAs_RunDLL {drive:\path\filename} 
　　功能: 显示指定文件(drive:\path\filename)的“打开方式”对话框。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL password.cpl 
　　功能: 显示“控制面板－密码”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl 
　　功能: 显示“控制面板－电源管理属性”选项窗口。
　　命令行: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder 
　　功能: 显示Windows“打印机”文件夹。(同rundll32.exe shell32.dll,Control_RunDLL main.cpl @2)
　　命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0 
　　功能: 显示“控制面板－区域设置属性－区域设置”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 
　　功能: 显示“控制面板－区域设置属性－数字”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2 
　　功能: 显示“控制面板－区域设置属性－货币”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3 
　　功能: 显示“控制面板－区域设置属性－时间”选项窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4 
　　功能: 显示“控制面板－区域设置属性－日期”选项窗口。
　　命令行: rundll32.exe desk.cpl,InstallScreenSaver [屏幕保护文件名] 
　　功能: 将指定的屏幕保护文件设置为Windows的屏保，并显示屏幕保护属性窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0 
　　功能: 显示“控制面板－系统属性－常规”属性窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1 
　　功能: 显示“控制面板－系统属性－设备管理器”属性窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2 
　　功能: 显示“控制面板－系统属性－硬件配置文件”属性窗口。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3 
　　功能: 显示“控制面板－系统属性－性能”属性窗口。
　　命令行: rundll32.exe user.exe,restartwindows 
　　功能: 强行关闭所有程序并重启机器。
　　命令行: rundll32.exe user.exe,exitwindows 
　　功能: 强行关闭所有程序并关机。
　　命令行: rundll32.exe shell32.dll,Control_RunDLL telephon.cpl
　　功能: 显示“拨号属性”选项窗口
　　命令行: rundll32.exe shell32.dll,Control_RunDLL themes.cpl 
　　功能: 显示“桌面主题”选项面板
　　当然，不止是VisualBasic，象Delphi.VisualC＋＋等其他编程语言也可以通
过调用外部命令的方法来使用Rundll的这些功能，具体方法这里就不再详细叙述
了。灵活的使用Rundll,一定会使你的编程轻轻松松，达到事半功倍的效果！

***********************************************************
　
                         用DELPHI实现菜单的汉化

                        嘉峪关市计算机站  王润德

---- 现 在 我 们 经 常 看 到 一 些 软 件 汉 化 包， 例 ‘ 晴 窗 伴 侣’ 
是PHOTOSHOP 的 汉 化 包， 其 实 我 们 只 要 对WINDOWS 的 编 程 熟 悉， 
也 可 以 自 己 编 写 某 些
软 件 的 汉 化 包。 这 样 不 管 软 件 大 小， 只 要 你 喜 欢 就 可 以 
给 做 一 个 汉 化 包。 下 面 的 程 序 是 一 些 主 要 的 步 骤。 其 实 
你 还 可 以 用 别 的 方 法 来 实 现， 亲 自 试 试 吧。 

---- 在 运 行 程 序 之 前 首 先 生 成 一 个 中 英 文 菜 单 对 照 表 文 
件， 产 生 时 可 以 参 照 该 程 序 自 己 编 制 一 个 获 得 系 统 的 原 
菜 单 内 容 的 程 序， 然 后 在 之 后 输 入 菜 单 的 汉 字 内 容。 其 
格 式 如 下： 

SAVE AS 保存到....
. .
..
EXIT 退出系统
// 程序开始
unit wrdxt;

interface

uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
childmenu,mainmenu,c2menu:hmenu;
wndhandle:hwnd;
mystr:pchar;
mainnum,childNUM,c2num:integer;
MYCHAR:STRING;
mm3,mm6:string[19];
mm4,mm5:string;
implementation

{$R *.DFM}
//我用表单的CLICK事件激活，
其实用ACTIVE事件会更好
procedure TForm1.Button1Click(Sender: TObject);
var
start1,start2,start3,start4,start5:integer;

begin
//通过标题获得窗口句柄
wndhandle:=findwindow(nil,mystr);
//通过标题获得菜单句柄
mainmenu:=getmenu(wndhandle);
//取得顶行菜单数
mainnum:=getmenuitemcount(mainmenu);
//汉化菜单
for start1:=0 to mainnum do
begin
mm5:='';
//取得菜单项的标题
getmenustring(mainmenu,start1,PCHAR