function WaitForJnjectable(ProcessID: Cardinal; WaitTimeout: Cardinal): Boolean;
var
 hProcess: THandle;
 BytesNeeded: DWORD;
begin
 Result := False;
 hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessID);
 if hProcess = 0 then Exit;
 while True do begin
   if EnumProcessModules(hProcess, nil, 0, BytesNeeded) then
     if BytesNeeded >= (SizeOf(THandle)*3) then begin //ntdll32, kenel32 and user32 must be loaded at least
       Result := True;
       Break;
     end;
   if WaitTimeout < INFINITE then begin
     Dec(WaitTimeout);
     if WaitTimeout = 0 then begin
       CloseHandle(hProcess);
       SetLastError(ERROR_TIMEOUT);
       Exit;
     end;
   end;
   Sleep(1);
 end;
 CloseHandle(hProcess);
end;

   //
   // Allocate a stack for this thread in the address space of the target
   // process.
   //

   Status = BaseCreateStack(
               hProcess,
               dwStackSize,
               0L,
               &InitialTeb
               );

   if ( !NT_SUCCESS(Status) ) {
       BaseSetLastNTError(Status);
       return NULL;
       }