XP Usermanagers 6.1 Open Source

[DGL-luke]

Ok, ich korrigiere mich: ich hab das schon mal bei Programmen gesehen, bei denen ich davon ausgehe, dass sie nicht mit Delphi und nicht von Luckie geschrieben wurden...

[Luckie]

Es ist vollbracht die Version 5.1 ist endlich fertig. Ich werde sie wohl morgen Abend hier veröffentlichen, sie muss erst noch etwas bei mir auf der Festpaltte reifen.

Im About-Dialog habe ich alle erwähnt, die hier in dem Thread gepostet haben und mir mit Rat, Tat, Kritik und Bug-Reports geholfen haben:

Zitat:

gmarts, MasterC, jfheins, toms, Nicodius, fkerber, MathiasSimmack, Alienhere, mh166, shmia, MatthiasW, ringli, Duffy, mytar, Waldteufel, SubData, MagicAndre1981, S2B, engine, Pseudemys Nelsoni, DerFree, Tonic1024, Olli, bug, neogen, Uncle Cracker, mirage228, Matze, Pr0g, bigg, Daniel Wolf, Kevin, Basilikum, Johnny_W, kisslips, alcaeus, PierreB, Sharky, orabimus, Union, jmit, Christoph Pertzsch, xaromz, freak4fun, DGL-luke, turboPASCAL, RWarnecke, himitsu, turboPASCAL Sunlight7, xZise, Phoenix, Gremlin, Daniel G, Rüdiger_

Sollte ich wen vergessen haben oder wenn jemand mit richtigen Namen genannt werden will, so soll sich derjenige bitte per PN bei mir melden.

Ich vertreibe den XP Usermanager ja, als Shareware, da es bisher keinen besseren Sharewarechutz gibt als eine bedingte Compilierung habe ich mich zu folgendem entschieden: In der Demoversion sind die Funktionen, zum Löschen, Exportieren in eine XML-Datei und Importieren aus einer XML-Datei deaktiviert. Stattdessen erscheint folgende Messagebox:

Zitat:

In der nicht lizensierten Demo-Version ist dieses Feature deaktiviert.

Wie Sie eine lizensierte Vollversion beziehen können, erfahren Sie auf meiner Webseite:
http://programme.michael-puff.de

Desweiteren erscheint im Banner der Text: "Dies ist eine nicht lizensierte Demo-Version". Da die Funktionen nicht im Source enthalten sind, lässt sich da auch nichts cracken oder patchen. Man könnte eben nur den Text verschwinden lassen. Was meint ihr zu der Lösung?

[turboPASCAL]

Zitat:

Was meint ihr zu der Lösung?

Tja, ist wohl das beste. An sonsten kannst Du damit rechnen das ein Patch irgend wo im INet erscheint.
Ich selbst würde es genau so machen.

[bitsetter]

Hallo,

auch wenn es nur eine Kleinigkeit ist, aber es würde professioneller aussehen, wenn du den Text anders positionieren würdest:

Eine bedingte Compilierung ist sicherlich von Vorteil, denn was nicht vorhanden ist kann man nicht cracken.
Das mit dem Text kann natürlich nicht schaden, sowas haben andere Programme auch.
Mehr Einschränkungen würde ich an deiner Stelle jedoch nicht mehr einbauen, ansonsten fängt es an zu nerven.

[Luckie]

Das ist noch die alte Version!

Zitat von Luckie:

Es ist vollbracht die Version 5.1 ist endlich fertig. Ich werde sie wohl morgen Abend hier veröffentlichen, sie muss erst noch etwas bei mir auf der Festpaltte reifen.

[Thorben86]

Habe mir gerade mal die Version 5-1-0-57 runtergeladen:

Wenn ich bei "Computer auswählen" einen Rechner aus meinem Netz nehme und der sich nicht verbinden kann, z.b. durch fehlende Login-daten, fehlendes oder falsches Passwort, dann bekomme ich zwar das Popup, z.b. Zugriff verweigert, 3 exceptions und bei der 3. wird das Programm beendet.

[Luckie]

Version 5.1 ist hiermit offiziell veröffentlicht. Alles weiter im ersten Posting.

@Thorben86: Probier das doch noch mal mit der aktuellen Version. Wenn ich mich versuche über das Netzwerk lokal am eigenen Rechner anzumelden mit falschen Daten, dann passt alles.

[xaromz]

Hallo,

gleich beim ersten Starten fällt mir auf, dass mein Betriebsystem (Vista Ultimate 32Bit) als "unbekannt" angezeigt wird.

Gruß
xaromz

[Luckie]

Wer kennt denn schon Vista.

Delphi-Quellcode:

function GetOS(const Computer: WideString): string;
var
  res               : DWORD;
  s                 : string;
  si                : Pointer;
  Major             : DWORD;
  Minor             : DWORD;
resourcestring
  rsErrorOSUnknown = 'Betriebssystem unbekannt';
begin
  si := nil;
  s := '';
  res := NetServerGetInfo(PWideChar(Computer), 101, @si);
  if res = NERR_Success then
  begin
    Major := PSERVER_INFO_101(si)^.sv101_version_major;
    Minor := PSERVER_INFO_101(si)^.sv101_version_minor;
    if (Major = 4) and (Minor = 0) then
    begin
      s := 'Windows NT 4.0';
    end
    else if (Major = 5) and (Minor = 0) then
    begin
      s := 'Windows 2000';
    end
    else if (Major = 5) and (Minor = 1) then
    begin
      s := 'Windows XP';
    end
    else if (Major = 5) and (Minor = 2) then
    begin
      s := 'Windows 2003 Server Family';
    end
    else
      s := rsErrorOSUnknown;

    NetApiBufferFree(si);
  end
  else
    s := rsErrorOSUnknown;
  result := s;
end;

Das müsste man hier noch irgendwie integrieren. Welche Major und Minor ID hat denn Vista?

[MagicAndre1981]

6.0