CARA MEMBUAT TEXT BERJALAN DI DELPHI 7 DENGAN SIMPEL

Kali Saya Akan Membagikan Ilmu CARA MEMBUAT TEXS BERJALAN DI DELPHI 7 DENGAN SIMPEL, Ikuti Tutor Yang Saya Buat Agar Tidak Eror Pas Di Run. Ok Langsung Aja Kita Praktekan :)

#ALAT YANG DIPERLUKAN#
1.-1 Panel
2.-1 Label
3.-1 Timer


#LANGKAH PERTAMA#
1.-Buka Delphi 7
2.-Tambahkan Componen di From1 Seperti Dibawah Ini:
   [ 1 Panel ], [ 1 Timer ] dan Tambahkan [ 1 Label ] di panel1
3.-Kosongkan Nama Panel Di Bagian Caption

4.-Ganti Nama Label Terserah Anda Di [Caption]

5.-Klik 1 Kali Pada Timer Dan Rubah Angka [Interval 1000] Menjadi 2

#LANGKAH KEDUA#
1.-Klik 2 Kali Pada Timer
2.-Isikan Code Dibawah ini Pada Timer:

Label1.Left:=Label1.Left-1;
if Label1.Left <1 then Label1.Left:=300;

#LANGKAH KETIGA#
1.-Klik Run / F9

2.-Selesai


NB: Untuk Menentukan Kecepatan Berjalan Anda Bisa Mengubah di Bagian Angka -1 dan Di Interval
    [ Lebih Besar Angkannya Maka Akan Lebih Cepat Jalannya]

Jika Masih Binggung Bisa Lihat Videonya Di Bawah Sini

Klik Disini

Jika Mau Copas Sertakan Sumbernya !!! OK OK OK OK OK

Creat By : Fatkhur Rozak

AKUN SSH GRATIS

Kali Ini Saya Akan Membagikan Akun SSH Gratis Tanpa Bayar Dan Udah Ane Test Satu Persatu Hasilnya Mengejutkan Yaitu Semuanya Work 100%, SSH Ini Buat Orang Yang Membutuhkan Atau Orang Yang Lagi Mencari Akun SSH Gratisan Tanpa Harus Beli SSH, SSH Yang Ane Bagikan Adalah SSH SG { Singapura }. Kata Ane Berbagi Itu Indah Jadi Akan Ane Bagikan Akun SSH SG Secara Gratis.

 !!! Harus Berusaha Sedikit Untuk Mendapatkannya!!! 

Saran Ane Sob:
 Oh ya Kalau Ada Yang Gratis Ngapain Harus Beli, Buang-Buang Duit Aja, Mending Duit nya Buat Ane Aja Untuk Mencari { BUG }. Wk,Wk,Wk,Wk :)

Bukti Akun SSH SG Work 100%

Jika Minta Password Bisa Pm FB Ane Dibawah Sini Atau Klik Disini

PM Disini :Fatkhur rozak 

Ok Langsung Aja Kalian Bisa Download Di Bawah Sini:   

1 SSH SG WORK [ 9  MEI  2015 ]
2 SSH SG WORK [ 9  MEI  2015 ]
3 SSH SG WORK [ 9  MEI  2015 ]
4 SSH SG WORK [ 9  MEI  2015 ]
5 SSH SG WORK [ 9  MEI  2015 ]

6 SSH SG WORK [ 9  MEI  2015 ]
7 SSH SG WORK [ 9  MEI  2015 ]
8 SSH SG WORK [ 9  MEI  2015 ]
9 SSH SG WORK [ 9  MEI  2015 ]
10 SSH SG WORK [ 9  MEI  2015 ]

11 SSH SG WORK [ 9  MEI  2015 ]
12 SSH SG WORK [ 9  MEI  2015 ]  
13 SSH SG WORK [ 9  MEI  2015 ]
14 SSH SG WORK [ 9  MEI  2015 ]
15 SSH SG WORK [ 9  MEI  2015 ]

16 SSH SG WORK [ 9  MEI  2015 ]
17 SSH SG WORK [ 9  MEI  2015 ]
18 SSH SG WORK [ 9  MEI  2015 ]
19 SSH SG WORK [ 9  MEI  2015 ]
20 SSH SG WORK [ 9  MEI  2015 ]

21 SSH SG WORK [ 9  MEI  2015 ]
22 SSH SG WORK [ 9  MEI  2015 ]
23 SSH SG WORK [ 9  MEI  2015 ]

Atau Download Single Link Di Bawah Sini :

SSH SG 9 Mei 2015

Note: Gunakan Dengan Bijak Agar Tidak Cepat Down Ok!!!

Creat By : Fatkhur Rozak

CARA MEMBUAT REFRESH APLIKASI DI DELPHI 7

Kali Ini Saya Akan Membagi Ilmu CARA MEMBUAT REFRESH APLIKASI DI DELPHI 7   Hasil Dari Utak-Atik Delphi 7 Yang Saya Pelajari, Semoga Bermanfaat Ilmu Yang Ane Berikan Ini Kepada Kalian [ AMIN ]. Langsung Aja Kita Praktekan. Simak baik** Agar Tidak Terjadi Eror.


#LANGKAH PERTAMA#
1.-Tmabahkan Mainmenu
  -Refresh Isi Di Caption

  -Kemudian Klik 2 kali
  -Isi Kode ini Tepat Dibawah Prosedure

 var
N: Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 100 do begin
 Left:= (TL-20) + (Random(30));
 Top := (TT-20) + (Random(30));
end;
Left := TL;
Top  := TT;
Form1.Hide;
Form1.Show;
end;

  -SELESAI

Note : Jika mau copas Sertakan Sumbernya

Jika Masih Binggun Bisa Lihat Video Dibawah Ini

DOWNLOAD DISINI

Creat By : Fatkhur Rozak

CARA MEMBUAT GAMBAR Di sBitBtn DI DELPHI 7

Ane Mau Berbagi Ilmu Lagi Nie Siapa Tau Ada Yang Lagi Mencari Ini "CARA MEMBUAT GAMBAR Di sBitBtn  DI DELPHI 7,  Ok Langsung Aja Kita Praktekan. Oh ya Sebelum Membuat Ini, Di Delphi 7 Kalian Sudah Harus Terinstal AlphaSkin Dulu. Kalau Belum Punya AlphaSkin 8.10 Jangan Khawatir Silahkan Download Dibawah sini :

AlphaSkin 8.10   Download Disini

Jika Kalian Sudah Punya Langsung Aja Kita Menuju Ke Tutor, Silahkan Simak Baik* Biar Sukses Project Yang Kalian Buat.

KOMPONEN YANG HARUS DI PERSIAPKAN
1. 1 sBitBtn


# LANGKAH PERTAMA #
1.-Klik Alpha Standard
  -Tambahkan 1 Buah "sBitBtn"

  -Caption Boleh diKosongkan atau Boleh Diberi Nama [Terserah Anda]
  -Cari Tulisan "Glyph" Di Properties
  -Klik Disebelahnya -> Klik Load

  -Cari Gambar -> Klik Gambar -> Klik Open

  -Jika sudah Klik Ok

  -Atur Ukuran Gambar
  -Kemudian Run

  -Selesai


NOTE : Jika Mau Copas Sertakan Sumbernya !!!

TERIMA KASIH :)

Jika Kalian Masih Kebinggungan Bisa Nonton Video Dibawah Sini

Tonton Disini

Creat By : Fatkhur rozak

CARA MEMBUAT JAM DIGITAL DI DELPHI 7

Kali Ini Saya Akan Berbagi ilmu Lagi Yang Ane Dapatkan Yaitu : CARA MEMBUAT JAM DIGITAL DI DELPHI 7 , Ok Langsung Aja Kita Mulai, Simak Baik* Tutor Dibawah Ini : 

KOMPONEN YANG DI PERLUKAN :
1. 1 LABEL
2. 1 TIMER

# LANGKAH PERTAMA #
1.-Buka Delphi 7
  -Tambahkan 1 Label

  -Tambahkan 1 Timer

# LANGKAH KEDUA #
2.-Klik 2 kali Pada Timer
  -Isi Code di Bawah Begin

Label1.caption:=TimetoStr(Now);

  -Kemudian Klik Run

  -Selesai

Note : Jika Mau Copas Sertakan Sumbernya !!!

Jika Masih Binggung Bisa Lihat Video Di Bawah Ini

Download Disini

Creat By : Fatkhur Rozak

CARA MEMBUAT LAMPU KEDIP BUAT INJECT DI DELPHI 7

Kali Ini Saya Akan Membagikan Ilmu Yang Ane Dapet Kemarin Yaitu : Cara Membuat Lampu Kedip Buat Inject Di Delphi 7, Langsung Aja Kita Pratekan Cermati, Ikuti Tutor Berikut Ini:

KOMPONEN YANG HARUS DISIAPKAN
1.-[ 2 Buah Shape]

#LANGKAH PERTAMA#
1.-Tambahkan 2 Shape Letaknya di [ Additional ]
   -Lihat Gambar Dibawah Ini :

-Tambahkan Code Dibawah Ini Tepat Di Bawah [ Type ]

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

       

#LANGKAH KEDUA#

2.-Tambahkan Code Dibawah ini Secara Manual:

procedure TForm1.LedBlinkUpload;

begin

shape1.Refresh;

if shape1.brush.color=clSilver then

begin

  shape1.brush.color:=$0007F513;

end else

begin

  shape1.brush.color:=clSilver;

end;

end;

procedure TForm1.LedBlinkDownload;

begin

shape2.Refresh;

if shape2.brush.color=clSilver then

begin

  shape2.brush.color:=$000404DD;

end else

begin

  shape2.brush.color:=clSilver;

end;

end;

#LANGKAH KETIGA#

3.-Tambahkan Code ini Di procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);

   begin

LedBlinkUpload;

  -Tambahkan Code Ini Di procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread);

LedBlinkDownload;

#LANGKAH KEEMPAT#
4.-Klik Run
  -Selesai


Note :  Ikuti Tutor Di Atas Dengan Benar Kalau Tidak Pasti Akan Eror!!!!

!!!!! Jika Mau Copas Sertakan Sumbernya !!!!!

Atau Bisa Lihat Langsung Video nya Dibawah Sini :

klik Disini

FB : KLIK DISINI
GRUP FB : KLIK DISINI
BLOG : KLIK DISINI
YOUTUBE : KLIK DISINI

Creat By: Fatkhur Rozak

CARA MEMBUAT FORM LOGIN DENGAN DELPHI 7

Kali Ini Saya Akan Membagi Ilmu Yang Saya Peroleh 1 Hari Yang Lalu Yaitu Cara Membuat Form Login Dengan Delphi 7, Form Login Ini Fungsinya Adalah Melindungi Data Yang Penting Yang Kita Buat Dengan Menggunakan Delphi 7, Pertama Kali Saya Membuat Form Login, Saya Pusing Tidak Tahu Coding nya, Saya Coba Cari Di  GOOGLE  Eh Ternyata Di Google Codingnya  Berbeda - Beda Dan  Menambah Pusing Kepala Ane, Singkat Cerita : Atas Pemahaman, Ketelitian, Keingginan, Dan Kesabaran Saya, Akhirnya Membuahkan Hasil Yang Memuaskan Saya Bisa Membuat Form Login Tersebut  Dengan Cara Memahami Dan Meneliti Coding Yang Berbeda Dari Yang Saya Cari Di Google.

 ITULAH PENGALAMAN SAYA MEMBUAT FORM LOGIN

OK Langsung Aja Kita Praktekan, Cermati Tutor Di Bawah Ini Ya BROOO  !!!!

#LANGKAH YANG HARUS KITA JALANKAN#

#LANGKAH PERTAMA#

1.-Buka  Delphi 7 Pasti Akan Muncul Form1

   -Tambahkan Kommpone Di Form1 Seperti Dibawah Ini :

   - 2 Label  : Letaknya Di Tap Standard

   - 2 Edit    : Letaknya Di Tap Standard

   - 2 Buton : Letaknya Di Tap Standard

   -Ganti Nama Kompone Di Caption Seperti Di Bawah Ini :

   - Label1  = (User Name )    - Edit1 = ( Kosongkan )     - Buton1  = ( LOGIN )               

   - Label2  = (Password   )     - Edit2 = ( Kosongkan )     - Buton2  = ( LOG OUT )

   - Lihat Gambar Di Bawah Ini :

#LANGKAH KEDUA#

2.-Klik 2 Kali Pada Buton1 ( LOGIN )

   -Tambahkan Code Seperti Gambar Di Bawah Ini :


