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;
Alles anzeigen