Hilfe mit Systray

robin86 · Beiträge: 26

Ich habe eine kleine Uhr geschreiben, die mich immer zu einer bestimmenten zeit alarmieren soll. Das Problem ist jetzt, das Fenster beim minimieren statt in die taskleiste in des systray zu packen. ich habe dafür ein paar progschnipsel runtergeladen, aber leider funzt es nich ganz. Kann mir bitte jemand sagen, was ich verändern muss:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:

unit clockmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, mmsystem, FileCtrl, ShellApi, AppEvnts;

  const
  IC_CLICK = WM_APP + 201;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    Button2: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ApplicationEvents1: TApplicationEvents;

    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ApplicationEvents1Minimize(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure Systray(var sMsg: TMessage); message IC_CLICK;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ziel: TDateTime;
  minute, stunde, zeit: string;
  NIM : TNotifyIconData;

implementation



{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);

begin
Stunde:=Edit1.Text;
Minute:=Edit2.Text;
zeit:=Stunde + ':' + Minute;
ziel:=strtotime(zeit);
Label1.caption:=timetostr(ziel);

end;



procedure TForm1.Timer1Timer(Sender: TObject);
  var i: integer;
    platz: PAnsiChar;
begin

Label4.Caption:=timetostr(time);
if label1.caption=label4.caption then



begin
if DirectoryExists('c:\windows') then
platz:='c:\windows\media\ringin.wav'
else if DirectoryExists('d:\windows') then
platz:='d:\windows\media\ringin.wav'
else if DirectoryExists('e:\windows') then
platz:='e:\windows\media\ringin.wav'
else if DirectoryExists('f:\windows') then
platz:='f:\windows\media\ringin.wav'
else if DirectoryExists('g:\windows') then
platz:='g:\windows\media\ringin.wav'
else
ShowMessage('Fehler');
  for i:=1 to 3 do
  SNDplaysound(platz, SND_LOOP)

end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Systray(var sMsg: TMessage);
begin
  // Vorgang: Klick auf das Icon neben der Uhr und Anzeige der Anwendung
  inherited;
  if (sMsg.LParam = WM_LBUTTONDOWN) then begin
    Show;
    Shell_NotifyIcon(NIM_DELETE, @NIM);
    Application.Restore; //zeigt die Anwendung wieder an
  end;
end;

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  //Vorgang: Minimieren der Anwendung, Entfernung des Taskleisteneintrags
  //und Hinzufügen des Programmicons neben der Uhr
  Form1.FormStyle:=fsStayOnTop;
  Hide;
  with NIM do begin
    cbSize := SizeOf (nIM);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := IC_CLICK;
    hIcon := Application.Icon.Handle;
    szTip := 'Test-Programm';
  end;
  Shell_NotifyIcon(NIM_ADD, @NIM);
end;


end.

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Ja-Pa · Verfasst: So 06.06.04 12:35

robin86 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
if DirectoryExists('c:\windows') then
platz:='c:\windows\media\ringin.wav'
else if DirectoryExists('d:\windows') then
platz:='d:\windows\media\ringin.wav'
else if DirectoryExists('e:\windows') then
platz:='e:\windows\media\ringin.wav'
else if DirectoryExists('f:\windows') then
platz:='f:\windows\media\ringin.wav'
else if DirectoryExists('g:\windows') then
platz:='g:\windows\media\ringin.wav'

Und was ist wenn Windows unter H: installiert worden ist?
Oder jemand Windows NT oder 2000 installiert hat? Da heißt das Verzeichnis "Windows" nämlich "winnt".
Das Windows-Verzeinis kannst du auch einfach so ermitteln:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function GetWinDir: string; 
var 
  dir: array [0..MAX_PATH] of Char; 
begin 
  GetWindowsDirectory(dir, MAX_PATH); 
  Result := StrPas(dir); 
end;

Für das Sytray-Icon kannst du auch diese Komponente verwenden:
swiss.torry.net/vcl/...tasks/tytsystray.zip

Übrigens: Hier
swiss.torry.net/apps...ties/tray/aclock.exe
gibt es schon in etwa so ein Programm, das du gerade programmierst.
Falls du das Programm also "nur für dich" programmierst, kannst du auch dieses Programm verwenden.

_________________
Der Autor dieses Textes haftet nicht für Schäden an Soft- oder Hardware
oder Vermögensschäden, die durch das Benutzen des Textes entstehen.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

robin86 hat folgendes geschrieben:

aber leider funzt es nich ganz.

Was genau funktioniert denn nicht? Fehlermeldungen?

robin86 · Beiträge: 26

Nur wenn ich minimiert habe, ist das Prog trotzdem in die Taskleiste gegangen

@Ja-Pa
Danke für den Tipp

Ja-Pa · Verfasst: So 06.06.04 18:47

Wenns weiter nichts ist...
So kannst du die Schaltfläche in der Taskbar ausblenden:

markieren

Delphi-Quelltext

1:
2:
3:
4:

ShowWindow(Application.Handle, SW_HIDE );
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) 
              or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow(Application.Handle, SW_SHOW);