var
a,b:string; //untuk mengetahui user dan pass
begin
a:='rozak'; //a adalah user
b:='1';     //b adalah pass
if (edit1.text=a) and (edit2.text=b) then //untuk menampilkan user dan pass
begin
edit1.Clear;//untuk menghapus User Name
edit2.Clear;//untuk menghapus Password
form2.show; //untuk menampilkan form2
form1.Hide; //untuk menyembunyikan form1
form1.Visible:=false; //untuk menampilkan form login kembali
end
else
begin
messagedlg('KASIHAN SEKALI ANDA TIDAK BISA LOGIN, HA HA HA HA', mtwarning,[mbok],0);  //untuk menampilkan peringatan jika salah memasukan user dan pass
end;

end;

   -Klik 2 Kali Pada Buton2 ( LOG OUT)

   -Tambahkan Code Seperti Gambar Di Bawah Ini :


application.Terminate; //untuk keluar aplikasi
end;


end.

#LANGKAH KETIGA#

3.-Buat Form Baru : Letaknya Di File > New > Form , Atau Bisa Klik Pada New  Form Sebelah Kiri     Run

   - Tambahkan Kompone Seperti Dibawah Ini :

   - 1 Label

   - 1 Buton

   - Ganti Nama Komponen Di Caption Tersebut Seperti Di Bawah Ini :

   - Label1  = ( BERHASIL LOGIN MASTER )

   - Buton1 = ( KEMBALI )

#LANGKAH KEEMPAT#

4.-Klik 2 Kali Pada Buton 1 ( KEMBALI)

   - Isi Code Seperti Gambar Di Bawah Ini :


form1.Visible:=true; //untuk menampilkan form login kembali
form2.Visible:=false; //untuk menampilkan form login kembali
end;


end.

#LANGKAH KELIMA#

5.-Klik Run / F9

   -SELESAI


INI PROJECT LATIHANNYA JIKA MAU DOWNLOAD DISINI

Note : Ikuti Tutor Tersebut Dengan Benar Jika Tidak Pasti Akan Eror!!!!!!

!!!!! @@@@ Jika Ingin Copas Sertakan Sumbernya YA Broooo @@@@ !!!!!

Creat By : Fatkhur Rozak

   

APLIKASI SCAN SSH MENGUNAKAN LAZY SSH

Saya Kali Ini Akan Membagikan Aplikasi Untuk Mendapatkan SSH Tanpa Harus Beli
Aplikasi ini Bernama LAZY SSH Yang Fungsinya Mendapatkan SSH Gratis

Langsung Aja Ambil Aplikasinya Dibawah Sini:

DOWNLOAD DI MARI BROO

Dan Cara Menggunakanya Bisa Lihat Gambar Di Bawah Sini :

SEKIAN

Creat By : FATKHUR ROZAK

SITUS PENYEDIA SSH GRATIS

KALI INI SAYA SHARE SITUS PENYEDIA SSH GRATIS BUAT  INTERNETAN

1. Fastssh.com

 2. Highssh.com

3. Createssh.com

4. Create.sshgoogle.com

ITULAH SITUS PENYEDIA AKUN SSH GRATIS

Creat By : Fatkhur Rozak

CARA MEMPERCANTIK INJECT DENGAN ALPHASKIN MENGUNAKAN DELPHI7

Kali ini saya akan berbagi ilmu kepada kalian ''CARA MEMPERCANTIK INJECT DENGAN ALPHASKIN'', AlphaSkin Adalah aplikasi yang berguna untuk memperindah / mempercantik sebuah tampilan aplikasi agar menjadi menarik.

AlphaSkin Download Disini
Langsung Aja Kita Praktekan....:)

#LANGKAH PERTAMA#
1.-Buka Project yang sedang dikerjakan atau Bisa membuat Aplikasi Baru

#LANGKAH KEDUA#

2.-Cari Tab Alpha Tools

  -Klik Alpha Tools dan Tambahkan {SkinManager} dan {SkinProvider}
  -Klik SkinManager cari {SkinDirectory} di properies
  -Klik kotak sebelahnya pilih skin lalu klik OK

#LANGKAH KETIGA#

3.-Kembali ke Properties cari {InternalSkins}
  -Klik Kotak sebelahnya
  -Klik {Add New} pilih Skin nya kemudian klik OK
  -Lalu close

#LANGKAH KEEMPAT#

4.-Kembali ke Properties cari {SkinName}
  -Klik kotak sebelahnya
  -Pilih Skin Sesuai keingginan anda

#LANGKAH KELIMA#

