Vorschau eines Bildschirmschoners

[xZise]

Ich habe eine Frage zum Paramter "/P":
Soll dieser Paramter sagen, dass der Bildschirmschoner im kleinen Fenster vom Anzeigendialog angezeigt werden soll?

Dann hätte ich eine Frage: Wie kann ich das realisieren?

[turboPASCAL]

Zitat:

Zitat von xZise

Ich habe eine Frage zum Paramter "/P":
Soll dieser Paramter sagen, dass der Bildschirmschoner im kleinen Fenster vom Anzeigendialog angezeigt werden soll?

Ja.

Hinter dem Parameter "P" steht noch das Handle des Fensters auf dem dann dein Fenster erscheinen kann/soll.
zB.:

Delphi-Quellcode:

FormX.ParentWindow := StrToInt(ParamStr(2));

[Sunlight7]

Delphi-Quellcode:

FormX.ParentWindow := StrToIntDef(ParamStr(2), 0);

Sonst krachts, wenn es wer mit dem Parameter /P startet :wink:

[SirThornberry]

Warum sollte es da krachen? Zudem ist es glaub ich besser es kracht als das man sich einfach wundert das gar nix passiert weil keine Fehlermeldung kommt.

[DGL-luke]

"0" ist der "Desktop", SirT. Also absolut fail-safe.

[Sunlight7]

Otto Normalbürger kann mit der Fehlermeldung " '' ist kein gültiger Integerwert" eh nix Anfangen, also warum ihn damit Nerven, wenn mans gleich abfangen kann?

[SirThornberry]

weil er sich dann an den Hersteller wenden kann. Viel schlimmer finde ich wenn der Bildschirmschoner dann gleich auf Vollbild läuft weil der falsche Parent angegeben wurde. Vor allem weiß der Endnutzer dann auch sofort das es sich um einen Fehler handelt und nicht das es Absicht ist.

[Sunlight7]

Eigentlich hatt' ich eher an sowas gedacht, schreib' ich mal zur Vervollständigung dazu :)

Delphi-Quellcode:

Wnd := StrToIntDef(ParamStr(2), 0);
If Wnd<>0 then
   FormX.ParentWindow := Wnd else begin
      ShowMessage('Hmm, da stimmt was mit dem Parameter net...');
      Application.Terminate;
      Exit;
   end;

[SirThornberry]

das kommt einer ordentlichen Lösung schon näher wobei dann TryStrToInt angebrachter wäre

[Sunlight7]

Aber auch nur dann, wenn die Delphi Version TryStrToInt kennt... :wink: