IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  digitalpanel

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Temmuz 2013, 22:55   #1
Çevrimdışı
aSi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
HOOK çalışan programlar




Program systemtray'e yerleşiyor. Ve arka planda çalışıyor. Yani HOOK dediğimiz olayı yapıyor. Çok farklı (?!), faydalı amaçlar için kullanılabilir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//*************************** // Unit1.dfm; dosyasının içeriği //*************************** unit Unit1; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ShellAPI, Menus; const WM_MINIMALIZE = WM_USER + 1 type TForm1 = class(TForm) PopupMenu1: TPopupMenu; Show1: TMenuItem; Hide1: TMenuItem; Quit1: TMenuItem; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Show1Click(Sender: TObject); procedure Hide1Click(Sender: TObject); procedure Quit1Click(Sender: TObject); private FIconData : TNotifyIconData; public procedure WMMinimalize(var Message : TMessage); message WM_MINIMALIZE; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var i : Integer; begin with FIconData do begin cbSize := SizeOf(FIconData); Wnd := Self.Handle; uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; hIcon := Application.Icon.Handle; uCallbackMessage := WM_MINIMALIZE; szTip := 'Hakan MÜŞTAK'; end; Shell_NotifyIcon(NIM_ADD, @FIconData); end; procedure TForm1.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, @FIconData); end; procedure TForm1.WMMinimalize(var Message : TMessage); var p : TPoint; begin case Message.LParam of WM_RBUTTONUP: begin GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); end; end; end; procedure TForm1.Show1Click(Sender: TObject); begin Form1.Visible := TRUE; ShowWindow(Application.Handle, SW_HIDE); end; procedure TForm1.Hide1Click(Sender: TObject); begin Self.Visible := FALSE; end; procedure TForm1.Quit1Click(Sender: TObject); begin Application.Terminate; end; end.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//*************************** // Project1.dpr; dosyasının içeriği //*************************** program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.ShowMainForm := FALSE; Application.Run; end.


__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Cevapla

Etiketler
Çalışan


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Çalışan Kadınlar Ve Ev Hayatı, Çalışan Kadınların Zorunlulkları Ay Ah Kadınlar 0 08 Temmuz 2010 16:35