Bildschirmschoner Starten

[No Voices]

Ist es Euch auch schon mal so ergangen das Ihr den PC-Arbeitsplatz ferlassen müsst und euch gefargt habt warum diese Scrennsaver erst in 30 Min. Startet. Hättet Ihr nicht auch gerne in so einer Situation einen Button um den Screensaver manuel zu starten.

Ich habe mir gedacht das man diesen aufruft ins Popupmenü auf dem Desktop einbinden könnte.

Ist das überhaupt möglich und wenn WIE???

[MathiasSimmack]

Zitat von No Voices:

Ist es Euch auch schon mal so ergangen das Ihr den PC-Arbeitsplatz ferlassen müsst und euch gefargt habt warum diese Scrennsaver erst in 30 Min. Startet.

Ab und zu.

Zitat:

Hättet Ihr nicht auch gerne in so einer Situation einen Button um den Screensaver manuel zu starten.

Habe ich doch. Zwar keinen Button sondern ein Programm mit (für mich!) weiteren nützlichen Funktionen in der TNA.

[No Voices]

Danke hat mir echt weiter geholfen.

[XeRo]

@Mathias: Die Standartaktion für Doppelklick auf das Symbol sollte nicht von anfang an "alle Fenster schließen" sein...sondern "alle Fenster miimieren" oder was anderes harmloses...

Hab blöd geschaut, als auf einmal alles weg war.

[MathiasSimmack]

Wirst du wohl nicht meckern! So was geht mir nahe.

Nee, ernsthaft: Darum kann man ja die Standardaktion frei wählen. Und da du den Quellcode auch noch frei Haus bekommst, kannst du die von dir gewünschte Aktion doch selbst einstellen:

Delphi-Quellcode:

var
  DefaultAction : dword = CM_DESKTOPCLOSEALL;

So!

[SirThornberry]

Also ich hab einfach ne Sondertaste von meiner Tastatur mit dem Screensaver belegt

[XeRo]

Wer meckert?...hat mich nur etwas verwundert, als plötzlich alle fenster weg waren und mich da so ein "Unit 1 speichern?" dialog anlächelte.

das prog ist echt toll und hilfreich...

[MathiasSimmack]

Na ja, immerhin wirst du ja noch gefragt ob du speichern willst.

btw: Ich schreibe nur nützliche Tools ... ... und manchmal schreibe ich sogar Emails, morgens um 10 Uhr ... (Das ist ein Insider-Gag, den verstehst du nicht, XeRo.). Aber trotzdem Danke für das Lob. Ich habe noch mehr so nützliche Sachen. Nennen sich die "Windows Tools", und die gibt es mit Quellcode.

[The-X]

hier ist 'n kleines Programm von mir was einfach nur den Bildschirmschoner startet exe im Anhang

Delphi-Quellcode:

Program LaunchSaver;
{$D Launch ScreenSaver Tool}
Uses ShellApi, Windows;
var S:array[0..MAX_PATH+1]of char;l:integer;h:string;

function GetWinDir:string; var Buffer: Array[0..MAX_PATH+1] of Char;
begin GetWindowsDirectory(Buffer,MAX_PATH+1);result:=String(Buffer);end;

begin
h:=GetWinDir;if h[length(h)]<>'\' Then h:=h+'\';h:=h+'SYSTEM.INI';
l:=GetprivateprofileString('boot','SCRNSAVE.EXE','',S,Max_Path,Pchar(h));
if l=0 then messagebox(getactivewindow,'Bildschirmschoner nicht aktiv!','Run Screensaver: Fehler',MB_ICONERROR) else
shellexecute(0,'open',S,'/S','',SW_SHOWNORMAL);
end.

allerding zur Zeit nur W9x ? (wegen System.ini)

[edit]Echse vergessen [/edit]

[Morph06]

Schönes programm mit wirklich nützlichen funktionen.

Allerdings, um die daten zu schützen, kann man auch einfach die "Windowstaste+L" drücken, dann wird der Arbeitsplatz gesperrt