5.-Klik Project cari {build project1} dan klik
  -Klik run atau gambar segitiga yang warna hijau

 -SELESAI

 NI TUTOR VIDEO KALAU MASIH BINGGUNG

Klik Disini

NOTE : Kalau Mau Copas Sertakan Sumbernya !!!

Creat By : FatkhurRozak

FB             : https://www.facebook.com/fatkhur.rozak.925
GRUP FB  : Klik Disini
BLOG        : Klik Disini

CARA MENAMBAHKAN LINK BROWSER DI INJECT DENGAN DELPHI 7

Kali ini saya akan berbagi ilmu kepada kalin ''CARA MENAMBAHKAN LINK BROWSER DI INJECT DENGAN DELPHI 7'' Link tersebut berguna menghubungkan ke Link Browser ketika kalian menggekliknya, dan otomatis akan membuka tab baru di Browser yang kalian pakai.

Langsung Kita Praktekan Saja.......:)

#LANGKAH SATU#
1.-Tambahkan Buton yang berada di Tab {standard}
  -Cari {Caption} yang berada di properties
  -Klik kotak yang ada di sebelah Caption dan isi sesuka anda

  -Klik 2x pada Buton tersebut dan
  -masukan code ini tepat dibawah :procedure TForm1.Button5Click(Sender: TObject);
begin 

ShellExecute (0, 'Open', 'http://trikinternetgratisfatkhurrozakvps.blogspot.com/', '', '', SW_SHOWNORMAL);
end;

Note  : http://>> Boleh diganti sesuka anda

#LANGAKAH KEDUA#
2.-Masukan code ini di {uses}

ShellAPI

#LANGKAH KETIGA#
3.-Klik Project
  -Cari Build Project1 dan klik
  -Klik run atau klik gambar hijau segitiga
  -Project sudah jadi

NI TUTOR VIDEO NYA KALAU MASIH BINGGUNG

Klik Disini

''Note : Kalau Mau Copas Sertakan Sumbernya !!!''

 

TERIMAKASIH ATAS KUNJUNGANNYA

Creat By : Fatkhur Rozak

Facebook : https://www.facebook.com/fatkhur.rozak.925

Grup FB  : Klik Disini

Bloger     : Klik Disini

KUMPULAN SSH DAN INJECT

SSH DAN INJECT WORK 100% DI DEMAK / JATENG

Kali ini saya akan membagikan SSH gratis dari fastssh.com dan inject yang work semoga bermanfaat, dan gunakan Dengan Bijak.

!!!{Beda Sarung Beda Burung}!!!

Silahkan Download Dibawah Sini :

SSH Aktif 27-3 Maret 2015
1. Klik Disini Pass : rozak123
2. Klik Disini Pass : qaz123
3. Klik Disini Pass : 1
4. Klik Disini Pass : wsx123
5. Klik Disini Pass : edc123
6. Klik Disini Pass : rfv123
7. Versi Texs Download Disini
SSH Aktif 2-5 Maret 2015
1. Versi Texs Download Disini


Inject Yang Aktif
1.Download Disini atau Klik Disini

INJECT DAN SSH SUDAH ANE TEST WORK 100% DI JATENG LEBIH TEPATNYA DI DEMAK

APLIKASI AL-QUR'AN

Kali ini saya akan membagikan aplikasi Al-Qur'an + Audio nama Aplikasi nya adalah
"THE HOLLY QURAN", aplikasi ini memudahkan kalian untuk belajar membaca Al-Qur'an
Karena Al-Qur'an adalah Tuntunan Hidup Bagi Umat Islam.

Download Aplikasinya Di bawah sini:
The Holly Quran Part 1 Dwonload Disini
The Holly Quran Part 2 Download Disini
The Holly Quran Part 3 Download Disini
The Holly Quran Part 4 Download Disini
The Holly Quran Part 5 Download Disini
The Holly Quran Part 6 Download Disini
The Holly Quran Part 7 Download Disini


CARA INTALASI THE HOLLY QUR'AN

#LANGKAH PERTAMA#
1.-Simpan 7 file ke {drive D} / {Drive E} yang sudah kalian download tadi
  -Setelah kalian simpan di Drive D atau di Drive E kita lanjut kelangkah berikutnya

#LANGKAH KEDUA#
2.-Klik duoble pada The Holly Quran
  -Klik folder TheHolly Quran
  -Cari file Autorun.exe lalu Duoble klik
  -Biarkan sampai instalasi selesai
  -Setelah selesai instalasi kalian bisa mengunakan {THE HOLLY QURAN}