_________________
Der Autor dieses Textes haftet nicht für Schäden an Soft- oder Hardware
oder Vermögensschäden, die durch das Benutzen des Textes entstehen.

robin86 · Beiträge: 26

Ok, noch ma was ganz anderes, ich wollte GetWinDir in ne eigne dll schreiben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

library WindowsDirectory;

uses
  SysUtils,
  Classes,
  Windows;

{$R *.res}

function GetWinDir: Ansistring;
var
  dir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(dir, MAX_PATH);
  Result := StrPas(dir);
end;

exports
GetWinDir;

begin

end.

Das ist die dll. Die Krieg ich aber mir dem Prog

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

unit aufrufdll;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

function GetWinDir:ansistring; stdcall;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetWinDir; stdcall;
external 'WindowsDirectory.dll';

procedure TForm1.Button1Click(Sender: TObject);
var dire: ansiString;
begin
dire:=GetWinDir;
Label1.Caption:=dire;
end;

end.

nicht zumm laufen. Kann mir bitte wer sagen warum nicht????

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

robin86 hat folgendes geschrieben:

Ok, noch ma was ganz anderes, [...]

Eigentlich: Neue Frage, neuer Thread.

Zitat:

[...] ich wollte GetWinDir in ne eigne dll schreiben:

Ach ja? Und warum? Ist für mich doppelt gemoppelt, weil die Funktion bereits von einer Bibliothek zur Verfügung gestellt wird.

Ansonsten, zum ursprünglichen Thema: klick - mit der Einschränkung, dass sie bei [WIN]-M nicht richtig reagiert. Aus dem Beitrag:

Zitat:

Wie gesagt: wenn du den Hotkey [WIN]-M benutzt, bleibt der Taskbar-Button.

Das liegt IMHO daran, dass die VCL den entsprechenden Befehl nicht zur Bearbeitung weiterleitet. Bei einem nonVCL-Programm geht die Minimierung in die TNA auch mit dem o.g. Hotkey problemlos.

robin86 · Beiträge: 26

@JA-Pa

Wenn ich dein systray benutzen will, was mach ich dann Falsch:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
Systray.TSystray.Minimize;
end;

DieProzedur lässt sich nich aufrufen

Ja-Pa · Verfasst: Mo 07.06.04 20:37

Was heißt denn "lässt sich nicht aufrufen"?
Gibt es diese Methode nicht oder gibt es eine Fehlermeldung?
Ich hab die Anwendung mit

markieren

Delphi-Quelltext

1:	Application.Minimize;

minimiert.

Und was das mit der DLL betrifft:
Warum machst du für so wenig Code eine eigenene DLL?
Verwende es doch einfach so in der gleichen Unit.

_________________
Der Autor dieses Textes haftet nicht für Schäden an Soft- oder Hardware
oder Vermögensschäden, die durch das Benutzen des Textes entstehen.

robin86 · Beiträge: 26

Ich meine, dass ich es ja per uses einbinden muss (oder?) aber dann steht da in der Systray Unit, dass man TSystray auf das Formular ziehen soll. Aber wo finde ich das TSystray?

robin86 · Beiträge: 26

Ich habe es jetzt auch mit

markieren

Delphi-Quelltext

1:	ShowWindow(GetWindow(Handle, GW_OWNER), SW_HIDE);

versucht, aber das klappt nich wenn ich es OnCreate machen. Ich will aber, dass das Prog gleich bei dem Start gar nicht erst in der Taskleiste erscheint. So wie bei den aneren icon in systray wie z.B. Winamp od Norton.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme