Mempercantik Tampilan applikasi Delphi dengan Multi Select Skin Delphi Mempercantik Tampilan applikasi Delphi dengan Multi Select Skin Delphi

1 Sskinmanager ( alpha tools )

1 ComboBox

sebelumnya atur dulu skin default untuk Project sobat.

lalu klik 2x pada comboBox dan masukan code berikut :

 

Code:
sSkinManager1.SkinName:=sComboBox1.Text
atau
sSkinManager1.SkinName:=ComboBox1.Text

sesuaikan dengan comboBox yang nt pakai sob

Selanjutnya klik 2x pada SskinManager dan addnew skin yang sobat ingin masukan ke list skin comboBox sobat.

jangan lupa masukan juga skin default yang nt pakai sob

terakir setting string pada comboBox nama sesuai dengan nama yang ada pada sSkinmanager.
di tutorial ini ane make yang dibwah ini sob, kalo nt nt mah terserah mau make skin apa aja bisa.

Dan ini hasilnya sob :v

sampe sini dulu tutorial kali ini ntr share" lagi deh.
kalo udah berhasil jangan lupa sob ninggalin jejak di kolom komentar di bawah postingan ini yee...
dan kalo masih belum faham juga dengan tutorial di atas bisa langsung pm ane via fb, nanya di komentar bawah juga boleh sob.... :v

Read More --►

Source Delphi 7 - Menampilkan Download Dan Upload Digital Di Injek Delphi Source Delphi 7 - Menampilkan Download Dan Upload Digital Di Injek Delphi

Copas Aja source yg ane kasih dibawah ini sob:

Step 1:
tambahkan variabel

    Quote:var
    Download : Integer;
    Upload : Integer;


Step 2 :

    Quote:Kemudian, tambahkan di bagian Execute:
    upload:= upload+Length(AThread.NetData);

    sama bagian OutBound:
    download:= download+Length(AThread.NetData);


Step 3 :
kemudian tambahkan komponen VrNum(VrLcd)
tambahkan 2 komponen tersebut

tambahkan code di bwah di bagian timer :

    Quote:downText.Caption := FormatFloat('0',download/1024);
    uploadText.Caption := FormatFloat('0',upload/1024);
    VrNum1.Value := StrToInt (downText.Caption);
    VrNum2.Value := StrToInt (uploadText.Caption);
    download := 0;
    upload := 0; 

Read More --►

Cara Membuat Expired Data Aplikasi Untuk Delpi 7 Cara Membuat Expired Data Aplikasi Untuk Delpi 7

 Pada tutorial kali ini saya akan membahas mengenai Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7.Maksudnya udah ngerti kan !? Kalau kita membuat aplikasi yang bertujuan untuk komersil dan di gunakan secara massal , maka kita harus membuat masa trial pada aplikasi kita.Nantinya bila sudah expired , maka user akan diminta untuk registrasi untuk menggunakannya lagi.Bungung !? Sama.Maka dari itu , lebih baik kita contoh kan saja dengan praktek.

Cara kerjanya seperti ini , bila user menjalankan aplikasi sebelum masa expired , maka akan tampil pesan bahwa masa expired aplikasi tinggal beberapa hari lagi.Namun bila user menjalankan aplikasi setelah lewat masa expired , maka aplikasi tidak akan bisa di jalankan.Lalu tunggu apalagi !? Silahkan buka borland Delphi 7 anda.Kita akan membuat procedure dengan nama expired.Ketikan kode berikut setelah {$R *.dfm}

1. procedure expired;  
2. var tahun , bulan , tanggal  , sisa:Integer;  
3.     tempo : TDate;  
4. begin  
5.   tahun:=2011;  // tahun expired  
6.   bulan:=07;    //bulan expired  
7.   tanggal:=30;  //tanggal expired  
8.   //membandingkan tanggal hari ini dengan tanggal expired  
9.    if (Date >= EncodeDate(tahun, bulan, tanggal)) then  
10.       begin  
11.         ShowMessage('Masa trial software anda telah habis , silahkan registrasi');  
12.         Application.Terminate;  
13.       end  
14.    else  
15.     begin  
16.     //mencari selisih tanggal antara tanggal expired , dan tanggal hari ini  
17.       tempo:=EncodeDate(tahun , bulan , tanggal);  
18.       sisa:=trunc(tempo-date);  
19.       ShowMessage('Masa trial anda tersisa ' + IntToStr(sisa) +' Hari lagi' );  
20.     end;  
21. end; 

Untuk tanggal expired , anda bisa memodifikasinya dengan mencari tau tanggal kapan pertama kali aplikasi anda di jalankan dengan memanfaatkan fungsi dari registry.Anda bisa melihatnya DISINI.

Okey , setelah procedure expired dibuat maka anda tinggal memanggilnya pada form1 event on activate.Ketikan kodenya seperti di bawah ini.

1. procedure TForm1.FormActivate(Sender: TObject);  
2. begin  
3.   expired;  
4. end;  

Coba jalankan aplikasi anda.Atur-atur kembali tanggal expired yang di tulis tadi untuk mengecek apakah berfungsi dengan benar atau tidak.Sekian postingan kali ini semoga bermanfaat.

Read More --►

Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7 Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7

Selamat pagi sobat cyberbintauna , dikesempatan pagi ini saya akan share Cara Menulis Dan Membaca String Pada Registri Dengan Delpi 7.Dan seperti judul di atas tutorial kali ini akan membahas mengenai cara menggunakan registry pada Delphi 7.Spesifiknya , cara menuliskan string dan membacanya yang tersimpan pada registry.Okey , sebelum lanjut mungkin ada baiknya kita tau apa itu registry.Dalam pemahaman IMSO (In My Sotoy Opinion :D ) , registry merupakan databasenya Sistem Operasi , dalam hal ini windows.Ibarat kata , registry adalah vault untuk menyimpan informasi yang di tulis oleh SO.Biasanya berisi konfigurasi mengenai sebuah software.Misalnya expired date pada trial software.Ya begitu lah , lebih jelas dan afdolnya cari di wiki aja deh.

Nah kali ini , saya akan membahas mengenai cara menyimpan string pada registry.Untuk apa kita belajar registry !?Pertanyaan yang bagus (yang nanya itu kan saya -,-").Bayangkan ketika kita membuat suatu program , lalu kita merubah konfigurasi program tersebut misalnya jenis font yang semula Arial ingin kita ubah menjadi Comic Sans pada saat run time.Konfigurasi tersebut akan hilang bila program di terminate.Lalu bagaimana caranya supaya konfigurasi tersebut tidak hilang !? Pertanyaan yang bagus (yang nanya saya lagi kan -_-") , itulah gunanya kita belajar registry :D

Flownya seperti ini.Kita akan membuat program yang berfungsi untuk menuliskan string pada registry.Lalu nantinya string tersebut di baca lalu di terapkan pada komponen label.Belibet yak !? Ikutin aja deh tutorialnya.

Buka delphi anda , dan pada form1 tambahkan 2 komponen button , lalu 1 komponen label dan 1 komponen edit.Lihat deh penampakan gambar di bawah

Okey , its time for koding.Jangan lupa , tambahkan registry pada klausa uses.Kita akan membuat 1 buah prosedure untuk menulis registry dan 1 buah function untuk membaca registry.Udah tau kan perbedaan function dan procedure itu apa !?For now , just type the pascal object script below :

function bacaReg (regKey,fieldTeks : String) : string; 
Var 
  Reg : TRegistry; 
begin 
//Membuat object Registry 
Reg := TRegistry.Create; 
with Reg do 
 begin 
  //Mengeset tujuan registry sesuai yang kita inginkan 
  RootKey:=HKEY_LOCAL_MACHINE; 
  //Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya 
  if OpenKey(regKey,true) then 
   begin 
    //Jika fieldTeks tersedia 
    if ValueExists(fieldTeks) then 
      //Membaca nila dari fieldTeks 
       result := ReadString(fieldTeks) 
    else 
      ShowMessage(fieldTeks+' Tidak tersedia pada'+regKey); 
   end 
   else 
   //Jika error terjadi ketika kita menulis pada registry 
   ShowMessage('Error membuka/membuat : '+regKey); 
   CloseKey; 
 end; 
end;  

Okey , itu fungsi untuk membaca pada registry.Selanjutnya kita akan membuat prosedure untuk menulisnya:

Procedure tulisReg(keyReg,fieldTeks,nilaiTeks : String); 
Var 
  Reg : TRegistry; 
begin 
  //Buat objek registry lagi 
  Reg := TRegistry.Create; 
  with Reg do 
  begin 
  //Mengeset tujuan registry sesuai yang kita inginkan , lagi 
  RootKey:=HKEY_LOCAL_MACHINE; 
  //Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya , lagi 
  if OpenKey(keyReg,true) then 
 //Gak perlu ngecek field lagi , karena kita akan membuatnya dengan memasukan nilaiTeks 
    Writestring(fieldTeks,nilaiTeks) 
  else 
   //Jika error terjadi ketika kita menulis pada registry , lagi 
   ShowMessage('Error membuka/membuat :'+keyReg); 
   CloseKey; 
 end; 
end;  

Double-klik button tulis lalu ketikan kode berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin  tulisReg('SOFTWARE\programSaya','fieldTeksSaya',Edit1.Text);
end;  

Lalu double-klik button baca dan ketikan (lagi) kode berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
 Label1.Caption := bacaReg('SOFTWARE\programSaya','fieldTeksSaya');
