双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

D7升级到XE2函数出错

2013-11-03 11:05:04 253 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

myyebin 墨衍会员 · AI 创作全网分发关注 + 加入社区

Delphi XE Refactor重构功能简单说明如果要我只选一个升级到XE的原因，我会选重构。对用惯D7的朋友，这确实是一个非常实用的新功能，但如果你用过Visual Studio，就会发现微软早就实现了类似的功能。让人困惑的是，XE的重构子菜单有一长串，很多菜单很难直观地想像出其功能。别担心，这些都是给建模用的(比如把某个类方法转移到另外一个类），你常用到的只有几个，仔细的你会发现其实就是设了快捷键的那几个。 1. Rename: 阅读详情

function charu(const HostFile, GuestFile: string; const PID: DWORD = 0): DWORD; //插入线程

var 

hRemoteProcess: THandle; 

dwRemoteProcessId: DWORD; 

cb: DWORD; 

pszLibFileRemote: Pointer; 

iReturnCode: Boolean; 

TempVar: DWORD; 

pfnStartAddr: TFNThreadStartRoutine; 

pszLibAFilename: PwideChar; 

begin 

Result := 0; 

Debugger(True);

Getmem(pszLibAFilename, Length(GuestFile) * 2 + 1); 

StringToWideChar(GuestFile, pszLibAFilename, Length(GuestFile) * 2 + 1); 

if PID > 0 then 

dwRemoteProcessID := PID 

else 

FindAProcess(HostFile, False, dwRemoteProcessID);

hRemoteProcess := OpenProcess(PROCESS_CREATE_THREAD + {允许远程创建线程} 

PROCESS_VM_OPERATION + {允许远程VM操作} 

PROCESS_VM_WRITE, {允许远程VM写} 

FALSE, dwRemoteProcessId); 

cb := (1 + lstrlenW(pszLibAFilename)) * sizeof(WCHAR); 

pszLibFileRemote := PWIDESTRING(VirtualAllocEx(hRemoteProcess, nil, cb, MEM_COMMIT, PAGE_READWRITE)); 

TempVar := 0; 

iReturnCode := WriteProcessMemory(hRemoteProcess, pszLibFileRemote, pszLibAFilename, cb, TempVar); 

if iReturnCode then 

begin 

pfnStartAddr := GetProcAddress(GetModuleHandle('Kernel32'), 'LoadLibraryW'); 

TempVar := 0; 

Result := CreateRemoteThread(hRemoteProcess, nil, 0, pfnStartAddr, pszLibFileRemote, 0, TempVar); 

end; 

Freemem(pszLibAFilename); 

end;

这句在XE2里就出错了iReturnCode := WriteProcessMemory(hRemoteProcess, pszLibFileRemote, pszLibAFilename, cb, TempVar);

那位大大能帮修改下

...全文

嵌入式Bootloader设计：S12XE二级引导程序与CAN/SCI固件升级实战 Bootloader（引导加载程序）是嵌入式系统上电后运行的第一段代码，负责从存储介质加载并启动用户应用程序。其核心原理在于通过特定的通信协议与上位机交互，实现对微控制器内部Flash存储器的安全擦写，从而完成固件的远程更新。这项技术的核心价值在于解决了产品出厂后固件更新的“最后一公里”难题，无需拆卸设备或依赖昂贵的仿真器，极大地降低了维护成本并提升了产品可维护性。在汽车电子、工业控制等对可靠性和可升级性要求极高的应用场景中，Bootloader已成为标准配置。本文以NXP S12XE系列MCU的经典LFA 阅读详情

myyebin

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

myyebin 2013-11-03

打赏
举报

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure FindAProcess(const AFilename: string; const PathMatch: Boolean; var ProcessID: DWORD); //查找进程
var
lppe: TProcessEntry32;
SsHandle: Thandle;
FoundAProc, FoundOK: boolean;
begin
ProcessID :=0;
SsHandle := CreateToolHelp32SnapShot(TH32CS_SnapProcess, 0);
FoundAProc := Process32First(Sshandle, lppe);
while FoundAProc do
begin
if PathMatch then
FoundOK := AnsiStricomp(lppe.szExefile, PChar(AFilename)) = 0
else
FoundOK := AnsiStricomp(PChar(ExtractFilename(lppe.szExefile)), PChar(ExtractFilename(AFilename))) = 0;
if FoundOK then
begin
ProcessID := lppe.th32ProcessID;
break;
end;
FoundAProc := Process32Next(SsHandle, lppe);
end;
CloseHandle(SsHandle);
end;

function Debugger(const bEnabled: Boolean): Boolean; //提升DeBug
var
hToken: THandle;
tp: TOKEN_PRIVILEGES;
a: DWORD;
const
SE_DEBUG_NAME = 'SeDebugPrivilege';
begin
Result := False;
if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then
begin
tp.PrivilegeCount := 1;
LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid);
if bEnabled then
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
tp.Privileges[0].Attributes := 0;
a := 0;
AdjustTokenPrivileges(hToken, False, tp, SizeOf(tp), nil, a);
Result := GetLastError = ERROR_SUCCESS;
CloseHandle(hToken);
end;
end;

function charu(const HostFile, GuestFile: string; const PID: DWORD = 0): DWORD; //插入线程
var
hRemoteProcess: THandle;
dwRemoteProcessId: DWORD;
cb: DWORD;
pszLibFileRemote: Pointer;
iReturnCode: Boolean;
TempVar: DWORD;
tempvar2:THandle;
pfnStartAddr: TFNThreadStartRoutine;
pszLibAFilename: PwideChar;
begin
Result := 0;
Debugger(True);
Getmem(pszLibAFilename, Length(GuestFile) * 2 + 1);
StringToWideChar(GuestFile, pszLibAFilename, Length(GuestFile) * 2 + 1);
if PID > 0 then
dwRemoteProcessID := PID
else
FindAProcess(HostFile, False, dwRemoteProcessID);
hRemoteProcess := OpenProcess(PROCESS_CREATE_THREAD + {允许远程创建线程}
PROCESS_VM_OPERATION + {允许远程VM操作}
PROCESS_VM_WRITE, {允许远程VM写}
FALSE, dwRemoteProcessId);
cb := (1 + lstrlenW(pszLibAFilename)) * sizeof(WCHAR);
pszLibFileRemote := PWIDESTRING(VirtualAllocEx(hRemoteProcess, nil, cb, MEM_COMMIT, PAGE_READWRITE));
TempVar := 0;
tempvar2:=0;
iReturnCode := WriteProcessMemory(hRemoteProcess, pszLibFileRemote, pszLibAFilename, cb, tempvar2);
if iReturnCode then
begin
pfnStartAddr := GetProcAddress(GetModuleHandle('Kernel32'), 'LoadLibraryW');
TempVar := 0;
Result := CreateRemoteThread(hRemoteProcess, nil, 0, pfnStartAddr, pszLibFileRemote, 0, TempVar);
end;
Freemem(pszLibAFilename);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  charu('cstrike.exe',extractfilepath(paramstr(0))+'MetaProtect.dll');
end;

end.

myyebin 2013-11-03

打赏
举报

谢谢2位了，能编译了，不过D7里可以成功注入DLL,XE2做的就注入不了了。

sololie 2013-11-03

打赏
举报


iReturnCode := WriteProcessMemory(hRemoteProcess, 
    pszLibFileRemote, pszLibAFilename, cb, SIZE_T(TempVar));

ydtuiguang 2013-11-03

打赏
举报

TempVar: THandle;

✦双11狂欢大促✦

D7升级到XE2函数出错

相关推荐

双11狂欢大促