Sende andet program til systray

elv >> Har du en handle til programmet ?

Jens B

Fedt program! Mon du kan komme i tanke om hvad det hedder?

Kan ikke huske navnet på programmet.

Jeg har ikke handlen til programmet, men det kunne f.eks. være outlook express... så den ikke fylder i taskbren, men alligevel henter mail konstant...

Øv...

jeg skal nok lave programmer, men det bliver altså ikke i dag !

Jeg tror ikke det er så svært ...

Jens B

Lyder feeeeeedt, jeg venter bare...

MVH Elv

jeg ska nok ska nok :-)

/ZIRON

Jeg har en gang lavet noget lignende - det kan være du kan bruge noget af det

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    IconData: array[0..999] of TNotifyIconData;
    IC: Integer;
  public
    { Public declarations }
  end;

function EnumWnds(Wnd: HWND; Data: LParam): Bool; stdcall;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function EnumWnds(Wnd: HWND; Data: LParam): Bool;
var
  Text: string;
begin
  SetLength(Text, 256);

  if GetWindowText(Wnd, PChar(Text), 255) <> 0 then
    Form1.ListBox1.Items.AddObject(Text, Pointer(Wnd));

  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumWindows(@EnumWnds, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to IC - 1 do
    Shell_NotifyIcon(NIM_DELETE, @IconData[i]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ListBox1.ItemIndex < 0 then
    Exit;

  with IconData[IC] do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := HWND(ListBox1.Items.Objects[ListBox1.ItemIndex]);
    uID := IC;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallBackMessage := 0;
    hIcon := Application.Icon.Handle;
    StrCopy(szTip, PChar(Copy(ListBox1.Items[ListBox1.ItemIndex], 1, 64)));
  end;

  Shell_NotifyIcon(NIM_ADD, @IconData[IC]);

  Inc(IC);
end;

end.

nico22  >> Så langt så godt ... Men hvis du ikke hooker ding ind i dens message kø, kan du vel ikke få den tilbage ...

Jens B

jeg tænkte man kunne subclasse det vindue man lægger i trayet

jjoee .. Det er selvfølgelig nemmere ...

Jens B

er der stadig gang i dette spørgsmål???

/ZIRON

Det ser lidt dødt ud..... jeg kan ikke helt se hvordan det kode der er givet, kan bruges til noget....

det var mere fordi jeg så vil gå igang med at lave et program til dig :-)

/ZIRON

Lyder godt! :)

Hvaaaaeeehhh... bliver det til noget? :)

MVH Emil

så så boy :-) jeg har da fået lavet noget bare rolig, har bare ikke så meget tid. men det er på vej...

/ZIRON

hehe, jeg skulle bare lige høre om du havde glemt det :)
MVH Emil

:-) det er bare helt iorden...

/ZIRON

Hmmmm...
Faldt lige over spørgsmålet... Ville egentlig også lige høre om der stadig var gang i spørgsmålet... Det kunne da være lækkert at have et lille program der smed alle andre ned i trayen! :)

zzzzzzzzzzz :)
Ziron, er du bare i gang med at lave et monster sejt program eller er vi gået lidt i stå? :)

Hejsa!!
Fandt lige det her, http://www.dntsoft.com/alltotray/ og kom i tanke om spørgsmålet! :)

Hehe, fino!  Men min pointe var også lidt at finde ud af hvordan man kan gøre det fra Delphi.... er det ikke en udfordring for dig? :)

Njaaaa... Tror dog alligevel det er for stor en mundfuld for mig!!
Håbede nu mere på at et par af de andre Delphi-gutter ville forsøge sig lidt!! ;)

Jaaaah, men hvis man nu kigger på hvornår spørgsmålet egentlig er oprettet.... Borrisholt, måtte selv du bukke under for dette? Det tror jeg ikke på :)