1:
2:
3:

  dwProcessID2 := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);
     if (dwProcessID2 <> 0) then
       dwProcessID := dwProcessID2;					

1:
2:
3:
4:

  if (pLLA <> nil) and (pTargetMemory <> nil) and (pLibraryName <> nil) then
  begin
    dwWritten := 0;
    if WriteProcessMemory(hProc,pTargetMemory,pLibraryName,dwMemSize,dwWritten) and					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function CreateRemoteThreadX(dwProcessHandle: DWord; pThreadAttributes: Pointer; dwStackSize: DWord;
pStartAddr: Pointer; pParameter: Pointer; dwCreationFlags: DWord; var dwThreadID: DWord;
const Param1isPID : boolean = false): DWord; stdcall;
var
  hProcess  : DWord;
begin
  Result := 0;
  dwThreadId := 0;
  hProcess := dwProcessHandle;
  if Param1isPID then
    hProcess := OpenProcess(PROCESS_ALL_ACCESS,false,dwProcessHandle);					

1:

 LEA EBX, [EDX+$28]              // if so get the library name					

1:

 LEA EBX, [EDX+$30]              // if so get the library name					

1:
2:

  HideLibraryNT(LoadLibraryA('opengl32.dll'));
  GetModuleHandle('opengl32.dll');  // ist dann 0					

1:

if (dwProcessID2 <> 0) then					

1:

if (dwProcessID2 <> 0) and (isValidProcessHandle(dwProcessID2) then					

1:

    dwProcessID := dwProcessID2;					

1:
2:
3:
4:
5:
6:
7:
8:

function isValidProcessHandle(hProcess : DWORD):Boolean;
var temp : DWORD;
begin
  result := false;
  temp := GetProcessId(hProcess);
  if (temp <> 0) and (GetProcessVersion(temp) <> 0) then
    result := true;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetProcessID(dwProcessHandle: DWord): DWord; stdcall;
//var dwProcessH: DWord;
begin
//  dwProcessH := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessHandle);
//  if (dwProcessH <> 0) then
//  begin
//    CloseHandle(dwProcessH);
//    Result := dwProcessHandle;
//  end else
  if isNt then
    Result := GetProcessIDNT(dwProcessHandle) else
    Result := GetPRocessID9X(dwProcessHandle);
end;					

1:

dwProcessID := GetProcessID(dwProcessID);					

1:

if isValidProcessHandle(dwProcessID) then dwProcessID := GetProcessID(dwProcessID);