Hmm hilft alles nix also die Funktionen, also mal kurz zum Programm:
Mein Programm prüft fünfsekündlich die Prozessliste ob ein Virenscan gestartet wurde. Danach prüft es minütlich ob der Scan abgeschlossen ist (der Prozess beendet ist) und fährt dann den Computer herunter. So das ich einmal die Woche abends den Virenscanner an und mich selbst dann ins Bett schmeißen kann. Das funktioniert auch schon ganz gut, bis zu dem Zeitpunkt als mein Bruder rein kam dachte,
oh der PC ist ja noch an und was im Netzt geguckt hat als der PC sich dann herunter gefahren hat, hat er panik bekommen er habe was kaputt gemacht und die Sicherung von letzter Woche eingespielt.
Darum möchte ich jetzt mein Fenster, was momentan sich in der Taskleiste befindet einfach in die Mitte vom Bildschirm setzen sobald der Scan läuft. Dazu rufe ich die folgende Funktion auf:
Delphi-Quellcode:
procedure ScanRunnig;
begin
Activate;
Label1.Caption := 'Scan läuft';
Einblende(Self,23,123);
Application.Restore;
BringToFront;
Position := poScreenCenter;
BorderStyle := bsNone;
Align := alCustom;
end;
Das Problem ist das Fenster bleibt unten in der Taskleiste, ich benutze Delphi
Rad-Studio 2007 und Win XP Prof SP3.
Ich hoffe ihr könnt mir helfen, ist vermutlich nur eine Zeile und dann kann ich den anderen Code da rausschmeißen
Gruß,
Tobi