Cara hide ke tray icon dengan menampilan hint pada delphi

Assalamualaikum Wr. Wb

 

Pada kesempayan kali ini saya akan membagikan Cara hide ke tray icon dengan menampilan hint pada delphi. Tutorial ini saya bagikan bagi yang belum bisa membuatnya saja, jadi bagi yang sudah bisa abaikan saja juga tidak apa apa. Mari kita mulai saja tutorialnya:

1. Terlebih dahulu kalian harus intsal komponen cooltray pada delphi anda, jangan khawatir bagi yang belum punya komponennya bisa dowload DISINI
2.  Setelah insta komponennya kalian bisa buka delphi dan tambahn button dan cooltray kedalaam unitnya.

 

3. Masukan coding berikut kedalam button

 

4. Masukan Coding berikut kedalam cooltraynya dengan cara klik dua kali aja.

 

5. Selesai.

Notice:

Untuk mengganti icon pada cooltraynya bisa kalian di bagian icon pada cooltraynya.

Untuk menampilakan nama pada saat muse di sorot dengan cara true pada pilihan showhint dan kasih nama pada bagian hint

Mungkin itu yang saya dapat sampaikan mengenai  Cara hide ke tray icon dengan menampilan hint pada delphi
Bagi kalian yang ingin mendownload Source codenya bisa dowload [ DISINI] atau [ DISINI ]

Selamat mencoba dan semoga bermafaat

Baca Selengkapnya >>>

Cara skin tampil di komputer lain pada delphi

Assalamualaikum Wr. Wb

 

Pada kesempayan kali ini saya akan membagikan Cara hide ke tray icon dengan menampilan hint pada delphi. Tutorial ini saya bagikan bagi yang belum bisa membuatnya saja, jadi bagi yang sudah bisa abaikan saja juga tidak apa apa. Mari kita mulai saja tutorialnya:
1. Terlebih dahulu kalian harus intsal komponen cooltray pada delphi anda, jangan khawatir bagi yang belum punya komponennya bisa dowload DISINI
2.  Setelah insta komponennya kalian bisa buka delphi dan tambahn button dan cooltranya kedalaam unitnya.

 

3. Masukan coding berikut kedalam button

 

4. Masukan Coding berikut kedalam cooltraynya dengan cara klik dua kali aja.

 

5. Selesai.

Notice:

Untuk mengganti icon pada cooltraynya bisa kalian di bagian icon pada cooltraynya.

 Untuk menampilakan nama pada saat muse di sorot dengan cara true pada pilihan showhint dan kasih nama pada bagian hint

Mungkin itu yang saya dapat sampai mengenai  Cara hide ke tray icon dengan menampilan hint pada delphi
Bagi kalian yang mau ingin mendownload Source codenya bisa dowload [ DISINI] atau [ DISINI ]

Selamat mencoba dan semoga bermafaan bagian kalian yang mau mencoba

Baca Selengkapnya >>>

Cara hide kedalam system tray icon pada delphi

Assalamu alaikum Wr. Wb

Pada kesempatan kali ini saya akan membagikan Cara hide kedalam system tray icon pada delphi kurang lebihnya seperti ini penampakanny.

Baiklah langsung kita mulai saja tutorialnya:
1. Buka delphi dan tambahkan button pada formnya

2. Tambahkan comobj, ShellApi pada usesnya dan Const WM_CAllBack = WM_USER; di atas type

 

3. Tambahkan

procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack; ( pada type)

 

procedure TForm1.WM_CALLBACKPRO(var msg : TMessage);

var
p : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN :
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
Form1.Visible := True;
end;
WM_RBUTTONDOWN :
begin
GetCursorPos(p);
PopupMenu1.Popup(p.X,p.Y);
end;
end;
end; //(pada implementation)

 

Var

kecil : HICON;

TrayIcon : TNotifyIconData; 

 

 4. Tambahkan PopupMenu1 pada formnya

5. Selanjutnya klik dua kali pada buttonya dan masukan coding berikut

Form1.Visible := False;

Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Ane ada disini';
Trayicon.uID := 1;
TrayIcon.hIcon := Kecil;
TrayIcon.uCallbackMessage := WM_CAllBack;
Trayicon.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,@trayicon);

6.Selesai.

Bagi yang berminat untuk melihat source codenya bisa download  [ DISINI ] atau [ DISINI ]

selamat mencoba dan semoga bermanfaat

Baca Selengkapnya >>>

Download Alphaskins-v9.14 Full Version + Path Delphi Gratis

Assalamu Alaikum Wr. Wb.

Pada kesempatan kali ini saya akan membagikan Alphaskins-v9.14. Yang mana fungsi dari componen ini adalah untuk mempercantik tampilan form yang hendak kita buat nanti, Pasti bagi anda yang suka membuat Aplikasi dengan menggunakan delphi merasa bosen dengan tampilan yang gitu gitu aja kan, Nah untuk lebih jelasnya silahkan bisa liat penampakan dari componen tersebut:

Screenshot 1

---

Screenshot 2

---

Screenshot 3

---

Bagi yang berminat untuk memsang Componen ini bisa download [ DISINI ] atau [ DISINI ]

Baca Selengkapnya >>>

Update Inject Telkomsel, XL Gratis

Pada kesempatan kali ini saya akan membagikan Update Inject Telkomsel, XL Gratis. kurang lebihnya penampkan toolsnya seperti berikut:

Tools ini bisa di download [ DISINI ] atau [ DISINI ] atau [ DISINI ]

Baca Selengkapnya >>>

Cara menampilkan total download dan total upload pada delphi 7

Assalamu alaikum Wr. Wb
Pada kesempatan kali ini saya akan membagikan cara menampilkan total download
dan total upload pada delphi 7

1. Buka delphi 7 di compi nte jangan di compi lain
2. Tambahkan pada unitnya componen magras, kalau belum punya bisa download DISINI atau DISINI

3. Tambahkan magrasapi, magsubs1, WinSock, Registry, ShellAPI, Menus pada bagian unitnya

4. Tambahkan

  ConnHandle: HRasConn ;

  ConnName: string ;

  LastState: integer ;

  LastXmit, LastRecv, LastTime: DWORD ;

di atas implementation

5. Kemudian tambah Edit dan label pada unitnya.

6. Tambahkan coding berikut tepat di bawah

implementation

{$R *.dfm}

function BytesToFriendlyString(Value : DWord) : string;

const

  OneKB = 1024;

  OneMB = OneKB * 1024;

  OneGB = OneMB * 1024;

begin

  if Value < OneKB then

    Result := FormatFloat('#,##0.00 B',Value)

  else

    if Value < OneMB then

      Result := FormatFloat('#,##0.00 KB', Value / OneKB)

    else

      if Value < OneGB then

        Result := FormatFloat('#,##0.00 MB', Value / OneMB)

    else if Value > OneGB then

  Result := FormatFloat('#,##0.00 GB', Value / OneGB)

end;

function BitsToFriendlyString(Value : DWord) : string;

const

  OneKB = 1000;

  OneMB = OneKB * 1000;

  OneGB = OneMB * 1000;

begin

  if Value < OneKB then

    Result := FormatFloat('#,##0.00 bps',Value)

  else

    if Value < OneMB then

      Result := FormatFloat('#,##0.00 Kbps', Value / OneKB)

    else

      if Value < OneGB then

        Result := FormatFloat('#,##0.0 Mbps', Value / OneMB)

end;

7. Tambahkan timer dan masukan coding berikut

procedure TForm1.Timer1Timer(Sender: TObject);
var
newname: string ;
    curxmit, currecv, interval: DWORD ;
begin
newname := MagRasCon.GetConnection ;
if newname = '' then
begin
if ConnHandle = 0 then exit ;
        ConnHandle := 0 ;
        exit ;
    end ;
if ConnHandle <> MagRasCon.CurRASConn then
    begin
   ConnHandle := MagRasCon.CurRASConn ;
    ConnName := MagRasCon.CurConnName ;
        MagRasPer.ResetPerfStats ; // clear stats
        if MagRasOSVersion >= OSW2K then
        MagRasPer.PerfRasConn [1] := ConnHandle ;
LastXmit := MagRasPer.PerfXmitCur [0] ;
        LastRecv := MagRasPer.PerfRecvCur [0] ;
        LastTime := GetTickCount ;
end ;
    MagRasCon.CurrentStatusEx (ConnHandle, 0) ;
if LastState <> MagRasCon.ConnectState then
    begin
   LastState := MagRasCon.ConnectState ;
end ;
if (MagRasCon.ConnectState = RASCS_Connected) then
    begin
MagRasPer.GetPerfStats ;
        curxmit := MagRasPer.PerfXmitCur [0] - LastXmit ;
        currecv := MagRasPer.PerfRecvCur [0] - LastRecv ;
        interval := GetTickCount - LastTime ;
        LastXmit := MagRasPer.PerfXmitCur [0] ;
        LastRecv := MagRasPer.PerfRecvCur [0] ;
        LastTime := GetTickCount ;

sEdit1.Text := BytesToFriendlyString (MagRasPer.PerfXmitCur [0]);
sEdit2.Text := BytesToFriendlyString (MagRasPer.PerfRecvCur [0]);
end;
end;

8. Selesai.

Terima kasih telah membaca artikel Cara menampilkan total download dan total upload pada delphi 7 , selamat mencoba dan semoga bermanfaat.
Bagi yang berminat untuk melihat contoh Source Codenya bisa download DISINI atau DISINI

Baca Selengkapnya >>>

Download Video 8th Single JKT48 - Kaze wa Fuiteiru

[ DOWNLOAD VIDEO ]

---

[ DOWNLOAD BEHIND THE SCENES ]

Jika membutuhkan Pasword gunakan "BK-BlackKoala.blogspot.com" atau "BK-BlackKoala"

[ SUMBER ]

Baca Selengkapnya >>>