-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
4. Mär 2009
Hi!
Ist das hier eine praktikable Lösung? Es sieht nicht danach aus, aber was besseres ist mir nicht präsent...
function IsWindowsXP: Boolean;
begin
Result := (Win32MajorVersion = 5) and ( Win32MinorVersion = 1) and (strtoint(copy(Win32CSDVersion,length(Win32CSDVersion),1))>=2);
end;
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
4. Mär 2009
Hi!
Ich habe nun diese genommen:
function IsWindowsXP: Boolean;
begin
Result := (Win32MajorVersion = 5) and ( Win32MinorVersion = 1);
end;
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
4. Mär 2009
Hi!
Wenn ich versuche den Code zu testen, sagt er:
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
4. Mär 2009
Hi!
Also was mir aufgefallen ist:
hService ist nicht 0 wie ich es vermutet hätte, wenn ich deinen Kommentar hindert dem if lese.
Wenn ich mir sStatus.dwCurrentState ausgeben lasse ist es 1, wenn der Service läuft und ebenfalls 1, wenn er nicht läuft...
Wenn ich den Code so verändere, dass er immer
hService := OpenService(SCM, PChar('MpsSvc'), SERVICE_QUERY_STATUS);
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
4. Mär 2009
Hi!
Also meine Tests zeigen mit deinem Code folgendes:
Vista Ultimate, 64 Bit: Test liefert false, egal ob Firewall-Service läuft oder nicht
Win XP - Home, 32 Bit: Test liefert richtige Ergebnisse
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Vielen Dank für deine Mühe.
Und genau für sowas ist eben diese Sparte da!
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Wer sagt denn, dass obiger Code unter Vista 32-Bit läuft?
Bisher noch niemand...
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Erstens ist das für mich eine vollkommen neue Information, dass dieser Code irgendwo eingesetzt wird, zweitens hat niemand behauptet, der Code würde nicht funktionieren (ich sagte scheinbar) und vor allem kann diese Aussage für obigen Code vollkommen korrekt sein, da er eben diese Überprüfung enthält. Wenn es also so sein sollte, dass die Überprüfung unter Vista fehlschlägt wäre meine...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Kein Grund hier rum zu baaahen, oder?
Es handelt sich um einen von mir aufbereiteten Code, das heißt, der Code stammt nicht von mir, sondern von den angegebenen Usern. Ich habe die Informationen zusammengetragen und der Code steht hier, um diskutiert und verbessert zu werden, bevor er in die Code-Library wandert.
Insofern verstehe ich deine Aufregung jetzt nicht.
Viele Grüße,
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Diese Frage kann ich leider nicht beantworten - aber wenn es jemand testen könnte, wäre das klasse!
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
3. Mär 2009
Hi!
Ein erster Test unter Vista Ultimate 64-bit veranlasste ihn hier
if not ServiceActive
or not FirewallActive
or (FirewallActive and not ExceptionsAllowed) then
Exit;
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
2. Mär 2009
Hi!
Stimmt, da hast du recht!
Werde das gleich oben ergänzen - Danke.
Ciao, Frederic
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by fkerber,
1. Mär 2009
HeikoAdams stellt dazu folgenden Code zur Verfügung. Dieser entstand durch Weiterentwicklung eines Code-Schnipsels, den smallsmoker gepostet hatte:
Hinweise:
Der Code scheint nur unter Windows XP zu funktionieren.
Vor dem Anlegen oder Löschen einer Ausnahme wird erst einmal geprüft, ob die Firewall überhaupt aktiviert ist, ob Ausnahmen zugelassen sind und ob der Firewall-Dienst läuft.
...