- 博客(6)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 注册表加载配置单元
问题：我想对一些NT用户进行配置，在代码中实现加载其NT账户下的NTUSER.DAT文件，修改需要的键值：例：禁用对用户test的CMD：[HKEY_USERS\S-1-5-21-872786649-1826467909-1269344878-1555\Software\Policies\Microsoft\Windows\System]"DisableCMD"=dword:000
2012-08-30 12:10:22
8547
原创 文件夹删除/清空
代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, cxShellBrowserDialog, StdCtrls;type TForm1 = class(TFor
2012-08-30 09:41:38
825
原创 注销远程用户（会话）
Delphi实现：usesWtsApi32;//通过会话ID得到会话名称procedure GetSessionUserName(dwSessionId: dword; var UserName: string);var bRes: boolean; dwBufferLen: dword; Ptr: Pointer;begin bRes := WTSQuerySe
2012-08-27 16:08:43
5890
8
原创 遍历进程
procedure GetCurrentApps;{ 返回当前运行的进程的可执行文件名称列表}var ContinueLoop: BOOL; SnapshotHandle: THandle; ProcessEntry32: TProcessEntry32; hProcess: THandle; Buffer: array [0 .. MAX_PATH
2012-08-27 14:39:17
1075
原创 rdp
1. 首先确保你的机器上存在mstscax.dll，如果没有这个文件，可以从http://download.microsoft.com/download/whistler/tools/1.0/wxp/en-us/msrdpcli.exe下载并安装远程桌面连接软件．或者使用WindowXP中自带的mstscax.dll，运行regsvr32 mstscax.dll进行注册，ccrun测试使用的mst
2012-08-21 14:56:58
2203
2
原创 delphi修改注册表那些常用操作（续）
添加环境变量：procedure InstallPath(path: string);var r: TRegistry; sysPath: string; dwReturnValue: Cardinal;begin r := TRegistry.Create; try r.RootKey := HKEY_LOCAL_MACHINE; i
2012-08-15 11:10:44
1448
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人