[Delphi] Pasek zadan

0

Witam! :)

Stworzylem program ktory siedzi w Tray'u jednak przy zamknieciu lub minimalizacji okna program nie znika z paska zadan. Czy ktos z was moze wie jak to zrobic ewentualnie podac jakis link. Z gory dzieki.

Pozdrawiam :-)

0

Funkcja do ustawiania ikonki (chyba shell_notifydata(), czy coś w tym rodzaju) ma parametr mówiący, co należy zrobić z ikonką (ustawić, zmienić, wyrzucić). Wszystko znajdziesz w windows SDK w opisie tej funkcji :)

0

Z obsluga Tray'a nie mam problemu. Nie wiem jak spowodowac aby program nie pokazywal mi sie w pasku zadan (tak jak np przy minimalizacji zwyklego programu). Dzieki za dobre checi. [cya]

0

FAQ

0

Nie ma tego na FAQ. Doszedlem do tego ze mozna to zrobic za pomoca komunikatow do taskbar-a. Udało mi sie pobrac uchwyt do taskbar-a jednak nie wiem jak sie dobrac do przycisku mojej aplikacji na nim wyswietlanej. Jak bym to mial to wtedy tylko:
SendMessage(uchwtdoprzycisku, TB_HIDEBUTTON, 0 , 0).

Pozdrawiam. :-)

0

Znalazłem rozwiązanie! :p

Oprócz naszego głównego programu obsługującego Tray'a trzeba stworzyć dodatkowy moduł o treści:

unit RunFirst;

interface

implementation

initialization
IsLibrary := True;
end.

Następnie trzeba zmodyfiikować plik projektu tj. ten z rozszerzeniem .dpr.
Oto jego przykładowy kod.

program JakisTam;

uses
RunFirst in 'RunFirst.pas', { Ten moduł musi być tutaj jako pierwszy! }
Forms, Windows,
MainU in 'MainU.pas' {MainFrm};

{$R *.RES}

begin
Application.ShowMainForm := False; { Nie pisz tego jeśli chcesz aby przy starcie wyświetlał się główny formularz. }
IsLibrary := False;
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end.

Teraz wystarczy program zbudować i wszystko hula. :-)

Pozdrawiam @~~

1 użytkowników online, w tym zalogowanych: 0, gości: 1