TimeWizard - Ein Zeitaktualisierungs-Tool

[Stefan Hueg]

Nun, nach etwa einem Monat Entwicklungszeit, bringe ich Version 0.8 Beta meines Zeitaktualisierungs-Tools TimeWizard heraus.

Es bietet die Möglichkeit die Zeit über das SNTP Protokoll zu aktualisieren. Zusätzlich beinhaltet es einige Service-Funktionen wie einen Zeitserver-Manager, div. Import und Exportmöglichkeiten.

Hier einmal die Features im Überblick:
-Aktualisierung der Uhrzeit über das SNTP Protokoll
-Aktualisierung der Uhrzeit über das HTTP Protokoll mit Proxy-Unterstützung (in Netzwerken wo viele Ports gesperrt sind)
-Zeitserver-Manager
-Zeitserver importieren (.csv, .txt)
-Zeitserver exportieren (.csv, .txt)
-Schnellsten Zeitserver herausfinden
-Mehrsprachigkeit (bisher nur Deutsch und Englisch)

etc.

Was noch geplant ist:
-Autostartfunktion

So nun testet mal drauf los, und nehmt das Proggie ruhig auseinander, bin gespannt auf eure Reaktionen und Vorschläge.

Gruß,

Stefan

PS: Die Readme-Dateien wurden noch nicht überarbeitet

[Stefan Hueg]

Ok danke für den Hinweis, dann muss ich das nur noch anpassen.

Hier der Code, und ich weiss jetzt nicht wo ich das ändern kann ^^

Delphi-Quellcode:

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 (SE_GROUP_ENABLED = (ptgGroups.Groups[x].Attributes and SE_GROUP_ENABLED)) and
      EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then
        begin
          Result := True;
          Break;
        end;
      {$R+}
      FreeSid(psidAdministrators);
    end;
    FreeMem(ptgGroups);
  end;
end;

[Basilikum]

Zitat von Stefan Hueg:

Ok danke für den Hinweis, dann muss ich das nur noch anpassen.

Hier der Code, und ich weiss jetzt nicht wo ich das ändern kann ^^

weshalb wertest du nicht einfach nach dem Aufruf von SetSystemTime den Error-Code (GetLastError) aus, anstelle lange zu prüfen, ob der Benutzer die Zeit setzen könnte ?

[atreju2oo0]

Zitat von Stefan Hueg:

-Aktualisierung der Uhrzeit über das HTTP Protokoll mit Proxy-Unterstützung (in Netzwerken wo viele Ports gesperrt sind)

Und wo kann ich das Einstellen?

[Stefan Hueg]

@Basilikom: Weil die Api Funktion keinen Error Code sondern nur True oder False zurück gibt (Erfolg oder Misserfolg).

@atreju2oo0: "Datei\HTTP-Server Aktualisierung" bzw. "File\HTTP-Server update"

[Stefan Hueg]

@Basilikum: Habe es eben gerade mal geprüft. Sowohl im Erfolgs- als auch im Fehlerfall wird GetLastError 0 zurück. Damit funktioniert es also nicht.

[xZise]

Nettes Programm. Eine Frage: Kann das Programm automatisch aktuallsiseren? Also z.B. alle X-Tage ?

Und dann auch ein schönheits tipp (ich fänds net):
Im Log erscheint:

Code:

[ ] Löse auf clock.psu.edu

Wenns klappt dann löscht du die Zeile (bzw änderst sie):

Code:

[X] Löse auf clock.psu.edu (128.118.25.3)

Wenns dann nicht klappt statt [X] einfach ein [-] ?

PS: Hast du da irgendwie ein Shortcut, der das Fenster durchsichtig macht, aber es dann sozusagen als Bild draufklatscht? Oder habe ich eine neue Funktion meiner Graka/meines Windows entdeckt Irgendwie mit Alt Gr und da was bei der neun ^^

xZise hat folgendes hinzugefügt:

Ah ^^ Ich habs xP Mein Firefox ist leicht durchsichtig xP jetzt müsst ich nur noch dahinterkommen, es wieder umzustellen ^^

xZise hat folgendes hinzugefügt:

So... Wieder umgestellt xP Lag an mein Programm, dass aus XP Vista macht (vom Style her gesehen) und da hat man dann auch so eine lustiche Funktio mit der man Fenster durchsichtig machen kann ^^

PPS: Mach doch Noch diese BOX in der man den Hostname wählt im XP-Style ?!

[Stefan Hueg]

@xZise: Danke für die Hinweise erstmal. Deinen ersten Vorschlag werde ich beherzigen. Zur BOX: Wenn du mir sagst welche Komponente du meinst oder kennst?

[himitsu]

Selbst TRUE und FALSE reicht doch auch aus?

Entweder die Zeit konnte geändert werden, oder eben nut und dann muß ja was nicht stimmen.
Und wenn also die übergebene Zeit OK war, dann lag es wohl an fehlenden Rechten.

[xZise]

[OT]o.O xZise ist doch kein D-Zug ^^ xP[/OT]

Also ich meine diese Combobox (wenn ich es richtig in er innerung habe, wo man die IP oder den Hostname wählt. (Aber irgendwie habe ich das gefühl, dass du nicht das meinst xP)

xZise hat folgendes hinzugefügt:

Noch eine Frage: Was zeigt mir dieses Lustige Lämpchen vor der ComboBox?

[Stefan Hueg]

Deswegen mache ich es ja so: Überprüfung ob die entsprechenden Rechte da sind (evtl. kann jemand den Code editieren dass er auch nach Hauptbenutzern sucht), dann wird geprüft ob das Aktualisieren erfolgreich war und ggf. wird eine Fehlermeldung ausgegeben.

Nur wenn ich schon im Vornerein weiss, welche Fehler entstehen könnten (beispielsweise beim Schreiben in Dateien -> Dateiattribute) oder ob eine Datei zum Lesen überhaupt vorhanden ist (->FileExists) kann ich sie auch vorher vorbeugen.

@xZise: Nein ich mein ob du einen Ersatz vorschlagen kannst