getlasterror-70
刘耀文的大沙雕
钟意阿满
运行按键小精灵的时候提示绑定失败
网上找的，你看看应该有帮助吧，共同学习一下。
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:。
(1)不用登陆进系统即可运行.。
(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.。
笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序. 。
运行Delphi7,选择菜单File-->New-->Other--->Service Application.将生成一个服务程序的框架.将工程保存为ServiceDemo.dpr和Unit_Main.pas,然后回到主框架.我们注意到,Service有几个属性.其中以下几个是我们比较常用的:。
(1)DisplayName:服务的显示名称。
(2)Name:服务名称.。
我们在这里将DisplayName的值改为"Delphi服务演示程序",Name改为"DelphiService".编译这个项目,将得到ServiceDemo.exe.这已经是一个服务程序了!进入CMD模式,切换致工程所在目录,运行命令"ServiceDemo.exe /install",将提示服务安装成功!然后"net start DelphiService"将启动这个服务.进入控制面版-->管理工具-->服务,将显示这个服务和当前状态.不过这个服务现在什么也干不了,因为我们还没有写代码:)先"net stop DelphiService"停止再"ServiceDemo.exe /uninstall"删除这个服务.回到Delphi7的IDE.。
我们的计划是为这个服务添加一个主窗口,运行后任务栏显示程序的图标,双击图标将显示主窗口,上面有一个按钮,点击该按钮将实现Ctrl+Alt+Del功能.。
实际上,服务程序莫认是工作于Winlogon桌面的,可以打开控制面板,查看我们刚才那个服务的属性-->登陆,其中"允许服务与桌面交互"是不打钩的.怎么办?呵呵,回到IDE,注意那个布尔属性:Interactive,当这个属性为True的时候,该服务程序就可以与桌面交互了.。
File-->New-->Form为服务添加窗口FrmMain,单元保存为Unit_FrmMain,并且把这个窗口设置为手工创建.完成后的代码如下:。
unit Unit_Main;。
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Unit_FrmMain;。
type
TDelphiService = class(TService)。
procedure ServiceContinue(Sender: TService; var Continued: Boolean);。
procedure ServiceExecute(Sender: TService);。
procedure ServicePause(Sender: TService; var Paused: Boolean);。
procedure ServiceShutdown(Sender: TService);。
procedure ServiceStart(Sender: TService; var Started: Boolean);。
procedure ServiceStop(Sender: TService; var Stopped: Boolean);。
private
{ Private declarations }。
public
function GetServiceController: TServiceController; override;。
{ Public declarations }。
end;
var
DelphiService: TDelphiService;。
FrmMain: TFrmMain;。
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;。
begin
DelphiService.Controller(CtrlCode);。
end;
function TDelphiService.GetServiceController: TServiceController;。
begin
Result := ServiceController;。
end;
procedure TDelphiService.ServiceContinue(Sender: TService;。
var Continued: Boolean);。
begin
while not Terminated do。
begin
Sleep(10);
ServiceThread.ProcessRequests(False);。
end;
end;
procedure TDelphiService.ServiceExecute(Sender: TService);。
begin
while not Terminated do。
begin
Sleep(10);
ServiceThread.ProcessRequests(False);。
end;
end;
procedure TDelphiService.ServicePause(Sender: TService;。
var Paused: Boolean);。
begin
Paused := True;。
end;
procedure TDelphiService.ServiceShutdown(Sender: TService);。
begin
gbCanClose := true;。
FrmMain.Free;
Status := csStopped;。
ReportStatus();。
end;
procedure TDelphiService.ServiceStart(Sender: TService;。
var Started: Boolean);。
begin
Started := True;。
Svcmgr.Application.CreateForm(TFrmMain, FrmMain);。
gbCanClose := False;。
FrmMain.Hide;
end;
procedure TDelphiService.ServiceStop(Sender: TService;。
var Stopped: Boolean);。
begin
Stopped := True;。
gbCanClose := True;。
FrmMain.Free;
end;
end.
主窗口单元如下:
unit Unit_FrmMain;。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ShellApi, Graphics, Controls, Forms,。
Dialogs, ExtCtrls, StdCtrls;。
const
WM_TrayIcon = WM_USER + 1234;。
type
TFrmMain = class(TForm)。
Timer1: TTimer;。
Button1: TButton;。
procedure FormCreate(Sender: TObject);。
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);。
procedure FormDestroy(Sender: TObject);。
procedure Timer1Timer(Sender: TObject);。
procedure Button1Click(Sender: TObject);。
private
{ Private declarations }。
IconData: TNotifyIconData;。
procedure AddIconToTray;。
procedure DelIconFromTray;。
procedure TrayIconMessage(var Msg: TMessage); message WM_TrayIcon;。
procedure SysButtonMsg(var Msg: TMessage); message WM_SYSCOMMAND;。
public
{ Public declarations }。
end;
var
FrmMain: TFrmMain;。
gbCanClose: Boolean;。
implementation
{$R *.dfm}
procedure TFrmMain.FormCreate(Sender: TObject);。
begin
FormStyle := fsStayOnTop; {窗口最前}。
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); {不在任务栏显示}。
gbCanClose := False;。
Timer1.Interval := 1000;。
Timer1.Enabled := True;。
end;
procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);。
begin
CanClose := gbCanClose;。
if not CanClose then。
begin
Hide;
end;
end;
procedure TFrmMain.FormDestroy(Sender: TObject);。
begin
Timer1.Enabled := False;。
DelIconFromTray;。
end;
procedure TFrmMain.AddIconToTray;。
begin
ZeroMemory(@IconData, SizeOf(TNotifyIconData));。
IconData.cbSize := SizeOf(TNotifyIconData);。
IconData.Wnd := Handle;。
IconData.uID := 1;。
IconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;。
IconData.uCallbackMessage := WM_TrayIcon;。
IconData.hIcon := Application.Icon.Handle;。
IconData.szTip := 'Delphi服务演示程序';。
Shell_NotifyIcon(NIM_ADD, @IconData);。
end;
procedure TFrmMain.DelIconFromTray;。
begin
Shell_NotifyIcon(NIM_DELETE, @IconData);。
end;
procedure TFrmMain.SysButtonMsg(var Msg: TMessage);。
begin
if (Msg.wParam = SC_CLOSE) or。
(Msg.wParam = SC_MINIMIZE) then Hide。
else inherited; // 执行默认动作。
end;
procedure TFrmMain.TrayIconMessage(var Msg: TMessage);。
begin
if (Msg.LParam = WM_LBUTTONDBLCLK) then Show();。
end;
procedure TFrmMain.Timer1Timer(Sender: TObject);。
begin
AddIconToTray;
end;
procedure SendHokKey;stdcall;。
var
HDesk_WL: HDESK;。
begin
HDesk_WL := OpenDesktop ('Winlogon', 0, False, DESKTOP_JOURNALPLAYBACK);。
if (HDesk_WL <> 0) then。
if (SetThreadDesktop (HDesk_WL) = True) then。
PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG (MOD_ALT or MOD_CONTROL, VK_DELETE));。
end;
procedure TFrmMain.Button1Click(Sender: TObject);。
var
dwThreadID : DWORD;。
begin
CreateThread(nil, 0, @SendHokKey, nil, 0, dwThreadID);。
end;
end.
补充:
(1)关于更多服务程序的演示程序,请访问以下Url:http://www.torry.net/pages.php?id=226,上面包含了多个演示如何控制和管理系统服务的代码.。
(2)请切记:Windows实际上存在多个桌面.例如屏幕传输会出现白屏,可能有两个原因:一是系统处于锁定或未登陆桌面,二是处于屏幕保护桌面.这时候要将当前桌面切换到该桌面才能抓屏.。
(3)关于服务程序与桌面交互,还有种动态切换方法.大概单元如下:。
unit ServiceDesktop;。
interface
function InitServiceDesktop: boolean;。
procedure DoneServiceDeskTop;。
implementation
uses Windows, SysUtils;。
const
DefaultWindowStation = 'WinSta0';。
DefaultDesktop = 'Default';。
var
hwinstaSave: HWINSTA;。
hdeskSave: HDESK;。
hwinstaUser: HWINSTA;。
hdeskUser: HDESK;。
function InitServiceDesktop: boolean;。
var
dwThreadId: DWORD;。
begin
dwThreadId := GetCurrentThreadID;。
// Ensure connection to service window station and desktop, and。
// save their handles.。
hwinstaSave := GetProcessWindowStation;。
hdeskSave := GetThreadDesktop(dwThreadId);。
hwinstaUser := OpenWindowStation(DefaultWindowStation, FALSE, MAXIMUM_ALLOWED);。
if hwinstaUser = 0 then。
begin
OutputDebugString(PChar('OpenWindowStation failed' + SysErrorMessage(GetLastError)));。
Result := false;。
exit;
end;
if not SetProcessWindowStation(hwinstaUser) then。
begin
OutputDebugString('SetProcessWindowStation failed');。
Result := false;。
exit;
end;
hdeskUser := OpenDesktop(DefaultDesktop, 0, FALSE, MAXIMUM_ALLOWED);。
if hdeskUser = 0 then。
begin
OutputDebugString('OpenDesktop failed');。
SetProcessWindowStation(hwinstaSave);。
CloseWindowStation(hwinstaUser);。
Result := false;。
exit;
end;
Result := SetThreadDesktop(hdeskUser);。
if not Result then。
OutputDebugString(PChar('SetThreadDesktop' + SysErrorMessage(GetLastError)));。
end;
procedure DoneServiceDeskTop;。
begin
// Restore window station and desktop.。
SetThreadDesktop(hdeskSave);。
SetProcessWindowStation(hwinstaSave);。
if hwinstaUser <> 0 then。
CloseWindowStation(hwinstaUser);。
if hdeskUser <> 0 then。
CloseDesktop(hdeskUser);。
end;
initialization
InitServiceDesktop;。
finalization
DoneServiceDesktop;。
end.
更详细的演示代码请参看:http://www.torry.net/samples/samples/os/isarticle.zip。
(4)关于安装服务如何添加服务描述.有两种方法:一是修改注册表.服务的详细信息都位于HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\下面,例如我们刚才那个服务就位于HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\DelphiService下.第二种方法就是先用QueryServiceConfig2函数获取服务信息,然后ChangeServiceConfig2来改变描述.用Delphi实现的话,单元如下:。
unit WinSvcEx;
interface
uses Windows, WinSvc;。
const
//
// Service config info levels。
//
SERVICE_CONFIG_DESCRIPTION = 1;。
SERVICE_CONFIG_FAILURE_ACTIONS = 2;。
//
// DLL name of imported functions。
//
AdvApiDLL = 'advapi32.dll';。
type
//
// Service description string。
//
PServiceDescriptionA = ^TServiceDescriptionA;。
PServiceDescriptionW = ^TServiceDescriptionW;。
PServiceDescription = PServiceDescriptionA;。
{$EXTERNALSYM _SERVICE_DESCRIPTIONA}。
_SERVICE_DESCRIPTIONA = record。
lpDescription : PAnsiChar;。
end;
{$EXTERNALSYM _SERVICE_DESCRIPTIONW}。
_SERVICE_DESCRIPTIONW = record。
lpDescription : PWideChar;。
end;
{$EXTERNALSYM _SERVICE_DESCRIPTION}。
_SERVICE_DESCRIPTION = _SERVICE_DESCRIPTIONA;。
{$EXTERNALSYM SERVICE_DESCRIPTIONA}。
SERVICE_DESCRIPTIONA = _SERVICE_DESCRIPTIONA;。
{$EXTERNALSYM SERVICE_DESCRIPTIONW}。
SERVICE_DESCRIPTIONW = _SERVICE_DESCRIPTIONW;。
{$EXTERNALSYM SERVICE_DESCRIPTION}。
SERVICE_DESCRIPTION = _SERVICE_DESCRIPTIONA;。
TServiceDescriptionA = _SERVICE_DESCRIPTIONA;。
TServiceDescriptionW = _SERVICE_DESCRIPTIONW;。
TServiceDescription = TServiceDescriptionA;。
//
// Actions to take on service failure。
//
{$EXTERNALSYM _SC_ACTION_TYPE}。
_SC_ACTION_TYPE = (SC_ACTION_NONE, SC_ACTION_RESTART, SC_ACTION_REBOOT, SC_ACTION_RUN_COMMAND);。
{$EXTERNALSYM SC_ACTION_TYPE}。
SC_ACTION_TYPE = _SC_ACTION_TYPE;。
PServiceAction = ^TServiceAction;。
{$EXTERNALSYM _SC_ACTION}。
_SC_ACTION = record。
aType : SC_ACTION_TYPE;。
Delay : DWORD;
end;
{$EXTERNALSYM SC_ACTION}。
SC_ACTION = _SC_ACTION;。
TServiceAction = _SC_ACTION;。
PServiceFailureActionsA = ^TServiceFailureActionsA;。
PServiceFailureActionsW = ^TServiceFailureActionsW;。
PServiceFailureActions = PServiceFailureActionsA;。
{$EXTERNALSYM _SERVICE_FAILURE_ACTIONSA}。
_SERVICE_FAILURE_ACTIONSA = record。
dwResetPeriod : DWORD;。
lpRebootMsg : LPSTR;。
lpCommand : LPSTR;。
cActions : DWORD;。
lpsaActions : ^SC_ACTION;。
end;
{$EXTERNALSYM _SERVICE_FAILURE_ACTIONSW}。
_SERVICE_FAILURE_ACTIONSW = record。
dwResetPeriod : DWORD;。
lpRebootMsg : LPWSTR;。
lpCommand : LPWSTR;。
cActions : DWORD;。
lpsaActions : ^SC_ACTION;。
end;
{$EXTERNALSYM _SERVICE_FAILURE_ACTIONS}。
_SERVICE_FAILURE_ACTIONS = _SERVICE_FAILURE_ACTIONSA;。
{$EXTERNALSYM SERVICE_FAILURE_ACTIONSA}。
SERVICE_FAILURE_ACTIONSA = _SERVICE_FAILURE_ACTIONSA;。
{$EXTERNALSYM SERVICE_FAILURE_ACTIONSW}。
SERVICE_FAILURE_ACTIONSW = _SERVICE_FAILURE_ACTIONSW;。
{$EXTERNALSYM SERVICE_FAILURE_ACTIONS}。
SERVICE_FAILURE_ACTIONS = _SERVICE_FAILURE_ACTIONSA;。
TServiceFailureActionsA = _SERVICE_FAILURE_ACTIONSA;。
TServiceFailureActionsW = _SERVICE_FAILURE_ACTIONSW;。
TServiceFailureActions = TServiceFailureActionsA;。
///////////////////////////////////////////////////////////////////////////。
// API Function Prototypes。
///////////////////////////////////////////////////////////////////////////。
TQueryServiceConfig2 = function (hService : SC_HANDLE; dwInfoLevel : DWORD; lpBuffer : pointer;。
cbBufSize : DWORD; var pcbBytesNeeded) : BOOL; stdcall;。
TChangeServiceConfig2 = function (hService : SC_HANDLE; dwInfoLevel : DWORD; lpInfo : pointer) : BOOL; stdcall;。
var
hDLL : THandle ;。
LibLoaded : boolean ;。
var
OSVersionInfo : TOSVersionInfo;。
{$EXTERNALSYM QueryServiceConfig2A}。
QueryServiceConfig2A : TQueryServiceConfig2;。
{$EXTERNALSYM QueryServiceConfig2W}。
QueryServiceConfig2W : TQueryServiceConfig2;。
{$EXTERNALSYM QueryServiceConfig2}。
QueryServiceConfig2 : TQueryServiceConfig2;。
{$EXTERNALSYM ChangeServiceConfig2A}。
ChangeServiceConfig2A : TChangeServiceConfig2;。
{$EXTERNALSYM ChangeServiceConfig2W}。
ChangeServiceConfig2W : TChangeServiceConfig2;。
{$EXTERNALSYM ChangeServiceConfig2}。
ChangeServiceConfig2 : TChangeServiceConfig2;。
implementation
initialization
OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);。
GetVersionEx(OSVersionInfo);。
if (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) and (OSVersionInfo.dwMajorVersion >= 5) then。
begin
if hDLL = 0 then。
begin
hDLL:=GetModuleHandle(AdvApiDLL);。
LibLoaded := False;。
if hDLL = 0 then。
begin
hDLL := LoadLibrary(AdvApiDLL);。
LibLoaded := True;。
end;
end;
if hDLL <> 0 then。
begin
@QueryServiceConfig2A := GetProcAddress(hDLL, 'QueryServiceConfig2A');。
@QueryServiceConfig2W := GetProcAddress(hDLL, 'QueryServiceConfig2W');。
@QueryServiceConfig2 := @QueryServiceConfig2A;。
@ChangeServiceConfig2A := GetProcAddress(hDLL, 'ChangeServiceConfig2A');。
@ChangeServiceConfig2W := GetProcAddress(hDLL, 'ChangeServiceConfig2W');。
@ChangeServiceConfig2 := @ChangeServiceConfig2A;。
end;
end
else
begin
@QueryServiceConfig2A := nil;。
@QueryServiceConfig2W := nil;。
@QueryServiceConfig2 := nil;。
@ChangeServiceConfig2A := nil;。
@ChangeServiceConfig2W := nil;。
@ChangeServiceConfig2 := nil;。
end;
finalization
if (hDLL <> 0) and LibLoaded then。
FreeLibrary(hDLL);。
end.
unit winntService;。
interface
uses
Windows,WinSvc,WinSvcEx;。
function InstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean;。
//eg:InstallService('服务名称','显示名称','描述信息','服务文件');。
procedure UninstallService(strServiceName:string);。
implementation
function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; assembler;。
asm
PUSH EDI
PUSH ESI
PUSH EBX
MOV ESI,EAX
MOV EDI,EDX
MOV EBX,ECX
XOR AL,AL
TEST ECX,ECX
JZ @@1
REPNE SCASB
JNE @@1
INC ECX
@@1: SUB EBX,ECX。
MOV EDI,ESI
MOV ESI,EDX
MOV EDX,EDI
MOV ECX,EBX
SHR ECX,2
REP MOVSD
MOV ECX,EBX
AND ECX,3
REP MOVSB
STOSB
MOV EAX,EDX
POP EBX
POP ESI
POP EDI
end;
function StrPCopy(Dest: PChar; const Source: string): PChar;。
begin
Result := StrLCopy(Dest, PChar(Source), Length(Source));。
end;
function InstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean;。
var
//ss : TServiceStatus;。
//psTemp : PChar;。
hSCM,hSCS:THandle;。
srvdesc : PServiceDescription;。
desc : string;
//SrvType : DWord;。
lpServiceArgVectors:pchar;。
begin
Result:=False;
//psTemp := nil;。
//SrvType := SERVICE_WIN32_OWN_PROCESS and SERVICE_INTERACTIVE_PROCESS;。
hSCM:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);//连接服务数据库。
if hSCM=0 then Exit;//MessageBox(hHandle,Pchar(SysErrorMessage(GetLastError)),'服务程序管理器',MB_ICONERROR+MB_TOPMOST);。
hSCS:=CreateService( //创建服务函数。
hSCM, // 服务控制管理句柄。
Pchar(strServiceName), // 服务名称。
Pchar(strDisplayName), // 显示的服务名称。
SERVICE_ALL_ACCESS, // 存取权利。
SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS,// 服务类型 SERVICE_WIN32_SHARE_PROCESS。
SERVICE_AUTO_START, // 启动类型。
SERVICE_ERROR_IGNORE, // 错误控制类型。
Pchar(strFilename), // 服务程序。
nil, // 组服务名称
nil, // 组标识
nil, // 依赖的服务
nil, // 启动服务帐号
nil); // 启动服务口令。
if hSCS=0 then Exit;//MessageBox(hHandle,Pchar(SysErrorMessage(GetLastError)),Pchar(Application.Title),MB_ICONERROR+MB_TOPMOST);。
if Assigned(ChangeServiceConfig2) then。
begin
desc := Copy(strDescription,1,1024);。
GetMem(srvdesc,SizeOf(TServiceDescription));。
GetMem(srvdesc^.lpDescription,Length(desc) + 1);。
try
StrPCopy(srvdesc^.lpDescription, desc);。
ChangeServiceConfig2(hSCS,SERVICE_CONFIG_DESCRIPTION,srvdesc);。
finally
FreeMem(srvdesc^.lpDescription);。
FreeMem(srvdesc);。
end;
end;
lpServiceArgVectors := nil;。
if not StartService(hSCS, 0, lpServiceArgVectors) then //启动服务。
Exit; //MessageBox(hHandle,Pchar(SysErrorMessage(GetLastError)),Pchar(Application.Title),MB_ICONERROR+MB_TOPMOST);。
CloseServiceHandle(hSCS); //关闭句柄。
Result:=True;
end;
procedure UninstallService(strServiceName:string);。
var
SCManager: SC_HANDLE;。
Service: SC_HANDLE;。
Status: TServiceStatus;。
begin
SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);。
if SCManager = 0 then Exit;。
try
Service := OpenService(SCManager, Pchar(strServiceName), SERVICE_ALL_ACCESS);。
ControlService(Service, SERVICE_CONTROL_STOP, Status);。
DeleteService(Service);。
CloseServiceHandle(Service);。
finally
CloseServiceHandle(SCManager);。
end;
end;
end.
(5)如何暴力关闭一个服务程序,实现我们以前那个"NT工具箱"的功能?首先,根据进程名称来杀死进程是用以下函数:。
uses Tlhelp32;
function KillTask(ExeFileName: string): Integer;。
const
PROCESS_TERMINATE = $0001;。
var
ContinueLoop: BOOL;。
FSnapshotHandle: THandle;。
FProcessEntry32: TProcessEntry32;。
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);。
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);。
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);。
while Integer(ContinueLoop) <> 0 do。
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =。
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =。
UpperCase(ExeFileName))) then。
Result := Integer(TerminateProcess(。
OpenProcess(PROCESS_TERMINATE,。
BOOL(0),
FProcessEntry32.th32ProcessID),。
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);。
end;
CloseHandle(FSnapshotHandle);。
end;
但是对于服务程序,它会提示"拒绝访问".其实只要程序拥有Debug权限即可:。
function EnableDebugPrivilege: Boolean;。
function EnablePrivilege(hToken: Cardinal; PrivName: string; bEnable: Boolean): Boolean;。
var
TP: TOKEN_PRIVILEGES;。
Dummy: Cardinal;。
begin
TP.PrivilegeCount := 1;。
LookupPrivilegeValue(nil, pchar(PrivName), TP.Privileges[0].Luid);。
if bEnable then。
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED。
else TP.Privileges[0].Attributes := 0;。
AdjustTokenPrivileges(hToken, False, TP, SizeOf(TP), nil, Dummy);。
Result := GetLastError = ERROR_SUCCESS;。
end;
var
hToken: Cardinal;。
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);。
result:=EnablePrivilege(hToken, 'SeDebugPrivilege', True);。
CloseHandle(hToken);。
end;
使用方法:
EnableDebugPrivilege;//提升权限。
KillTask('xxxx.exe');//关闭该服务程序.。
-----------------------------------作者：陈经韬 来源：CnXHacker.Net -----------------。
抱起亚轩找小葵
电脑显示“仅完成部分的ReadProcessMemoty请求”该怎么办？
这段代码，复制到绑定那句下面
if dm_ret = 0 then。
last_error = dm.GetLastError()。
// 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC。
if dm.GetOsType() = 3 then。
// 有开启UAC的话，尝试关闭。
if dm.CheckUAC() = 1 then。
if dm.SetUAC(0) = 1 then。
// 关闭UAC之后，必须重启系统才可以生效。
messagebox "已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统"。
dm.ExitOs 2。
Delay 2000。
endscript。
end if
end if
end if
// 具体错误码的含义，可以参考函数GetLastError的说明.。
messagebox "绑定失败，错误码是:"&last_error。
messagebox "如果确定关闭了UAC,很可能是系统的防火墙拦截插件，请暂时关闭360等安全防火墙再尝试"。
endscript
end if
错误码
-1 : 表示你使用了绑定里的收费功能，但是没注册，无法使用.。
-2 : 使用模式0 2 4 6时出现，因为目标窗口有保护，或者目标窗口没有以管理员权限打开.常见于win7系统.。
-3 : 使用模式0 2 4 6时出现，可能目标窗口有保护，也可能是异常错误.。
-4 : 使用模式1 3 5 7 101 103时出现，这是异常错误.。
-5 : 使用模式1 3 5 7 101 103时出现, 这个错误的解决办法就是关闭目标窗口，重新打开再绑定即可. 也可能是运行脚本的进程没有管理员权限.。
-6 -7 -9 : 使用模式1 3 5 7 101 103时出现,异常错误.。
-8 -10 : 使用模式1 3 5 7 101 103时出现, 目标进程可能有保护,也可能是插件版本过老，试试新的或许可以解决.。
-11 : 使用模式1 3 5 7 101 103时出现, 目标进程有保护. 告诉我解决。
-12 : 使用模式1 3 5 7 101 103时出现, 目标进程有保护. 告诉我解决。
-13 : 使用模式1 3 5 7 101 103时出现, 目标进程有保护. 或者是因为上次的绑定没有解绑导致。 尝试在绑定前调用ForceUnBindWindow.。
-14 : 使用模式0 1 4 5时出现, 有可能目标机器兼容性不太好. 可以尝试其他模式. 比如2 3 6 7。
-16 : 可能使用了绑定模式 0 1 2 3 和 101，然后可能指定了一个子窗口.导致不支持.可以换模式4 5 6 7或者103来尝试. 另外也可以考虑使用父窗口或者顶级窗口.来避免这个错误。
-17 : 模式1 3 5 7 101 103时出现. 这个是异常错误. 告诉我解决.。
大圣杰锅是
我电脑老是弹出下面的提示，我该怎么办？
那两个错误函数正是dll木马分配内存错误造成的。
类似的createremoteprocess问题。
解决方法：
利用杀毒软件进行全盘杀毒。
如果认为太麻烦或自己无法处理的话，可以请专业人员处理该问题。
“仅完成部分的ReadProcessMemoty请求”是“GetLastError”的错误代码。
GetLastError的函数原型是DWORD GetLastError（VOID）。
返回的值通过在api函数中调用SetLastError或SetLastErrorEx设置。函数并无必要设置上一次错误信息，所以即使一次GetLastError调用返回的是零值，也不能担保函数已成功执行。只有在函数调用返回一个错误结果时，这个函数指出的错误结果才是有效的。通常，只有在函数返回一个错误结果，而且已知函数会设置GetLastError变量的前提下，才应访问GetLastError；这时能保证获得有效的结果SetLast Error函数主要在对api函数进行模拟的dll函数中使用，所以对vb应用程序来说是没有意义的。
小韩在追星
关于注入DLL，怎么不成功呢.没反应
该内存不能read written常见原因 。
使用Windows操作系统的人有时会遇到这样的错误信息：“0X????????指令引用的0x00000000内存，该内存不能 written”，然后应用程序被关闭。如果去请教一些“高手”，得到的回答往往是“Windows就是这样不稳定”之类的义愤和不屑。其实，这个错误并不一定是Windows不稳定造成的。本文就来简单分析这种错误的常见原因。
一、应用程序没有检查内存分配失败 。
程序需要一块内存用以保存数据时，就需要调用操作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“指针”。
内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值“0”已不表示新启用的指针，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的“健壮性”。
若应用程序没有检查这个错误，它就会按照“思维惯性”认为这个值是给它分配的可用指针，继续在之后的运行中使用这块内存。真正的0地址内存区保存的是计算机系统中最重要的“中断描述符表”，绝对不允许应用程序使用。在没有保护机制的操作系统下(如DOS)，写数据到这个地址会导致立即死机，而在健壮的操作系统中，如Windows等，这个操作会马上被系统的保护机制捕获，其结果就是由操作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的“写内存”错误，并指出被引用的内存地址为“0x00000000”。
内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于操作系统使用很长时间后，安装了多种应用程序(包括无意中“安装”的病毒程序)，更改了大量的系统参数和系统文件之后。
二、应用程序由于自身BUG引用了不正常的内存指针 。
在使用动态分配的应用程序中，有时会有这样的情况出现：程序试图读写一块“应该可用”的内存，但不知为什么，这个预料中可用的指针已经失效了。有可能是 “忘记了”向操作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而“没有留意”等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写操作也同样会触发系统的保护机制，企图“违法”的程序唯一的下场就是被操作终止运行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！像这样的情况都属于程序自身的BUG，你往往可在特定的操作顺序下重现错误。无效指针不一定总是0，因此错误提示中的内存地址也不一定为 “0x00000000”，而是其他随机数字。
如果系统经常有所提到的错误提示，下面的建议可能会有帮助：
1.查看系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，从而导致操作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。
2.更新操作系统，让操作系统的安装程序重新拷贝正确版本的系统文件、修正系统参数。有时候操作系统本身也会有BUG，要注意安装官方发行的升级程序。
3.试用新版本的应用程序。
运行某些程序的时候，有时会出现内存错误的提示，然后该程序就关闭。
“0x????????”指令引用的“0x????????”内存。该内存不能为“read”。
“0x????????”指令引用的“0x????????”内存，该内存不能为“written”。
不知你出现过类似这样的故障吗？（0x后面内容有可能不一样。）
一般出现这个现象有方面的，一是硬件，即内存方面有问题，二是软件，这就有多方面的问题了。
下面先说说硬件：
一般来说，内存出现问题的可能性并不大，主要方面是：内存条坏了、内存质量有问题，还有就是2个不同牌子不同容量的内存混插，也比较容易出现不兼容的情况，同时还要注意散热问题，特别是超频后。你可以使用MemTest 这个软件来检测一下内存，它可以彻底的检测出内存的稳定度。
假如你是双内存，而且是不同品牌的内存条混插或者买了二手内存时，出现这个问题，这时，你就要检查是不是内存出问题了或者和其它硬件不兼容。如果都没有，那就从软件方面排除故障了。
先简单说说原理：内存有个存放数据的地方叫缓冲区，当程序把数据放在其一位置时，因为没有足够空间，就会发生溢出现象。举个例子：一个桶子只能将一斤的水，当你放入两斤的水进入时，就会溢出来。而系统则是在屏幕上表现出来。这个问题，经常出现在windows2000和XP系统上，Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法操作，系统为保持稳定，就会出现上述情况。另外也可能是硬件设备之间的兼容性不好造成的。
下面我从几个例子给大家分析：
例一：打开IE浏览器或者没过几分钟就会出现"0x70dcf39f"指令引用的"0x00000000"内存。该内存不能为“read”。要终止程序，请单击“确定”的信息框，单击“确定”后，又出现“发生内部错误，您正在使用的其中一个窗口即将关闭”的信息框，关闭该提示信息后，IE浏览器也被关闭。解决方法：修复或升级IE浏览器，同时打上补丁。看过其中一个修复方法是，Win2000自升级，也就是Win2000升级到Win2000，其实这种方法也就是把系统还原到系统初始的状态下。比如你的IE升级到了6.0，自升级后，会被IE5.0代替。
例二：在windows xp下双击光盘里面的“AutoRun.exe”文件，显示“0x77f745cc”指令引用的“0x00000078”内存。该内存不能为 “written”，要终止程序，请单击“确定”，而在Windows 98里运行却正常。解决方法：这可能是系统的兼容性问题，winXP的系统，右键“AutoRun.exe”文件，属性，兼容性，把“用兼容模式运行这个程序”项选择上，并选择“Windows 98/Me”。win2000如果打了SP的补丁后，只要开始，运行，输入：regsvr32 c:\\winnt\\apppatch\\slayerui.dll。右键，属性，也会出现兼容性的选项。
例三：RealOne Gold关闭时出现错误，以前一直使用正常，最近却在每次关闭时出现“0xffffffff”指令引用的“0xffffffff”内存。该内存不能为 “read” 的提示。解决方法：当使用的输入法为微软拼音输入法2003，并且隐藏语言栏时（不隐藏时没问题）关闭RealOne就会出现这个问题，因此在关闭RealOne 之前可以显示语言栏或者将任意其他输入法作为当前输入法来解决这个问题。
例四：我的豪杰超级解霸自从上网后就不能播放了，每次都提示“Ox060692f6”（每次变化）指令引用的“Oxff000011”内存不能为 “read”，终止程序请按确定。解决方法：试试重装豪杰超级解霸,如果重装后还会，到官方网站下载相应版本的补丁试试。还不行，只好换就用别的播放器试试了。
例五：双击一个游戏的快捷方式，“Ox77f5cdO”指令引用“Oxffffffff”内 存，该内存不能为“read” ，并且提示Client.dat程序错误。 解决方法：重装显卡的最新驱动程序，然后下载并且安装DirectX9.0。
例六：一个朋友发信息过来，我的电脑便出现了错误信息:“0*772b548f”指令引用的“0*00303033”内存，该内存不能为 “written”,然后QQ自动下线，而再打开QQ，发现了他发过来的十几条的信息。解决方法：这是对方利用QQ的BUG，发送特殊的代码，做QQ出错，只要打上补丁或升级到最新版本，就没事了。
通过上面的几个例子，可以看到，出现故障的原因有好多种，在这里把已经提到和有可能发生的原因列个表，方便查阅。
解决方法
1、内存条坏了更换内存条
2、双内存不兼容使用同品牌的内存或只用一条内存 。
3、内存质量问题更换内存条
4、散热问题加强机箱内部的散热 。
5、内存和主板没插好或和其它硬件不兼容等重插内存或换个插糟 。
6、硬盘有问题更换硬盘
7、驱动问题重装驱动。如果是新系统，要先安装主板驱动 。
8、软件损坏重装软件
9、软件有BUG打补丁或用最新的版本。
10、软件和系统不兼容给软件打上补丁或者试试系统的兼容模式 。
11、软件和软件之间有冲突如果最近安装了什么新软件，卸载了试试 。
12、软件要使用到其它相关的软件有问题重装相关软件。比如播放某一格式的文件时出错，可能是这个文件的解码器有问题 。
13、病毒问题杀毒
14、杀毒软件与系统或软件冲突由于杀毒软件是进入底层监控系统的，可能与一些软件冲突，卸载了试试 。
15、系统本身有问题有时候操作系统本身也会有BUG，要注意安装官方发行的升级程序，像SP的补丁，最好要打上。如果还不行重装系统或更换其它版本的系统了。
使用Windows出现蓝色屏幕是经常的事，而且每每因为不清楚错误的来源而频繁重新安装系统，劳神费时。下列收集了一些windows死机密码，供大家参考。
数值 叙述
0 0x0000 作业完成。
1 0x0001 不正确的函数。
2 0x0002 系统找不到指定的档案。
3 0x0003 系统找不到指定的路径。
4 0x0004 系统无法开启档案。
5 0x0005 拒绝存取。
6 0x0006 无效的代码。
7 0x0007 储存体控制区块已毁。
8 0x0008 储存体空间不足，无法处理这个指令。
9 0x0009 储存体控制区块位址无效。
10 0x000a 环境不正确。
11 0x000b 尝试载入一个格式错误的程式。
12 0x000c 存取码错误。
13 0x000d 资料错误。
14 0x000e 储存体空间不够，无法完成这项作业。
15 0x000f 系统找不到指定的磁碟机。
16 0x0010 无法移除目录。
17 0x0011 系统无法将档案移到 其他的磁碟机。
18 0x0012 没有任何档案。
19 0x0013 储存媒体为防写状态。
20 0x0014 系统找不到指定的装置。
21 0x0015 装置尚未就绪。
22 0x0016 装置无法识别指令。
23 0x0017 资料错误 (cyclic redundancy check) 。
24 0x0018 程式发出一个长 度错误的指令。
25 0x0019 磁碟机在磁碟找不到 持定的磁区或磁轨。
26 0x001a 指定的磁碟或磁片无法存取。
27 0x001b 磁碟机找不到要求的磁区。
28 0x001c 印表机没有纸。
29 0x001d 系统无法将资料写入指定的磁碟机。
30 0x001e 系统无法读取指定的装置。
31 0x001f 连接到系统的某个装置没有作用。
32 0x0020 the process cannot access the file because it is being used by another process. 。
33 0x0021 档案的一部份被锁定， 现在无法存取。
34 0x0022 磁碟机的磁片不正确。 请将 %2 (volume serial number: %3) 插入磁碟机 %1。
36 0x0024 开启的分享档案数量太多。
38 0x0026 到达档案结尾。
39 0x0027 磁碟已满。
50 0x0032 不支援这种网路要求。
51 0x0033 远端电脑无法使用。
52 0x0034 网路名称重复。
53 0x0035 网路路径找不到。
54 0x0036 网路忙碌中。
55 0x0037 the specified network resource or device is no longer available. 。
56 0x0038 the network bios command limit has been reached. 。
57 0x0039 网路配接卡发生问题。
58 0x003a 指定的伺服器无法执行要求的作业。
59 0x003b 网路发生意外错误。
60 0x003c 远端配接卡不相容。
61 0x003d 印表机伫列已满。
62 0x003e 伺服器的空间无法储存等候列印的档案。
63 0x003f 等候列印的档案已经删除。
64 0x0040 指定的网路名称无法使用。
65 0x0041 拒绝存取网路。
66 0x0042 网路资源类型错误。
67 0x0043 网路名称找不到。
68 0x0044 超过区域电脑网路配接卡的名称限制。
69 0x0045 超过网路 bios 作业阶段的限制。
70 0x0046 远端伺服器已经暂停或者正在起始中。
71 0x0047 由于连线数目已达上限，此时无法再连线到这台远端电脑。
72 0x0048 指定的印表机或磁碟装置已经暂停作用。
80 0x0050 档案已经存在。
82 0x0052 无法建立目录或档案。
83 0x0053 int 24 失败 。
84 0x0054 处理这项要求的储存体无法使用。
85 0x0055 近端装置名称已经在使用中。
86 0x0056 指定的网路密码错误。
87 0x0057 参数错误。
88 0x0058 网路发生资料写入错误。
89 0x0059 此时系统无法执行其他行程。
100 0x0064 无法建立其他的系统 semaphore。
101 0x0065 属于其他行程专用的 semaphore 。
102 0x0066 semaphore 已经设定，而且无法关闭。
103 0x0067 无法指定 semaphore 。
104 0x0068 在岔断时间无法要求专用的 semaphore 。
105 0x0069 此 semaphore 先前的拥有权已经结束。
106 0x006a 请将磁片插入 %1。
107 0x006b 因为代用的磁片尚未插入，所以程式已经停止。
108 0x006c 磁碟正在使用中或被锁定。
109 0x006d pipe 已经中止。
110 0x006e 系统无法开启指定的 装置或档案。
111 0x006f 档名太长。
112 0x0070 磁碟空间不足。
113 0x0071 没有可用的内部档案识别字。
114 0x0072 目标内部档案识别字不正确。
117 0x0075 由应用程式所执行的 ioctl 呼叫 不正确。
118 0x0076 写入验证参数值不正确。
119 0x0077 系统不支援所要求的指令。
120 0x0078 此项功能仅在 win32 模式有效。
121 0x0079 semaphore 超过逾时期间。
122 0x007a 传到系统呼叫的资料区域 太小。
123 0x007b 档名、目录名称或储存体标签语法错误。
124 0x007c 系统呼叫层次不正确。
125 0x007d 磁碟没有设定标签。
126 0x007e 找不到指定的模组。
127 0x007f 找不到指定的程序。
128 0x0080 没有子行程可供等待。
129 0x0081 %1 这个应用程式无法在 win32 模式下执行。
130 0x0082 attempt to use a file handle to an open disk partition for an 。
operation other than raw disk i/o. 。
131 0x0083 尝试将档案指标移至档案开头之前。
132 0x0084 无法在指定的装置或档案，设定档案指标。
133 0x0085 join 或 subst 指令 无法用于 内含事先结合过的磁碟机。
134 0x0086 尝试在已经结合的磁碟机，使用 join 或 subst 指令。
135 0x0087 尝试在已经替换的磁碟机，使 用 join 或 subst 指令。
136 0x0088 系统尝试删除 未连结过的磁碟机的连结关系。
137 0x0089 系统尝试删除 未替换过的磁碟机的替换关系。
138 0x008a 系统尝试将磁碟机结合到已经结合过之磁碟机的目录。
139 0x008b 系统尝试将磁碟机替换成已经替换过之磁碟机的目录。
140 0x008c 系统尝试将磁碟机替换成已经替换过之磁碟机的目录。
141 0x008d 系统尝试将磁碟机 subst 成已结合的磁碟机 目录。
142 0x008e 系统此刻无法执行 join 或 subst。
143 0x008f 系统无法将磁碟机结合或替换同一磁碟机下目录。
144 0x0090 这个目录不是根目录的子目录。
145 0x0091 目录仍有资料。
146 0x0092 指定的路径已经被替换过。
147 0x0093 资源不足，无法处理这项 指令。
148 0x0094 指定的路径这时候无法使用。
149 0x0095 尝试要结合或替换的磁碟机目录，是已经替换过的的目标。
150 0x0096 config.sys 档未指定系统追踪资讯，或是追踪功能被取消。
151 0x0097 指定的 semaphore事件 dosmuxsemwait 数目不正确。
152 0x0098 dosmuxsemwait 没有执行；设定太多的 semaphore。
153 0x0099 dosmuxsemwait 清单不正确。
154 0x009a 您所输入的储存媒体标 元长度限制。
155 0x009b 无法建立其他的执行绪。
156 0x009c 接收行程拒绝接受信号。
157 0x009d 区段已经被舍弃，无法被锁定。
158 0x009e 区段已经解除锁定。
159 0x009f 执行绪识别码的位址不正确。
160 0x00a0 传到 dosexecpgm 的引数字串不正确。
161 0x00a1 指定的路径不正确。
162 0x00a2 信号等候处理。
164 0x00a4 系统无法建立执行绪。
167 0x00a7 无法锁定档案的部份范围。
170 0x00aa 所要求的资源正在使用中。
173 0x00ad 取消范围的锁定要求不明显。
174 0x00ae 档案系统不支援自动变更锁定类型。
180 0x00b4 系统发现不正确的区段号码。
182 0x00b6 作业系统无法执行 %1。
183 0x00b7 档案已存在，无法建立同一档案。
186 0x00ba 传送的旗号错误。
187 0x00bb 指定的系统旗号找不到。
188 0x00bc 作业系统无法执行 %1。
189 0x00bd 作业系统无法执行 %1。
190 0x00be 作业系统无法执行 %1。
191 0x00bf 无法在 win32 模式下执行 %1。
192 0x00c0 作业系统无法执行 %1。
193 0x00c1 %1 不是正确的 win32 应用程式。
194 0x00c2 作业系统无法执行 %1。
195 0x00c3 作业系统无法执行 %1。
196 0x00c4 作业系统无法执行 这个应用程式。
197 0x00c5 作业系统目前无法执行 这个应用程式。
198 0x00c6 作业系统无法执行 %1。
199 0x00c7 作业系统无法执行 这个应用程式。
200 0x00c8 程式码的区段不可以大于或等于 64kb。
201 0x00c9 作业系统无法执行 %1。
202 0x00ca 作业系统无法执行 %1。
203 0x00cb 系统找不到输入的环境选项。 \r 。
205 0x00cd 在指令子目录下，没有任何行程有信号副处理程式。
206 0x00ce 档案名称或副档名太长。
207 0x00cf ring 2 堆叠使用中。
回答者： 我思故我问 - 高级经理 六级 12-9 01:24 。
修改答复： 我思故我问，您要修改的答复如下: 积分规则 关闭 。
该内存不能read written常见原因 。
使用Windows操作系统的人有时会遇到这样的错误信息：“0X????????指令引用的0x00000000内存，该内存不能 written”，然后应用程序被关闭。如果去请教一些“高手”，得到的回答往往是“Windows就是这样不稳定”之类的义愤和不屑。其实，这个错误并不一定是Windows不稳定造成的。本文就来简单分析这种错误的常见原因。
一、应用程序没有检查内存分配失败 。
程序需要一块内存用以保存数据时，就需要调用操作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“指针”。
内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值“0”已不表示新启用的指针，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的“健壮性”。
若应用程序没有检查这个错误，它就会按照“思维惯性”认为这个值是给它分配的可用指针，继续在之后的运行中使用这块内存。真正的0地址内存区保存的是计算机系统中最重要的“中断描述符表”，绝对不允许应用程序使用。在没有保护机制的操作系统下(如DOS)，写数据到这个地址会导致立即死机，而在健壮的操作系统中，如Windows等，这个操作会马上被系统的保护机制捕获，其结果就是由操作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的“写内存”错误，并指出被引用的内存地址为“0x00000000”。
内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于操作系统使用很长时间后，安装了多种应用程序(包括无意中“安装”的病毒程序)，更改了大量的系统参数和系统文件之后。
二、应用程序由于自身BUG引用了不正常的内存指针 。
在使用动态分配的应用程序中，有时会有这样的情况出现：程序试图读写一块“应该可用”的内存，但不知为什么，这个预料中可用的指针已经失效了。有可能是 “忘记了”向操作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而“没有留意”等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写操作也同样会触发系统的保护机制，企图“违法”的程序唯一的下场就是被操作终止运行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！像这样的情况都属于程序自身的BUG，你往往可在特定的操作顺序下重现错误。无效指针不一定总是0，因此错误提示中的内存地址也不一定为 “0x00000000”，而是其他随机数字。
如果系统经常有所提到的错误提示，下面的建议可能会有帮助：
1.查看系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，从而导致操作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。
2.更新操作系统，让操作系统的安装程序重新拷贝正确版本的系统文件、修正系统参数。有时候操作系统本身也会有BUG，要注意安装官方发行的升级程序。
3.试用新版本的应用程序。
运行某些程序的时候，有时会出现内存错误的提示，然后该程序就关闭。
“0x????????”指令引用的“0x????????”内存。该内存不能为“read”。
“0x????????”指令引用的“0x????????”内存，该内存不能为“written”。
不知你出现过类似这样的故障吗？（0x后面内容有可能不一样。）
一般出现这个现象有方面的，一是硬件，即内存方面有问题，二是软件，这就有多方面的问题了。
下面先说说硬件：
一般来说，内存出现问题的可能性并不大，主要方面是：内存条坏了、内存质量有问题，还有就是2个不同牌子不同容量的内存混插，也比较容易出现不兼容的情况，同时还要注意散热问题，特别是超频后。你可以使用MemTest 这个软件来检测一下内存，它可以彻底的检测出内存的稳定度。
假如你是双内存，而且是不同品牌的内存条混插或者买了二手内存时，出现这个问题，这时，你就要检查是不是内存出问题了或者和其它硬件不兼容。如果都没有，那就从软件方面排除故障了。
先简单说说原理：内存有个存放数据的地方叫缓冲区，当程序把数据放在其一位置时，因为没有足够空间，就会发生溢出现象。举个例子：一个桶子只能将一斤的水，当你放入两斤的水进入时，就会溢出来。而系统则是在屏幕上表现出来。这个问题，经常出现在windows2000和XP系统上，Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法操作，系统为保持稳定，就会出现上述情况。另外也可能是硬件设备之间的兼容性不好造成的。
下面我从几个例子给大家分析：
例一：打开IE浏览器或者没过几分钟就会出现"0x70dcf39f"指令引用的"0x00000000"内存。该内存不能为“read”。要终止程序，请单击“确定”的信息框，单击“确定”后，又出现“发生内部错误，您正在使用的其中一个窗口即将关闭”的信息框，关闭该提示信息后，IE浏览器也被关闭。解决方法：修复或升级IE浏览器，同时打上补丁。看过其中一个修复方法是，Win2000自升级，也就是Win2000升级到Win2000，其实这种方法也就是把系统还原到系统初始的状态下。比如你的IE升级到了6.0，自升级后，会被IE5.0代替。
例二：在windows xp下双击光盘里面的“AutoRun.exe”文件，显示“0x77f745cc”指令引用的“0x00000078”内存。该内存不能为 “written”，要终止程序，请单击“确定”，而在Windows 98里运行却正常。解决方法：这可能是系统的兼容性问题，winXP的系统，右键“AutoRun.exe”文件，属性，兼容性，把“用兼容模式运行这个程序”项选择上，并选择“Windows 98/Me”。win2000如果打了SP的补丁后，只要开始，运行，输入：regsvr32 c:\\winnt\\apppatch\\slayerui.dll。右键，属性，也会出现兼容性的选项。
例三：RealOne Gold关闭时出现错误，以前一直使用正常，最近却在每次关闭时出现“0xffffffff”指令引用的“0xffffffff”内存。该内存不能为 “read” 的提示。解决方法：当使用的输入法为微软拼音输入法2003，并且隐藏语言栏时（不隐藏时没问题）关闭RealOne就会出现这个问题，因此在关闭RealOne 之前可以显示语言栏或者将任意其他输入法作为当前输入法来解决这个问题。
例四：我的豪杰超级解霸自从上网后就不能播放了，每次都提示“Ox060692f6”（每次变化）指令引用的“Oxff000011”内存不能为 “read”，终止程序请按确定。解决方法：试试重装豪杰超级解霸,如果重装后还会，到官方网站下载相应版本的补丁试试。还不行，只好换就用别的播放器试试了。
例五：双击一个游戏的快捷方式，“Ox77f5cdO”指令引用“Oxffffffff”内 存，该内存不能为“read” ，并且提示Client.dat程序错?。
小韩在追星
电脑出现“仅完成部分的ReadProcessMemoty或WriteProcessMemoty请求”该怎么办
按照下面的去做试试.
一、开始菜单-运行-输入msconfig回车 。
在里边的启动栏里把**.dll前面的勾去掉就行了 。
1、开始——运行——msconfig——启动——把加载项***.dll的那个勾勾去掉。 重启电脑,通常到这就可以了,如果还弹出来再进行第二步 。
2、开始——运行——regedit 在下面的位置删除相应键值： HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 。
二、那应该是一个已被删除了的病毒或间谍软件。但也有可能是卸载某个软件不正确留下的残留. 。
如果想以后不要看到它：
开始-运行-键入regedit-在上方的编辑菜单打开选查找，将jtnhr.dll输入，搜索，发现的全删掉。就行了。
或： 开始-运行-msconfig(即系统配置程序)-启动，看看里面的东西，找到哪个说的东西，把前面的勾去掉，即可。
重启看一下吧 （如果找不到它，那它就已经不存在了，就清理注册码）。