end; 

Jalankan program anda , lalu ketikan sesuatu pada edit1.Setalah itu tekan button tulis.Selanjutnya tekan button baca.Maka label1.caption akan sesuai dengan apa yang anda tulis.Gak aneh ya !?Coba keluar dari program lalu jalankan lagi.Sekarang , coba tekan langsung button baca , label1.caption  berubah kan sesuai dengan apa yang anda tulis sebelum program di terminate !? Sampai disini , anda ngerti kan cara menggunakan registry walaupun masih sangat sederhana.

Sekian tutorial kali ini , semoga bermanfaat.

Read More --►

Auto Run Administrator Diprogram Delphi Auto Run Administrator Diprogram Delphi

Terkadang dalam membangun sebuah Aplikasi kita perlu menjalankan Aplikasi yang kita bangun dengan akses Administrator di Windows. Suatu misal untuk menjalankan perintah-perintah yang membutuhkan akses administrator semisal menghentikan service yang sedang berjalan atau menjalankan sebuah service. Disini saya akan coba berbagi cara Membuat aplikasi kita dijalankan dengan level Administrator.

1. Kita memerlukan dua buah file manifest dan file rc kedua file tersebut dapat anda Download disini

2. Extrack File tersebut ke direktori D:\  (terserah mau taru dimana saja)


3. Selanjutnya kita akan membuat sebuah File RES dengan memanfaatkan Tools brcc32

4. Buka Command Prompt dan Masuk ke Direktory Folder Hasil Ekstrak File (Step 2) kemudian ketikan perintah brcc32 ReqAdmin.rc

5. akan terbentuk sebuah file baru dengan nama ReqAdmin.res. Copy Semua File tersebut kedalam Folder Projek anda lalu Tambahkan code {$R 'ReqAdmin.res'} kedalam projek anda seperti gambar dibawah ini

6. Compile Projek Anda dengan menekan CTRL+F9 (Jangan di Run / F9)

7. Lihat Hasil Compile kemudian Coba Jalankan. Jika anda menggunakan komponen XPMan kemungkinan tidak akan berhasil silahkan hapus komponen tersebut dari form dan uses projek anda.

8. sekian dan terima kasih semoga sukses :D

Read More --►

Source Code Injek ALL-SC - Delphi 7 Source Code Injek ALL-SC - Delphi 7

Assalamualaikkum Warohmatullahi Wabarokaatuh

Kembali lagi saya membagikan Source Code untuk injek Free Internet

Sourcode ini berbeda dengan Source sebelumnya.

Source Code ini saya bagikan untuk belajar dan bukan untuk diperjual-belikan.

Jika terdapat seseorang yang jual-belikan, untunglah dia.

Yang perlu kalian lakukan pertama menginstall komponen Alphaskin dan Tambahkan Lib di Library.

Dan Kompenen-Komponen Berikut ini :

Download Delphi 7
Download Lib

Download Alphaskin

Download Sourcode Injek No Kuota No Pulsa

Sumber Artikel asli dari yang punya

Read More --►

Free Download Delphi7 Lite Full Edition Free Download Delphi7 Lite Full Edition

Delphi7 Lite Full Edition.adalah software pembuat aplikasi, dan berfungsi untuk pemograman aplikasi visual, hampir sama dengan software yang saya share sebelumnya yaitu Turbo pascal 7.1, hanya saja software ini lebih  comprehenship, jadi kalo untuk programmer amatiran kayaknya lebih bagus memilih software yang lebih ringan, tapi bagi yang berminat mencoba, silahkan di download  Delphi7 Lite Full Edition dimari.

Supported win7

XDelphi7 Lite Full Edition

Delphi7 Lite Full Edition Server 1 [ 76.51 MB ] on dropbox

Hhihihi Pumpung gratis coy..

Keyword : Borland Delphi, free Download Delphi, delphi aplha control, pemogramanan delphi.

Read More --►

Download Delphi 7 Download Delphi 7

Assalamualaikkum Warohmatullahi Wabarokaatuh

seoarang programer tentunya sudah tidak asing lagi dengan sofware yang satu ini.

kegunaan software ini bagi seorang programer sangat banyak.

ok disini saya tidak akan membahas kegunaan dari program ini, kalo agan penasaran sama kegunaan software yang satru ini, silakan langsung di search aja ke mesin pencari kesayangan agan seperti google,yahoo atau bing saya hanya memberikan link buat mendownload softwarenya. 

Delphi 7 ini sudah full beserta key aktivasinya.

Silahkan langsung saja agan sedot delphi 7 ini

SERIAL
6AKD-PD29Q9-RDF?JQ-X65Z
QX8-EEC

Link Download1
Link Download2

Size : 273 Mb

Read More --►