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

[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:

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 :evil:

[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... :wink:

[leddl]

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

[uwi1961]

:gruebel:

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 :gruebel:

Gruß Uwe.

[Assun]

das ist allerdings seltsam :gruebel:

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 :gruebel:

[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:

Delphi-Quellcode:

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.