NOTE : Folder {The Holly Quran} tidak boleh di delet atau di pindahkan dari file yang kalian pindahkan di Drive D atau Drive E  karena akan terjadi eror dan tidak akan bisa di buka



CARA MENGUNAKAN THE HOLLY QURAN

#LANGKAH YANG HAARUS DI LAKUKAN#
1.-Cari aplikasi The Holly Quran yang berada di destop atau di program
  -Duoble klik gambar The Holly Quran akan muncul seperti gambar di bawah ini
  -Klik Reeitation seperti gambar berikut
  -Klik play atau gambar segitiga untuk menjalankanya lihat gambar ini

2.-Cara menganti surat Bisa Kalian Lakukan Di bawah ini :
  -Klik {Anak Panah yang serong ke kanan atas}
  -Cari tulisan Chapter dan Klik di sebelahnya untuk menganti surat yang di ingginkan
  -Kemudian Klik OK
  -Lalu Klik play atau gambar segitiga

SELAMAT SEKARANG KALIAN BISA MENIKMATI APLIKASI THE HOLLY QURAN
SEMOGA MEMPERMUDAHKAN KALIAN DALAM MEMBACA AL-QUR'AN.

CARA MENAMPILKAN NAMA KOMPUTER DAN IP ADDRES DI INJECT DELPHI 7

Kali ini saya akan memberikan tutor cara menampilkan nama Computer dan IP Addres di Inject,
agar Nama Computer dan IP Addres bisa tampil di Inject Ada 7 Langkah yang harus kita kerjakan,



ALAT YANG DIBUTUHKAN
1.Software Delphi 7                                   Download Disini
2.Inject                                                     Download Disini
3.Kemauan
4.Kesabaran
5.Kopi Secangkir dan Makanan ringan

Ok langsung aja kita praktekan:)

#LANGKAH PERTAMA#
1.-Buka Software Delphi 7
  -Buka Inject yang sudah Ane Kasih di atas atau
  -Inject buatan kamu sebelumnya
  Sekarang Perhatikan Dengan Baik
  -Tambahkan Status bar dengan cara Double klik Status bar yang berada di {tab Win32} seprti gambar dibawah

#LANGKAH KEDUA#
2.-Bagi Status bar menjadi 2 form / 2 panel
  -Caranya double klik Status bar yang sudah anda tambahkan di langkah 1
  -Klik Add new 2x dan harus seperti gambar di bawah ini

#LANGKAH KETIGA#
3.-Sekarang tinggal melakukan coding
  -Tambahkan Winsock di uses seperti gambar di bawah ini

#LANGKAH KEEMPAT#
4.-Cari tulisan ini {$R *.dfm} 
  -Tambahkan code dibawah ini Tepat dibawahnya {$R *.dfm}

  function GetIPFromHost (var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN      :WSAErr:='WSAENetDown';
WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;

#LANGKAH KELIMA#
5.-Tambahkan Timer / Gambar Jam yang berada di {tab System}
  -Caranya dengan Double Klik Timer / gambar jam seperti gambar berikut

#LANGKAH KEENAM#
6.-Double Klik Timer / gambar jam yang sudah anda tambahkan
  -Masukan code ini di atas bagin

 var Host, IP, Err: string;

  -Dan masukan kode ini di bawah begin

 if GetIPFromHost(Host, IP, Err) then begin
statusbar1.Panels[0].Text:=Host  ;
statusbar1.Panels[1].Text:=IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);

#LANGKAH KETUJUH#
7.-Klik ran / gambar segi tiga jika sudah benar akan tampak gambar  seperti di bawah ini

Note : Jika Tidak Muncul Nama Computer Dan IP Addres mungkin ada yang kurang / salah memasukan code nya, Silahkan Ulangi Lagi.

TUTOR VEDEO CARA MENAMPILKAN IP DI INJECT DENGAN DELPHI 7

Klik Disini

CREAT BY : FATKHUR ROZAK

FB                   : https://www.facebook.com/fatkhur.rozak.925
GRUP FB         : Klik Disini
BLOG              : Klik Disini


Itulah TUTORIAL Dalam Menampilkan Nama Computer dan IP Addres
Terimakasih Telah Membaca Dan Mengunjungi Blog TRIK INTERNET GRATIS