Kod: Tümünü seç
begin
label2.Caption:=TimeToStr(now);
if label2.Caption='01:00:00' then
begin
WinExec('D:\katırr\emule.exe',SW_SHOWNORMAL);
end;
end;
evet biliyorum yalnız, böyle yapmak istiyorum.tatu yazdı:windows scheduled taskı kullanarak belirlediğin zaman dilimlerinde çalışmasını sağlayabilirsin.
....
kodlar aynen yukarıda yazdığım gibi söylediğiniz maddelerin hiç birinde sorun yok.mrmarman yazdı:- Bu bir Timer nesnesinin içerisinde değil mi ? System Tray'e gittiğinde de Timer durmaz ki, dolayısı ile çalışmasına devam eder ve işlevini yapar...
- başka bir sorun olmalı... kodlarını tekrar gözden geçir. Minimize yapıldığında timer durduran bir kod içertiyor olabilir...
- Timer interval değeri istediğin zaman dilimini yakalayacak kadar kısa olmalı.
-Ayrıca bu işlemi yapmadan önce "eğer EMULE çalışmıyorsa"'yı mutlaka kontrol ettir.
Kod: Tümünü seç
const
WM_ICONTRAY = WM_USER + 1;Kod: Tümünü seç
private
TrayIcon: TNotifyIconData;
procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY;
Procedure FormuGizle(Sender: TObject);
Procedure FormuGoster;
Procedure MenuyuGoster;
{ Private declarations }Kod: Tümünü seç
Function EmuleCalisiyor : Boolean;
Var
hEmule : THandle;
Title,
ClassName : array[0..255] of char;
begin
Result := False;
hEmule := Application.Handle;
while ( hEmule > 0 ) AND (NOT Result) do
begin
GetWindowText(hEmule, Title ,255);
GetClassName (hEmule, ClassName,255);
If (ClassName = '#32770') AND ( Pos('EMULE', UpperCase(Title) ) > 0 )
then Result := True;
hEmule := GetnextWindow(hEmule, GW_HWNDNEXT);
end; // While
end;Kod: Tümünü seç
procedure TForm1.FormuGizle(Sender: TObject);
begin
with TrayIcon do
begin
cbSize := SizeOf(TrayIcon);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_ICONTRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @TrayIcon); // System Tray'e yeni bir Icon ekle
Form1.Hide; // Formu gizle
end;Kod: Tümünü seç
procedure TForm1.FormuGoster;
Begin // Uses'a ShellApi
Form1.Show;
Application.Restore;
Form1.SetFocus;
Application.BringToFront;
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
end;Kod: Tümünü seç
procedure TForm1.MenuyuGoster;
Var
FareninKonumu : TPoint;
Begin
GetCursorPos(FareninKonumu); // Mouse'un pozisyonunu öğren
PopUpMenu1.Popup(FareninKonumu.X,FareninKonumu.Y); // PopUp menüyü o pozisyona aç
PostMessage(Self.Handle,WM_NULL,0,0); // Systeme Herhangibir Mesaj Gönderme
end;Kod: Tümünü seç
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:=TimeToStr(now);
if Trim(Label2.Caption) = '01:00:00' then
begin
If NOT EmuleCalisiyor() then begin
WinExec('D:\katırr\emule.exe', SW_SHOWNORMAL);
end;
end;
end;Kod: Tümünü seç
procedure TForm1.TrayMessage(var Msg: TMessage);
begin
case Msg.lParam of
WM_LBUTTONDOWN:
Abort;
WM_LBUTTONDBLCLK:
begin
FormuGoster();
end;
WM_RBUTTONUP:
begin
MenuyuGoster();
end;
end;
end;Kod: Tümünü seç
procedure TForm1.FormuGster1Click(Sender: TObject);
begin
FormuGoster();
end;Kod: Tümünü seç
procedure TForm1.Button2Click(Sender: TObject);
begin
FormuGizle(Self);
end;