OEM Changer v2.0 Final - Bitte Testen ;-)

[Assun]

__________________________________________________ ________________________________

http://assun05.as.funpic.de/OEMC/OEMC.jpg
__________________________________________________ ________________________________

Mit OEM Changer v2.0 Final können Sie bequem die lästige OEM Werbung und Supportinformationen aus Ihrem System Entfernen.
Es ist aber ebenfalls möglich diese zu ändern oder zu erstellen.
Die neue Version läuft im Vergleich zur alten wesentlich stabiler und hat mehr Funktionen.
Unter anderem ist es mit dieser Version möglich das Programm in die XP Installation einzubinden und dank der
Parameterfuntkion kann das Programm so ganz ohne Ihr zutun die OEM Informationen schon bei der XP Installation für Sie entfernen.

Um das Programm im Parametermodus aufzurufen verwenden Sie folgenden Befehl : "OEM_Changer.exe remove"

Changelog :

1) GUI wurde kompfortabler gemacht und "DAU-Sicher"
2) Es wird nun überprüft ob überhaupt OEM infos da sind und ob sie erfolgreich gelöscht wurden
3) Das Programm kann für zum beispiel eine unattendet XP Installation mit dem Parameter "remove" aufgerufen werden, sodass die OEM Werbung von selbst gekillt wird.
4) Es können nur noch Bilder geadded werden, die kleingenug sind.

Download :

Downloadpage

DirectDownload

FAQ

Edit : Kaum online und schon wieder verbessert die verbesserte Version ist nun unter der oben genannten Adresse erreichbar

Edit :

Bugfixes :

- Adminbug behoben
- auf die dauer etwas nervige Pop-Up am anfang entfernt

[Luckie]

Also auch wie bei 2000? Weil 180 x 140 angegeben wurde, deswegen hab eich noch mal gefragt. Gut, das wollte ich nur wissen.

Hier ist übrigens meiner: OEMInfo.

[turboPASCAL]

Wenn die Grösse nicht bekannt ist kann man zB. ein oemlogo.bmp mit 320x240 Pixeln erstellen, danach die Anzeige aufrufen und dann wird das Bitmap in richtiger Grösse angezeigt (wenn auch abgeschnitten)...

Zitat von turboPASCAL:

Windows NT
- Bitmapgröße 172 x 172 Pixel...

...würde mich aber interessieren ob das stimmt, kann das jemand bestätigen ?

[Assun]

Na super. Jetzt saugt niemand mehr mein Tool sondern das von Luckie

[turboPASCAL]

Zitat:

Diese Datei wurde bereits 134 mal heruntergeladen.

Ist doch nicht schlecht ! Auserdem hat es 'n schöneres Logo..

Arbeite bitte noch ein bissel an deinem Programm, Stichwort Vorschau, Edit-Felder...

[leddl]

Sorg dafür, daß es besser ist als Lucikies, und es wird noch weiter heruntergeladen

[uwi1961]

Ich erhalte nur die Fehlermeldung, dass mir die erforderlichen Rechte fehlen... (siehe Anhang)
Also ich arbeite unter XP Pro, bin an einer NT-Domäne angemeldet und bin sowohl lokaler als auch Domänen-Admin!!!
Was gibt es noch für Rechte

Gruß Uwe.

[Assun]

das ist allerdings seltsam

also ich checke mit

Delphi-Quellcode:

const
  SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority =
    (Value: (0, 0, 0, 0, 0, 5));
  SECURITY_BUILTIN_DOMAIN_RID = $00000020;
  DOMAIN_ALIAS_RID_ADMINS = $00000220;

function IsAdmin: Boolean;
var
  hAccessToken: THandle;
  ptgGroups: PTokenGroups;
  dwInfoBufferSize: DWORD;
  psidAdministrators: PSID;
  x: Integer;
  bSuccess: BOOL;
begin
  Result   := False;
  bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True,
    hAccessToken);
  if not bSuccess then
  begin
    if GetLastError = ERROR_NO_TOKEN then
      bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY,
        hAccessToken);
  end;
  if bSuccess then
  begin
    GetMem(ptgGroups, 1024);
    bSuccess := GetTokenInformation(hAccessToken, TokenGroups,
      ptgGroups, 1024, dwInfoBufferSize);
    CloseHandle(hAccessToken);
    if bSuccess then
    begin
      AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2,
        SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS,
        0, 0, 0, 0, 0, 0, psidAdministrators);
      {$R-}
      for x := 0 to ptgGroups.GroupCount - 1 do
        if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then
        begin
          Result := True;
          Break;
        end;
      {$R+}
      FreeSid(psidAdministrators);
    end;
    FreeMem(ptgGroups);
  end;
end;

und

Delphi-Quellcode:

if not isAdmin then begin
Application.MessageBox ('Sie haben nicht die erforderlichen Rechte um dieses Programm auszuführen.','Fehler',0+16);
Application.Terminate;

ob man Adminrechte hat !

Komisch

[Luckie]

Wie? Gibt es hier eine neue Version? Mal sehen, was er bei mir meint. Hmpf, ich kann es werde von deiner HP noch über den Link mit dem IE runterladen in der höchsten Sicherheitsstufe und nur Downloads aktiviert. Was machst du denn da auf deiner Homepage?

OK, tut bei mir, wie es soll. Allerdings stimmt es nicht ganz, als Hauptbenutzer hat man üblicherweise auch Schreibrechte in dem Ordnern. Und ich ahtte mir, als ich meine Version geschrieben habe, als Benutzer mit eingeschränkten Rechten zeitweise Schreibrechte in diesem Ordner gegeben, damit ich nicht unter dem Adminkonto arbeiten musste. Dass man kein Admin ist kann lediglich nur ein Hinweis sein, dass man möglicherweise diese Informationen nicht ändern kann. Deswegen schreibe ich bei mir auch:

Zitat:

'Sie sind nicht als Administrator angemeldet.'+#13#10+
'Möglicherweise haben sie nicht die nötigen Rechte diese Informationen zu bearbeiten.';

und starte dann das Programm trotzdem.

BTW:
Application.MessageBox ('Sie haben nicht die erforderlichen Rechte um dieses Programm auszuführen.','Fehler',0+16); Weißt du in zwei Jahren noch aus dem Kopf, was die Zahl 16 bedeutet? Warum benutzt du nicht die Konstanten: MB_ICONSTOP? Und 0+16 ist immer noch 16.
Wegen so was wollte ich deinen Quellcode haben und drübergucken.

[Assun]

Jupp es gibt ne neue Version

[uwi1961]

Hab mal mit Luckies Prog getestet ->
kein Fehler wegen der Rechte, setzt die OEM-Info´s ...

Gruß Uwe.