Projektstart autom. Archivierung

[M-O-D]

Ähhh,

dazu solltest Du ein Popup Menü bereitstellen mit den einträgen
-Programm anzeigen
-Programmende

Beim click auf anzeigen startest dann ne Prozedur, z.B. so

Delphi-Quellcode:

procedure ZeigeFenster;
//Zeigt das Programm Fenster
begin
   //Fenster wieder in der Taskleiste sichtbar machen
   ShowWindow(Application.Handle, SW_SHOW);
   //Fenster auf dem Bildschirm sichtbar machen
   ShowWindow(self.Handle, SW_SHOW);
end;

Sollte eigentlich so gehn...

Grüße :hi:

[M-O-D]

Natürlich noch die Hälfte vergessen!!! Das Menü soll ja beim Klick auf das Icon in der Taskbar aufklappen, dazu musst Du den Klick abfangen

Delphi-Quellcode:

//Deklaration:
procedure WMTaskBarEvent(var message: TMessage); message WM_TASKBAR_EVENT;
//Diese Procedure redistriert den Klick auf das Icon
procedure TfrmMain.WMTaskBarEvent(var message: TMessage);
begin
   //Auswerten des unteren bereichs von LParam
   //Param = 32 Bitwert unterteilt in 16 Lo und 16 Hi

   case message.LParamLo of

      WM_LBUTTONDBLCLK   :   ZeigeFenster;
       //WM_LBUTTONDOWN      :   ZeigeMenue;
       WM_RBUTTONDOWN      :   ZeigeMenue;

   end;
end;

//Diese Procedure zeigt dann das Menü an
procedure ZeigeMenue;
//Zeigt das Menue
var
   crsPos   : TPoint;
begin
   //Die aktuelle Cursorposition auslesen
   GetCursorPos(crsPos);
   //Damit das Menü auch wieder zugeht, wenn nix geklickt wurde
   //muss das unsichtbare fenster in den Vordergrund
   SetForeGroundWindow( self.Handle );
   //Menü an Cursorposition aufklappen lassen
   popMain.Popup(crsPos.X, crsPos.x);

end;

Vielleicht kannste das aber auch in der Komponente einstellen, habe sie selbst noch nicht verwendet, bloss gesehn!

CU

[Ati]

Hat super geklappt. Vielen Dank. Da ich aber eine faule S.. bin, hab ich das nur so gemacht, daß bei einem Doppelklick das Fenster wieder angezeigt wird. Also ohne Menue.

[Luckie]

Wenn du es nur für Delphi Projekte baruchst und es nicht selber machen willst, kuck dir mal das PlugIn für die IDe GExperts an, da hat es was zum Archivieren des Projektes.

[Ati]

Und wo finde ich das :?:

[Luckie]

Zur Not mit Google. Einen direkten Link habe ich auch nicht parat.

[Ati]

M-O-D hat ja den Vorschlag gemacht das mein Programm alte Dateien automatisch nach einigen Tagen löscht. Da mein Programm in der Endphase ist möchte ich jetzt diesen Gedanken mal aufgreifen. Wie kann ich das jetzt theoretisch hinkriegen? Die gespeicherte (archivierte) Datei läuft unter folgendem Beispiel "blabla19.03.04.txt".