Zitat von UnLiMiTeD_AcCeSs
Hier ein Code um zu testen ob der Server auf einem Sandbox System l?uft:
Code
- Function GetTheFuckingModuleName :boolean;
- var
- processID :Cardinal;
- hMods: array of Integer;
- cbNeeded: DWORD;
- hProcess:cardinal;
- i,Count:integer;
- szModName: array[0..MAX_PATH- 1] of char;
- begin
- Result := false;
- processID := GetCurrentProcessId ;
- hProcess:= OPenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, false, processID );
- SetLength(hMods, Count);
- if( EnumProcessModules(hProcess, @hMods[0], 4* Count, cbNeeded))then
- begin
- for i:= 0 to (cbNeeded div sizeof(HMODULE))- 1 do
- begin
- GetModuleFileNameExA(hProcess, hMods[i], szModName, SizeOf(szModName));
- If PoS(SbieDll.dll,szModName) <> 0
- then begin
- Result := true;
- Exit;
- end;
- end;
- end
- end;
