Jam

unit Unit1;

interface

uses
Windows, SysUtils, Graphics, Forms, ExtCtrls, Classes;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ By : Zephio
Bikin Jam Unik tp jelek }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1 do
//------------------------------------------------------------------------------>
// Lingkar Jam
Canvas.Brush.Color := CLTeal;
Canvas.Pen.Color := ClBlue;
Canvas.Ellipse(0, 25, ClientWidth, ClientHeight Div 2);
Canvas.Brush.Color := clFuchsia;
Canvas.Ellipse(0, 25, ClientWidth - 10, ClientHeight Div 2 - 10);
//------------------------------------------------------------------------------>
// Per Detik
Canvas.Pen.Color := clBlue;
Canvas.MoveTo(StrToInt(FormatDateTime('ss', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('ss', Now)),ClientHeight Div 2 - 15);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clBlue;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('ss', Now)), ClientHeight Div 2 - 15, FormatDateTime('ss', Now));
//------------------------------------------------------------------------------>
// Per Menit
Canvas.Pen.Color := clRed;
Canvas.MoveTo(StrToInt(FormatDateTime('nn', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('nn', Now)),ClientHeight Div 2 - 30);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clRed;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('nn', Now)), ClientHeight Div 2 - 30, FormatDateTime('nn', Now));
//------------------------------------------------------------------------------>
//Per Jam
Canvas.Pen.Color := clBlack;
Canvas.MoveTo(StrToInt(FormatDateTime('hh', Now)),25);
Canvas.LineTo(StrToInt(FormatDateTime('hh', Now)), ClientHeight Div 2 - 45);
//------------------------------------------------------------------------------>
Canvas.Font.Color := clBlack;
Canvas.Font.Style := [fsBold];
SetBkMode(Canvas.Handle,TRANSPARENT);
Canvas.TextOut(StrToInt(FormatDateTime('hh', Now)), ClientHeight Div 2 - 45, FormatDateTime('hh', Now));
//------------------------------------------------------------------------------>
// Pesan
Canvas.Brush.Style := BSClear;
Canvas.Font.Color := CLRed;
Canvas.Font.Size := 12;
Canvas.TextOut(ClientWidth Div 3 + 15, 0, 'Clock');
Canvas.Font.Color := CLBlue;
Canvas.Font.Size := 12;
Canvas.TextOut(ClientWidth Div 5, 140, 'Created By : Zephio');
//------------------------------------------------------------------------------>
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := 'ZS Clock';
Form1.Height := 280;
Form1.Width := 256;
DoubleBuffered := true;
end;

end.

Transparent Form

unit Unit1;

interface

uses
Windows, Graphics, Forms;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ By : Zephio
Membuat Form Tembus Pandang dgn Canvas}
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1.Canvas do
begin
Brush.Style := BSClear;
Brush.Color := clFuchsia;
Pen.Color := ClYellow;
Rectangle(0 , 0, Form1.ClientWidth, Form1.ClientHeight);
Rectangle(10, 10, Form1.ClientWidth - 10, Form1.ClientHeight - 10);
Rectangle(20, 20, Form1.ClientWidth - 20, Form1.ClientHeight - 20);
Rectangle(30, 30, Form1.ClientWidth - 30, Form1.ClientHeight - 30);
Rectangle(40, 40, Form1.ClientWidth - 40, Form1.ClientHeight - 40);
Rectangle(50, 50, Form1.ClientWidth - 50, Form1.ClientHeight - 50);
Rectangle(60, 60, Form1.ClientWidth - 60, Form1.ClientHeight - 60);
Rectangle(70, 70, Form1.ClientWidth - 70, Form1.ClientHeight - 70);
Rectangle(80, 80, Form1.ClientWidth - 80, Form1.ClientHeight - 80);
Rectangle(90, 90, Form1.ClientWidth - 90, Form1.ClientHeight - 90);
Rectangle(100, 100, Form1.ClientWidth - 100, Form1.ClientHeight - 100);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := 'ZS Form';
end;

end.

Animasi Form

unit Unit1;

interface

uses
SysUtils, Forms, ExtCtrls, Classes;

type
TForm1 = class(TForm)
T1: TTimer;
procedure FormCreate(Sender: TObject);
procedure T1Timer(Sender: TObject);
private
{ Created By : Zephio }
public
{ Title : Anime Form }
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Tag := 40; // Set Form1.Tag = 40, pembatasan Minimal 40, jk dr 0 kelamaan!...
end;

procedure TForm1.T1Timer(Sender: TObject);
begin
Tag := Tag + 1; //kalk 40..300
Width := Tag * 2; //Lebar 300 x 2 = 600
Height := Tag; //Tinggi 300
Caption := 'Time : '+IntToStr(Tag)+' Width : '+IntToStr(Width)+' Height : '+IntToStr(Height);
if Tag = 300 then // jk value Tag(40..300) = 300 (Penentuan value Maximal) maka Timer1 = Disable/Tidak Aktif
begin
T1.Enabled := false;
Caption := 'Anime Form, By : Zephio, Form Status : Ready';
end;

end;

end.

Check Nilai 2

unit Unit1;

interface

uses
Windows, SysUtils, Graphics, Forms, StdCtrls, ExtCtrls, Controls, Classes;

type
TForm1 = class(TForm)
// Componnent yg diperlukan----------------------------------------------------->
E1: TEdit;
S1: TShape;
procedure E1Change(Sender: TObject);
private
{ By : Zephio
Check Nilai antara 1..100 }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation



{$R *.dfm}

procedure TForm1.E1Change(Sender: TObject);
var
I : Integer;
begin
E1.MaxLength := 3; //Batas Maximal Input adalah 3 Digit / [0..999]
I := StrToInt(E1.Text); //I = Input Nilai
case I of
// Dengan Text
1..20 : Caption := 'E = Sangat Payah'; // Jika Input Antara 1 hingga 20 maka tampilkan Pesan E
21..40 : Caption := 'D = Payah'; // Jika Input Antara 21 hingga 40 maka tampilkan Pesan D
41..60 : Caption := 'C = Lumayan'; // Jika Input Antara 41 hingga 60 maka tampilkan Pesan C
61..80 : Caption := 'B = Bagus'; // Jika Input Antara 61 hingga 80 maka tampilkan Pesan B
81..100 : Caption := 'A = Sempurna'; // Jika Input Antara 81 hingga 100 maka tampilkan Pesan A
0, 101..999 : Caption := '? = Diluar Nilai'; // Jika Input adalah 0 Antara 101 hingga 999 maka Pengecualian
else
Caption := '';
end;
case I of
// Dengan Color
1..20 : S1.Brush.Color := ClRed;
21..40 : S1.Brush.Color := clFuchsia;
41..60 : S1.Brush.Color := ClYellow;
61..80 : S1.Brush.Color := ClBlue;
81..100 : S1.Brush.Color := ClGreen;
0, 101..MaxInt : S1.Brush.Color := ClBlack;
else
S1.Brush.Color := ClWhite;
end;
end;

end.

Penghitung Nilai [4 Rega]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
//----------- Componnent yg dipakai--------------------------------------------->
Edit1: TEdit;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Shape1: TShape;
Label2: TLabel;
//----------- Componnent yg dipakai--------------------------------------------->
procedure SpeedButton1Click(Sender: TObject);
private
{ Create By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I : Integer;
begin
I := StrToInt(Edit1.Text);
if (I <= 20) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClRed;
Label2.Caption := 'E = Sangat Payah';
Label2.Font.Color := ClRed
end
else
if (I <= 40) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClYellow;
Label2.Caption := 'D = Payah';
Label2.Font.Color := ClYellow
end
else
if (I <= 60) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClBlack;
Label2.Caption := 'C = Cukup';
Label2.Font.Color := ClBlack
end
else
if (I <= 80) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClBlue;
Label2.Caption := 'B = Bagus';
Label2.Font.Color := ClBlue
end
else
if (I <= 100) then
begin
Shape1.Brush.Style := BSSolid;
Shape1.Brush.Color := ClGreen;
Label2.Caption := 'A = Sangat Bagus';
Label2.Font.Color := ClGreen;
end;
end;
end.
DL SC : Click Here

Time & Date

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Timer1: TTimer;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
procedure Timer1Timer(Sender: TObject);
private
{ By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


function GetCurrentDateTime: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := DateToStr(GetCurrentDateTime);
Edit2.Text := DateToStr(Now);
Edit3.Text := DateToStr(Date);
Edit4.Text := TimeToStr(Now);
Edit5.Text := TimeToStr(Time);
Edit6.Text := TimeToStr(GetCurrentDateTime);
Edit7.Text := FormatDateTime('dddd dd mmmmm YYYY', Now);
Edit8.Text := FormatDateTime('dddd', Now);
Edit9.Text := FormatDateTime('dd', Now);
Edit10.Text := FormatDateTime('mmmmm', Now);
Edit11.Text := FormatDateTime('YYYY', Now);
Edit12.Text := FormatDateTime('nn:ss.zzz', Now);
Edit13.Text := FormatDateTime('nn', Now);
Edit14.Text := FormatDateTime('ss', Now);
Edit15.Text := FormatDateTime('zzz', Now);

end;

end.

Language Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2, Buttons, Menus, IniFiles, xmldom, XMLIntf,
msxmldom, XMLDoc, ComCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
SaveAs1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Language1: TMenuItem;
Indonesian1: TMenuItem;
English1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Email1: TMenuItem;
Websit1: TMenuItem;
StatusBar1: TStatusBar;
Norge1: TMenuItem;
N2: TMenuItem;
procedure New1Click(Sender: TObject);
procedure English1Click(Sender: TObject);
procedure Indonesian1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Email1Click(Sender: TObject);
procedure Websit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Norge1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;
Lang : String;
implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.English1Click(Sender: TObject);
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'English';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','English');
finally
Ini.Free;
end;
end;

procedure TForm1.Indonesian1Click(Sender: TObject);
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'Bahasa Indonesia';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Bahasa Indonesia') ;
finally
Ini.Free;
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if not SaveDialog1.Execute then
Exit;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then
Exit;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Email1Click(Sender: TObject);
begin
Email;
end;

procedure TForm1.Websit1Click(Sender: TObject);
begin
Web;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Lang := Ini.ReadString('Copyright © 2009, Zephio Soft.','Language','') ;
StatusBar1.Panels[1].Text := Lang;
finally
Ini.Free;
if StatusBar1.Panels[1].Text = 'Bahasa Indonesia' then
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'English' then
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'Norge' then
begin
Nor;
Norge1.Checked := true;
Indonesian1.Checked := false;
English1.Checked := false
end
else
begin
StatusBar1.Panels[1].Text := 'English';
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end;

end;

end;

procedure TForm1.Norge1Click(Sender: TObject);
begin
Nor;
Norge1.Checked := true;
English1.Checked := false;
Indonesian1.Checked := false;
StatusBar1.Panels[1].Text := 'Norge';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Norge') ;
finally
Ini.Free;
end;
end;

end.

//-------------------------------------------------->

unit Unit2;

interface

procedure Ind;
procedure Eng;
procedure Nor;
procedure Web;
procedure Email;

implementation


Uses
Unit1, ShellApi, Windows, SysUtils;

procedure Ind;
begin
Form1.File1.Caption := 'Berkas';
Form1.New1.Caption := 'Baru';
Form1.Open1.Caption := 'Buka';
Form1.SaveAs1.Caption := 'Simpan Sebagai';
Form1.Exit1.Caption := 'Keluar';
Form1.Language1.Caption := 'Bahasa';
Form1.English1.Caption := 'Inggris';
Form1.Indonesian1.Caption := 'Indonesia';
Form1.Norge1.Caption := 'Norwegia';
end;

procedure Eng;
begin
Form1.File1.Caption := 'File';
Form1.New1.Caption := 'New File';
Form1.Open1.Caption := 'Open';
Form1.SaveAs1.Caption := 'Save As';
Form1.Exit1.Caption := 'Exit';
Form1.Language1.Caption := 'Language';
Form1.English1.Caption := 'English';
Form1.Indonesian1.Caption := 'Indonesian';
Form1.Norge1.Caption := 'Norsk';
end;

procedure Nor;
begin
Form1.File1.Caption := 'fil...';
Form1.New1.Caption := 'Ny fil...';
Form1.Open1.Caption := 'Åpne...';
Form1.SaveAs1.Caption := 'Lagre som...';
Form1.Exit1.Caption := 'Avslutt';
Form1.Language1.Caption := 'Språk';
Form1.English1.Caption := 'Engelsk';
Form1.Indonesian1.Caption := 'Indonesisk';
Form1.Norge1.Caption := 'Norge';
end;

procedure Web;
var
St : Array [0..255] of char;
begin
ShellExecute(0,'open',StrPCopy(St,'http://myspace.com/zephio'),nil,nil,SW_SHOW);
end;

procedure Email;
begin
ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;
end.

DL SChttp://www.mediafire.com/?za6ql1x1bj1b540

Ini Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls, Buttons;

type
TForm1 = class(TForm)
EL: TEdit;
BO: TSpeedButton;
BS: TSpeedButton;
OD: TOpenDialog;
SD: TSaveDialog;
procedure BOClick(Sender: TObject);
procedure BSClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;

implementation

{$R *.dfm}


procedure TForm1.BOClick(Sender: TObject);
begin
if not OD.Execute then
Exit
else
Ini := TIniFile.Create(OD.FileName);
EL.Text := Ini.ReadString('ZS-2009','1','') ;
Ini.Free;
end;

procedure TForm1.BSClick(Sender: TObject);
begin
if not SD.Execute then
Exit;
Ini := TIniFile.Create(SD.FileName);
Ini.WriteString('ZS-2009','1',EL.Text);
Ini.Free;
end;

end.

DL SC

Pilih Nomor Genap

program zs;

{$APPTYPE CONSOLE}

uses
SysUtils;


var
I : Integer;
begin
for I := 1 to 10 do
if (I mod 2) > 0 then
WriteLn(I);
ReadLn;
end.

Membuat Chiptunes

Aku bikin Tutorial ini bukan Mengulas tentang, apa itu Chiptune, Extended Module atau Amiga/Atari Music yg sekarang sering dijumpa'i di Keygen, Key Maker, Patch, Crack2 Software.
Apa itu : *.xm  = Fast Tracker 2 Module
          *.mod = Pro Tracker Module
          *.it  = Impulse Tracker Module
          *.S3M = Scream Tracker Module
          *.sap, *.mtm,*.ay, *.v2m, *.okt, *.stm, *.sunvox, *.fc3, *.fc4 etc w pokok'e ada ratusan Jenis,
keterangan tsb isa dicari di Wiki/Google.

Banyak Pilihan Software Composser.
Misal :
       Open MPT, Mod Tracker, Schism Tracker, Fami Tracker, Renoise, Mad Tracker, Sun Vox, Milky Tracker, Nitro Trcker etc. Mulai gratis Sampai Berbayar isa dicari d google.
tapi aku Pakai Open MPT. ini link'e http://www.sourceforge.net/projects/modplug

Klau kamu terbiasa bikin Midi pakai pakai Electone Keyboard, tinggal Import midi Files Konversi ke Format yg diinginkan beres.
Aku punya Electone Keyboard tp g ada USB, Disket jd biasa ketik Pakai Keyboard PC. sampai Capek jari'e (,'') he...(3x).

Syarat Utama Harus Mengerti Not.
kalau g ngerti Not pakai Gitar bikin lagu pakai gitar petik dawai 1/1 catat di kertas.
coz aku jg g isa Not, tapi aku pakai Feeling klau kurasa Fals ditelinga isa dibeda'no.
Untuk Masalah Mengarang Lagu Cuma Inspirasi Masing2, tergantung keinginan.

A. Utk bikin Samples kita butuh Wave Editor misal Gold Wave atau Editor gratisan jg banyak.
B. atau Ambil Samples dari Keygen2, atau DL d : keygenmusic.net, http://modarchive.org/, aku punya puluhan ribu Chiptunes berbagai Extensi, tapi mau upload males.
C. Ketik Chiptunes Samples atau Sample.wav di google banyak kok.   

ok mulai!.
1. Klik File -> New ->Pilih Salah Satu.
2. Samples -> Import Sample
3. lihat gambar 1

4. Klik Patterns
Lihat gambar Berikut'e.

download bikinanku d: http://www.mediafire.com/?rjjbc447bapg8xc

done!...

jika masih bingung tanya sj.

Membuat Internet Browser

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Unit2, Unit3, ExtCtrls, ComCtrls, Sockets;

type
  TForm1 = class(TForm)
    MM: TMainMenu;
    File1: TMenuItem;
    NewTab1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    SB: TStatusBar;
    Timer1: TTimer;
    TC: TTcpClient;
    procedure NewTab1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NewTab1Click(Sender: TObject);
begin
   TForm2.Create(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.Title := 'ZS Browser';
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Bookmarks') then
   CreateDir(ExtractFilePath(Application.ExeName)+'Bookmarks');
   EB;
   EM;
   EF;
   ET;
   SB.Panels[2].Text := TC.LocalHostAddr;
   SB.Panels[3].Text := TC.LocalHostName;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   SB.Panels[0].Text := DateToStr(Date);
   SB.Panels[1].Text := TimeToStr(Time);
end;

end.

//---------------------------------------------------------------------->

{ Created By : Zephio
  URL :    http://amateur-guide.blogspot.com}
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, OleCtrls, SHDocVw, StdActns, ActnList, ExtCtrls, StdCtrls,
  ComCtrls, Buttons, FileCtrl, ShellApi;

type
  TForm2 = class(TForm)
    WB: TWebBrowser;
    MM: TMainMenu;
    File1: TMenuItem;
    NewTab1: TMenuItem;
    Close1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    AL: TActionList;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    Windows1: TMenuItem;
    ile1: TMenuItem;
    Cascade1: TMenuItem;
    Arrange1: TMenuItem;
    MinimizeAll1: TMenuItem;
    ile21: TMenuItem;
    PIU: TPanel;
    CB: TComboBox;
    OnEnterUrl1: TAction;
    PBM: TPanel;
    SpeedButton1: TSpeedButton;
    PHBM: TPanel;
    PHBC: TPanel;
    Bookmarks1: TMenuItem;
    N2: TMenuItem;
    PAB: TPanel;
    FLB: TFileListBox;
    EAT: TEdit;
    EAU: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    LH: TListBox;
    Panel4: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel3: TPanel;
    Panel5: TPanel;
    EGS: TEdit;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    View1: TMenuItem;
    Back1: TMenuItem;
    Forward1: TMenuItem;
    Reload1: TMenuItem;
    N3: TMenuItem;
    Stop1: TMenuItem;
    Info1: TMenuItem;
    Contact1: TMenuItem;
    Web1: TMenuItem;
    About1: TMenuItem;
    N4: TMenuItem;
    Open1: TMenuItem;
    OD: TOpenDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NewTab1Click(Sender: TObject);
    procedure OnEnterUrl1Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure PHBMMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PIUMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LBMMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PHBCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Bookmarks1Click(Sender: TObject);
    procedure PHBCClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FLBDblClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FLBClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure EATClick(Sender: TObject);
    procedure EAUClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure LHDblClick(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure EGSClick(Sender: TObject);
    procedure WBStatusTextChange(Sender: TObject; const Text: WideString);
    procedure WBTitleChange(Sender: TObject; const Text: WideString);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure LHClick(Sender: TObject);
    procedure Back1Click(Sender: TObject);
    procedure Forward1Click(Sender: TObject);
    procedure Reload1Click(Sender: TObject);
    procedure Stop1Click(Sender: TObject);
    procedure Contact1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Web1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure EUS(Sender: TObject);
    procedure EHS(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation




uses Unit1;

{$R *.dfm}

procedure TForm2.EHS(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('http://amateur-guide.blogspot.com');
   SL.Add('http://myspace.com/zephio');
   SL.Add('http://facebook.com/zephio85');
   SL.Add('http://twitter.com/zephio');
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'History') then
   CreateDir(ExtractFilePath(Application.ExeName)+'History');
if not FileExists(ExtractFilePath(Application.ExeName)+'History\Log.his') then
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   SL.Free;
end;

procedure TForm2.EUS(Sender: TObject);
begin
if CB.Text = '' then
   Exit
else
   WB.Navigate(CB.Text);
   EHS(Self);
   CB.Items.Add(CB.Text);
   CB.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Clear;
   LH.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := CaFree;
end;

procedure TForm2.NewTab1Click(Sender: TObject);
begin
   Form1.NewTab1Click(Self);
end;

procedure TForm2.OnEnterUrl1Execute(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.PHBMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   PHBC.Font.Color := ClBlack;
end;

procedure TForm2.PIUMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   PAB.Font.Color := ClBlack;
end;

procedure TForm2.LBMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   PIU.Font.Color := ClBlack;
end;

procedure TForm2.PHBCMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   PHBC.Font.Color := ClRed;
end;

procedure TForm2.Bookmarks1Click(Sender: TObject);
begin
   PBM.Visible := not PBM.Visible;
   Bookmarks1.Checked := not Bookmarks1.Checked;
end;

procedure TForm2.PHBCClick(Sender: TObject);
begin
   Bookmarks1Click(Self);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   EHS(Self);
   CB.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FLBDblClick(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
if not FileExists(ExtractFilePath(Application.ExeName)+'Bookmarks\'+FLB.Items[FLB.ItemIndex]) then
   Exit;
   SL.LoadFromFile(FLB.Items[FLB.ItemIndex]);
   CB.Text := Copy(SL.Strings[1], 5, Length(SL.Strings[1]));
   EUS(Self);
   SL.Free;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.FLBClick(Sender: TObject);
begin
   FLB.Hint := 'Visit '+ChangeFileExt(FLB.Items[FLB.ItemIndex],'');
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
if (EAU.Text = '') or
   (EAU.Text = 'Enter URL Here') then
   Exit
else
   SL.Add('[InternetShortcut]');
   SL.Add('URL='+EAU.Text);
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\'+EAT.Text+'.url');
   SL.Free;
   EAT.Text := 'Untitled';
   EAT.Font.Color := ClGray;
   EAU.Text := 'Enter URL Here';
   EAU.Font.Color := ClGray;
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
end;

procedure TForm2.EATClick(Sender: TObject);
begin
if EAT.Text <> 'Untitled' then
   Exit
else
   EAT.Clear;
   EAT.Font.Color := CLBlack;
end;

procedure TForm2.EAUClick(Sender: TObject);
begin
if EAU.Text <> 'Enter URL Here' then
   Exit
else
   EAU.Clear;
   EAU.Font.Color := CLBlack;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
if {(FLB.Selected[FLB.ItemIndex] = false) or }
   (FLB.Count = 0) then
   Exit
else
   DeleteFile(ExtractFilePath(Application.ExeName)+'BookMarks\'+FLB.Items[FLB.ItemIndex]);
if FLB.ItemIndex >= 0 then
     FLB.Items.Delete(FLB.ItemIndex);
   FLB.Directory := ExtractFilePath(Application.ExeName)+'BookMarks';
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
if LH.ItemIndex >= 0 then
     LH.Items.Delete(LH.ItemIndex);
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
var
   S : String;
begin
   S := Copy(CB.Text, 0, Length(CB.Text));
   LH.Clear;
   CB.Clear;
   DeleteFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   LH.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'History\Log.his');
   CB.Text := S;
end;

procedure TForm2.LHDblClick(Sender: TObject);
begin
if LH.Count = 0 then
   Exit
else
   CB.Text := LH.Items[LH.ItemIndex];
   EUS(Self);
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
if (EGS.Text = '') or
   (EGS.Text = 'Google Search Engine') then
   Exit
else
   CB.Text := 'http://www.google.com/search?q='+EGS.Text+'&num=10&ie=utf-8';
   EUS(Self);
end;

procedure TForm2.EGSClick(Sender: TObject);
begin
if EGS.Text <> 'Google Search Engine' then
   Exit
else
   EGS.Clear;
   EGS.Font.Color := CLBlack;
end;

procedure TForm2.WBStatusTextChange(Sender: TObject;
  const Text: WideString);
begin
   Form1.SB.Panels[4].Text := WB.LocationURL;
end;

procedure TForm2.WBTitleChange(Sender: TObject; const Text: WideString);
begin
   Caption := WB.LocationName;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
    WB.GoBack;
end;

procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
   WB.GoForward;
end;

procedure TForm2.SpeedButton9Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.SpeedButton10Click(Sender: TObject);
begin
   WB.Stop;
end;

procedure TForm2.LHClick(Sender: TObject);
begin
   LH.Hint := LH.Items[LH.ItemIndex];
end;

procedure TForm2.Back1Click(Sender: TObject);
begin
   WB.GoBack;
end;

procedure TForm2.Forward1Click(Sender: TObject);
begin
   WB.GoForward;
end;

procedure TForm2.Reload1Click(Sender: TObject);
begin
   EUS(Self);
end;

procedure TForm2.Stop1Click(Sender: TObject);
begin
   WB.Stop;
end;

procedure TForm2.Contact1Click(Sender: TObject);
begin
   ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;

procedure TForm2.About1Click(Sender: TObject);
begin
   ShowMessage('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'+#13+
               'Apps Name : ZS Browser'+#13+
               'Apps Type : Internet Browser'+#13+
               'Platform : Win XP'+#13+
               'Created By : Zephio'+#13+
               'URL : http://amateur-guide.blogspot.com'+#13+
               '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

procedure TForm2.Web1Click(Sender: TObject);
begin
   WB.Navigate('http://amateur-guide.blogspot.com');
end;

procedure TForm2.Open1Click(Sender: TObject);
begin
if not OD.Execute then
   Exit;
   CB.Text := OD.FileName;
   EUS(Self);
end;

procedure TForm2.Exit1Click(Sender: TObject);
begin
   Application.Terminate;
end;

end.


//---------------------------------------------------------------------->

unit Unit3;

interface


uses
   Forms, SysUtils, Classes;

procedure EB;
procedure EM;
procedure EF;
procedure ET;


implementation

procedure EB;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://amateur-guide.blogspot.com');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Blog Spot.url');
   SL.Free;
end;

procedure EM;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://myspace.com/zephio');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\My Space.url');
   SL.Free;
end;

procedure EF;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://facebook.com/zephio85');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Face Book.url');
   SL.Free;
end;

procedure ET;
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL=http://twitter.com/zephio');
   SL.SaveToFile(ExtractFilePath(Application.ExeName)+'Bookmarks\Twitter.url');
   SL.Free;
end;

end.
DL SC : http://www.mediafire.com/?c859v61ajfksj5e

Membuat Shortcut Internet

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SD: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ESF(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ESF(Sender: TObject);
var
   SL : TStringList;
begin
   SD.DefaultExt := '*.url';
   SD.Filter := 'Internet Shorcut|*.url';
if not SD.Execute then
   exit;
   SL := TStringList.Create;
   SL.Add('[InternetShortcut]');
   SL.Add('URL='+Edit1.Text);
   SL.SaveToFile(SD.FileName);
   SL.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text := 'http://amateur-guide.blogspot.com';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ESF(Self);
end;

end.

Membuat Kamus/Dictionary

By : Zephio
//Bagian Data
unit Data;

interface

Uses
   IniFiles, SysUtils, Forms;

procedure Translate;

var
   Ini : TIniFile;

implementation

procedure Translate;
begin
try
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
// Jawa - Indonesia
   Ini.WriteString('Zephio Soft - 2010', 'Koen', 'Kamu, Anda');
   Ini.WriteString('Zephio Soft - 2010', 'Aku', 'Saya, Aku');
// Indonesia - Jawa
   Ini.WriteString('Zephio Soft - 2010', 'Saya', 'Aku, Awakku');
   Ini.WriteString('Zephio Soft - 2010', 'Kamu', 'Koen, Kowe, Awakmu, Sampeyan');
 finally
   Ini.Free;
 end;
end;

end.
 
 
//Engine
unit Engine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, IniFiles, Data;

type
  TForm1 = class(TForm)
    E1: TEdit;
    M1: TMemo;
    B1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    E3: TEdit;
    E4: TEdit;
    Label3: TLabel;
    B2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Ini : TIniFile;
 
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
if not FileExists(ChangeFileExt(ExtractFileName(Application.ExeName),'.zsd')) then
   Translate;
end;

procedure TForm1.B1Click(Sender: TObject);
begin
if (E1.Text = '') then
   ShowMessage('Input Masih Kosong'+#13#10+'Silahkan Isi Kata yang hendak ditranslate!....')
else
try
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
   M1.Lines.Text := Ini.ReadString('Zephio Soft - 2010', E1.Text, '');
 finally
   Ini.Free;
 end;
end;

procedure TForm1.B2Click(Sender: TObject);
begin
if (E3.Text = '') or
   (E4.Text = '') then
begin
   ShowMessage('Input Masih Kosong'+#13#10+'Silahkan Isi Kata yang hendak ditambahkan');
   Exit
end
else
   Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.zsd'));
   Ini.WriteString('Zephio Soft - 2010', E3.Text, E4.Text);
   Ini.Free;
end;

end.
DL SC : http://www.mediafire.com/?b1r6ggpp77pba2p

Extract File Name

//Extract File Name
//By : Zephio
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    E1: TEdit;
    E2: TEdit;
    E3: TEdit;
    E4: TEdit;
    B1: TSpeedButton;
    OD: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    E5: TEdit;
    Label5: TLabel;
    E6: TEdit;
    Label6: TLabel;
    E7: TEdit;
    Label7: TLabel;
    E8: TEdit;
    E9: TEdit;
    E10: TEdit;
    E11: TEdit;
    procedure B1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.B1Click(Sender: TObject);
begin
if OD.Execute then
begin
   E1.Text := OD.FileName;
   E2.Text := ExtractFileName(E1.Text);
   E3.Text := ExpandFileName(E2.Text);
//------------------------------------------------------------------------------>
   E4.Text := ExtractFileName(ExtractFileExt(E1.Text));
//or
   E11.Text := LowerCase(ExtractFileExt(OD.FileName));
//------------------------------------------------------------------------------>
   E5.Text := ChangeFileExt(ExtractFileName(OD.FileName),'');
   E6.Text := ExtractFileDrive(OD.FileName);
   E7.Text := ExtractFilePath(OD.FileName);
   E8.Text := ExtractFileDir(OD.FileName);
   E9.Text := ExtractFileDir(ExtractFileDir(OD.FileName));
   E10.Text := ExtractShortPathName(OD.FileName);
end;
end;
end.

Windows System Menu

//Windows System menu
//By : Zephio
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Minimize 1
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

//Minimize 2
procedure TForm1.Button2Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_Minimize, 1);
end;

//Minimize 3
procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Minimize;
end;

//Restore 1
procedure TForm1.Button4Click(Sender: TObject);
begin
   Application.Restore;
end;

//Restore 2
procedure TForm1.Button5Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_RESTORE, 0);
end;

//Restore 3
procedure TForm1.Button6Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 1);
end;

//Maximize 1
procedure TForm1.Button7Click(Sender: TObject);
begin
  Form1.Perform(WM_SYSCOMMAND, SC_ZOOM, 0);
end;

//Maximize 2
procedure TForm1.Button8Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_ZOOM, 1);
end;

//Maximize 3
procedure TForm1.Button9Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_MAXIMIZE, 0);
//or:  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1);
end;

//Close 1
procedure TForm1.Button10Click(Sender: TObject);
begin
  Close;
//Atau gaya BCB: Close();
end;

//Close 2
procedure TForm1.Button11Click(Sender: TObject);
begin
   Application.Terminate;
end;

//Close 3
procedure TForm1.Button12Click(Sender: TObject);
begin
   Form1.Perform(WM_SYSCOMMAND, SC_CLOSE, 0);
end;

//Close 4
procedure TForm1.Button13Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_CLOSE, 1);
end;

//Klik Start menu
procedure TForm1.Button14Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_TASKLIST, 1);
end;

//Sembunyikan Apps pada Task Bar
procedure TForm1.Button15Click(Sender: TObject);
begin
   ShowWindow(Application.Handle, SW_HIDE);
end;

//Tampilkan Apps pada Task Bar
procedure TForm1.Button16Click(Sender: TObject);
begin
   ShowWindow(Application.Handle, SW_SHOWNORMAL);
end;

//ScreenSaver Mode
procedure TForm1.Button17Click(Sender: TObject);
begin
   SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;

end.

Executed DLL

//Bagian Executed DLL
// By : Zephio
// Untuk Membuat DLL, Klik Main Menu : File -> New -> Other...-> DLL Wizard.

library ZS;

uses
  SysUtils,
  Windows,
  ShellApi;

{$R *.res}

procedure EA;
var
   MsgText, MsgCaption : String;
   MsgType, UserResp : integer;
begin
   MsgCaption := '.About :.';
   MsgText := MsgText + 'Created By : Zephio' +#13#10;
   MsgText := MsgText + 'URL :http://amateur-guide.blogspot.com';
   MsgType := MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL;
   UserResp := MessageBox( 0, PChar(MsgText), PChar(MsgCaption), MsgType);
end;

procedure EE;
begin
   ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;

procedure EF;
begin
   ShellExecute(0,'open','C:\WINDOWS\system32\cmd.exe',nil,nil,SW_SHOW);
end;



procedure EU;
begin
   ShellExecute(0,'open','http://amateur-guide.blogspot.com',nil,nil,SW_SHOW);
end;

exports EF, EE, EU, EA;
begin
end.

//Bagian Form

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure EF; external 'ZS.dll';
  procedure EA; external 'ZS.dll';
  procedure EE; external 'ZS.dll';
  procedure EU; external 'ZS.dll';
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Button1.Caption := 'Contact';
   Button2.Caption := 'URL';
   Button3.Caption := 'Open CMD';
   Button4.Caption := 'About';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   EU;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   EF;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   EA;
end;

end.

Membuat Playlist Dengan Delphi

//Membuat Play List dengan Delphi
{
Created By : Zephio
Contact :  zephio@myspace.com
URL : http://amateur-guide.blogspot.com
Copyright © 2011, Zephio.
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer;

type
  TForm1 = class(TForm)
  //Component yg digunakan------------------------------------------------------>
    ListBox1: TListBox;
    Button1: TButton;
    OD: TOpenDialog;
    Button2: TButton;
    Button3: TButton;
    SD: TSaveDialog;
    MP: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    //Export To Playlist-------------------------------------------------------->
    function ETPL(S : String) : String;
    { Public declarations }
  end;

var
  Form1: TForm1;
Const
   //Default Title
   DS : String = 'ZS-Play List v1.0';
implementation

{$R *.dfm}

//Export To Playlist------------------------------------------------------------>
function TForm1.ETPL(S : String) : String;
var
   I : Integer;
   SL : TStringList; //Temporary String----------------------------------------->
begin
   SL := TStringList.Create;
   SL.Add('<Head>');
   Sl.Add('<Author>Zephio</Author>');
   SL.Add('<Title>Zephio Soft Play List v1.0</Title>');
   SL.Add(' <Body>');
   SL.Add('  <Total>'+IntToHex(ListBox1.Count, 4)+'</Total>');
for I := 0 to ListBox1.Count  - 1 do
   SL.Add('   <Path="'+ListBox1.Items[I]+'"/>');
   SL.Add(' </body>');
   SL.Add('</Head>');
   SL.SaveToFile(S);
   SL.Free;
end;

//Load Playlist----------------------------------------------------------------->
procedure TForm1.Button1Click(Sender: TObject);
const
   AB : array[0..6] of Char='<Path="';// array 0 - 6 of char = 7---------------->
   AE : array[0..2] of Char='"/>';// array 0 - 2 of char = 3-------------------->
var
   I : Integer;
   SL : TStringList;
begin
   OD.DefaultExt := '*.zs';
   OD.Filter := 'ZS Files|*.zs';
   SL := TStringList.Create;
if not OD.Execute then
   Exit;
   ListBox1.Clear;
   SL.LoadFromFile(OD.FileName);
//Jika tidak ditemukan kata dibawah ini dalam playlist,
// maka applikasi akan menolak playlist tsb
if (SL.Strings[0] <> '<Head>') and
   (SL.Strings[1] <> '<Author>Zephio</Author>') and
   (SL.Strings[2] <> '<Title>Zephio Soft Play List v1.0</Title>') and
   (SL.Strings[3] <> ' <Body>') then
   Exit
else
   Caption := DS+' - [ '+Copy(SL.Strings[1], 9, Length(SL.Strings[1]) - 17)+' ]'+' '+IntToStr(Length(AB))+' '+IntToStr(Length(AE));
{
I = 5 trhitung dari:
1. <Head>
2. <Author>Zephio</Author>
3. <Title>Zephio Soft Play List v1.0</Title>
4. <Body>
5. mengambil Path yg pertama
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SL.Count - 3 = Total Baris pd playlist tsb dikurangi
3. </body>
2. </Head>
1. '' dari I = 0 - Total Baris
}
for I := 5 to SL.Count - 3 do
   ListBox1.Items.Add(Copy(SL.Strings[I], 11, Length(SL.Strings[I]) - 13));
   SL.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   I : Integer;
begin
   OD.DefaultExt := '*.mp3';
   OD.Filter := 'MP3 Files|*.mp3';
if not OD.Execute then
   Exit;
   ListBox1.Clear;
//I = 0 - Total File pada Open Dialog------------------------------------------->
// atau juga for I := 1 to Total File pada Open Dialog-------------------------->
for I := 0 to OD.Files.Count - 1 do
   ListBox1.Items.Add(OD.Files[I]);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if not SD.Execute then
   Exit;
//Export Playlist dari Temporay ke File----------------------------------------->
   ETPL(SD.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Caption := 'ZS-2011';
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
   MP.FileName := ListBox1.Items[ListBox1.ItemIndex];
   MP.Open;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   Caption := DS;
   Application.Title := DS;
end;

end.

{ untuk versi Console Apps cuma load playlist'e saja }

program ZS;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes;

const
   AB : array[0..6] of Char='<Path="';
   AE : array[0..2] of Char='"/>';
var
   I : Integer;
   SL : TStringList;
begin
   SL := TStringList.Create;
if not FileExists('ZS.zs') then
   Exit
else
   SL.LoadFromFile('ZS.zs');//Nama file'e
if (SL.Strings[0] <> '<Head>') and
   (SL.Strings[1] <> '<Author>Zephio</Author>') and
   (SL.Strings[2] <> '<Title>Zephio Soft Play List v1.0</Title>') and
   (SL.Strings[3] <> ' <Body>') then
   Exit
else
   WriteLn('Author : '+Copy(SL.Strings[1], 9, Length(SL.Strings[1]) - 17));
   WriteLn('Title  : '+Copy(SL.Strings[2], 8, Length(SL.Strings[2]) - 15));
   WriteLn('=========================================================================');
for I := 5 to SL.Count - 3 do
   WriteLn(Copy(SL.Strings[I], 11, Length(SL.Strings[I]) - 13));
While true do
   Sleep(1000);
   SL.Free;
end.


Download Source Code : Link
MH : Media Fire
FS : 259KB

Download Software Bikinanku (unfinished)

Ini linknya

DS Mixer v1.61 [July] : http://www.mediafire.com/?8gwf7m70bwic37g
Playlist Generator : http://www.mediafire.com/?gmdmqaqd37nk6yd
NFO Maker : http://www.mediafire.com/?ojz2gdzjmnc
PDF Encryptor : http://www.mediafire.com/?znzgm4yndig
MOD Player : http://www.mediafire.com/?01m93sx9ql1pi69
Map Strong Hold Crusader
                                         Greed : http://www.mediafire.com/?ta7887t2lp4afc5
                                         Green Land : http://www.mediafire.com/?9g6g10rb369l0qp

SC Keygen Template : http://forum.tuts4you.com/files/file/573-simple-keygen-template-delphi/

SC Playlists Generator 4 DVB & MD5 Brute Force(python)

https://gist.github.com/X-88

Change Foreground & Background CMD

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
with Reg do
begin
  RootKey := HKEY_CURRENT_USER;
  OpenKey('Console', true);
  WriteInteger('ScreenColors', StrToInt(Edit1.text));
  Closekey;
  Reg.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.MaxLength := 10;
  Caption := 'Value : 0 - 999999999';
  Button1.Caption := 'Set';
  Button2.Caption := 'Preview';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(handle,'open','C:\WINDOWS\system32\cmd.exe',nil,nil,SW_SHOW);
end;

end.

Message Box pada Console Apps

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;
Const
   S : String = '                                       Ü'+#13#10+
                '                      ÜÛ            ÜÛÛÛÛÜ'+#13#10+
                '                   ÜÛÛÛÛÛ          ÛÛÛß  ßÛÜ'+#13#10+
                '                ÜÛÛÛÛÛßÛÛÛ°       ÛÛß      ßÛ°'+#13#10+
                '              ÜÛÛÛß    ÛÛÛ°      ÛÛ°'+#13#10+
                '             ÜÛß      ÛÛÛ°       ßÛÛÜ'+#13#10+
                '             ß       ÛÛÛ°          ÛÛÛÜ'+#13#10+
                '                    ÛÛÛ°            ßÛÛÛÜ'+#13#10+
                '                   ÛÛÛ°               ßÛÛÛÛÜ'+#13#10+
                '                  ÛÛÛ°           ÜÜÜÜÜ   ßÛÛÛ°'+#13#10+
                '                 ÛÛÛ°         ÜÛÛÛßß       ÛÛÛ°'+#13#10+
                '                ÛÛÛß         ÛÛÛ            ÛÛ°'+#13#10+
                '               ÛÛÛÛ°       ÛÛÛ°  ÜÜÜ       ÛÛÛ°'+#13#10+
                '                ÛÛÛÛ°     ÛÛÛ°     ßÛÜ   ÜÛÛÛ°'+#13#10+
                '                 ÛÛÛÛÜ  ÜÛÛÛ°       ßÛÛÛÛÛÛÛ°'+#13#10+
                '                  ßÛÛÛÛÛÛÛÛ°          ßÛÛß'+#13#10+
                '                    ßÛÛÛÛß'+#13#10+
                ''+#13#10+
                '                      Nfo by : Zephio Soft - 2009';
begin
  WriteLn(S);
  MessageBox(0,'Mesage Box'+#13#10'+Press OK to Quit!...','Message Box',0);
// atau ShowMessage('Mesage Box'+#13#10'+Press OK to Quit!...');
// Tambahkan Uses Dialogs
end.

Cursor Position

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Caption := 'X = '+IntToStr(X)+', Y = '+IntToStr(Y);
end;

end.

Create & Remove Directory

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    E1: TEdit;
    LNF: TLabel;
    BC: TSpeedButton;
    BR: TSpeedButton;
    procedure BCClick(Sender: TObject);
    procedure BRClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { By : Zephio}
  public
    { http://amateur-guide.blogspot.com }
  end;

var
  Form1: TForm1;



implementation

{$R *.dfm}

procedure TForm1.BCClick(Sender: TObject);
begin
   E1.Tag := E1.Tag + 1;
   IntToStr(0 + E1.Tag);
if not DirectoryExists(ExtractFilePath(Application.ExeName)+E1.Text) then
   CreateDir(ExtractFilePath(Application.ExeName)+E1.Text)
else
   CreateDir(E1.Text+' ('+IntToStr(E1.Tag)+')');
end;

procedure TForm1.BRClick(Sender: TObject);
begin
if not DirectoryExists(ExtractFilePath(Application.ExeName)+E1.Text) then
   ShowMessage(E1.Text+' Not Found!...')
else
   RemoveDir(ExtractFilePath(Application.ExeName)+E1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   BC.Caption := 'Create Folder';
   BR.Caption := 'Remove Folder';
   E1.Text := 'New Folder';
end;

end.

Copy String

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Memo1.Clear;
   Memo1.Lines.Text := Copy(Edit1.Text, 1, MaxInt);
end;

end.

Convert RTF To Text

{
   Saya Pernah mencoba membuat Applikasi Notepad dengan Rich Edit,
   Ketika Saya simpan ke Format *.txt,
   Tampak seperti Gambar diatas.
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RE: TRichEdit;
    MM: TMainMenu;
    OD: TOpenDialog;
    SD: TSaveDialog;
    File1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    SaveAs1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    procedure Exit1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SaveAs1Click(Sender: TObject);
  private
    { URL : http://amateur-guide.blogspot.com }
  public
    { By : Zephio }
  end;

var
   Form1: TForm1;

Const
   DS : String = 'Untitled - [ Zephio Pad ]';
implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm1.New1Click(Sender: TObject);
begin
   RE.Clear;
   Caption := DS;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
   OD.DefaultExt := '*.*';
   OD.Filter := 'Any Files|*.*';
if not OD.Execute then
   Exit;
   RE.Lines.LoadFromFile(OD.FileName);
   Caption := ChangeFileExt(ExtractFileName(OD.FileName), ' - [ Zephio Pad ]');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   SD.DefaultExt := '*.rtf;*.wri;*.txt';
   Caption := DS;
   Application.Title := 'Zephio Pad';
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
var
   SL : TStringList;
begin
   SL := TStringList.Create;
   SL.Add(RE.Lines.Text);
if not SD.Execute then
   Exit;
if LowerCase(ExtractFileExt(SD.FileName)) = '.rtf' then
begin
   RE.Lines.SaveToFile(SD.FileName)
end
else
if LowerCase(ExtractFileExt(SD.FileName)) = '.wri' then
begin
   RE.Lines.SaveToFile(SD.FileName)
end
else
if LowerCase(ExtractFileExt(SD.FileName)) = '.txt' then
   SL.SaveToFile(SD.FileName);
   SL.Free
end;

end.

Menulis Pada Canvas

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
   Brush.Style := BSClear;
   Font.Style := [FSBold]+[FSItalic];
   Font.Name  := 'Times new Romans';
   Font.Size  := 18;
   Font.Color := ClBlue;
   TextOut(2, 2, 'By Zephio');
   Font.Color := ClBlack;
   TextOut(8, 22, 'amateur.guide@gmail.com');
   Font.Color := ClRed;
   TextOut(14, 42, 'http://amateur-guide.blogspot.com');
   end;
end;

end.

Repeat Media Player

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, MPlayer;

type
TForm1 = class(TForm)
MP: TMediaPlayer;
LCD: TPanel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MP.FileName := ExtractFilePath(Application.ExeName)+'ZSM.avi';
MP.Open;
MP.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MP.Length = MP.EndPos then
MP.Position := MP.StartPos;
MP.Play;
end;

end.

Membuat MediaPlayer Dengan C++ Builder

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include "PERFGRAP.h"
#include "CGAUGES.h"
#include
#include "trayicon.h"
#include
#include
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TSpeedButton *BA;
TListBox *LB;
TOpenDialog *OD;
TMediaPlayer *MP;
TSpeedButton *BD;
TSpeedButton *BC;
TSpeedButton *BI;
TTimer *T1;
TPanel *PM;
TLabel *LD;
TSpeedButton *BP;
TSpeedButton *BB;
TSpeedButton *BS;
TLabel *LR;
TSpeedButton *BN;
TSpeedButton *BPv;
TSpeedButton *BBc;
TSpeedButton *BSt;
TActionList *AL;
TAction *RA;
TSpeedButton *BR;
TPanel *LCD;
TSpeedButton *BSL;
TSpeedButton *BL;
TSpeedButton *BE;
TSaveDialog *SD;
TProgressBar *PB;
TSpeedButton *BT;
TAction *OT;
TLabel *LU;
TLabel *LE;
TImageList *IL;
TPopupMenu *PUM;
TTrayIcon *TI;
TMenuItem *Restore1;
TMenuItem *N1;
TMenuItem *Quit1;
TMenuItem *Contact1;
TMenuItem *ViewMyProfile1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *PlayBack1;
TMenuItem *Play1;
TMenuItem *Pause1;
TMenuItem *Stop1;
TMenuItem *N4;
TMenuItem *Step1;
TMenuItem *Back1;
TMenuItem *N5;
TMenuItem *Previous1;
TMenuItem *Next1;
TMenuItem *File1;
TMenuItem *AddFiles1;
TMenuItem *LoadPLS1;
TMenuItem *ExportToPLS1;
TTimer *TA;
void __fastcall BAClick(TObject *Sender);
void __fastcall LBDblClick(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall BCClick(TObject *Sender);
void __fastcall BDClick(TObject *Sender);
void __fastcall BIClick(TObject *Sender);
void __fastcall T1Timer(TObject *Sender);
void __fastcall BPClick(TObject *Sender);
void __fastcall BBClick(TObject *Sender);
void __fastcall BSClick(TObject *Sender);
void __fastcall BNClick(TObject *Sender);
void __fastcall BPvClick(TObject *Sender);
void __fastcall BStClick(TObject *Sender);
void __fastcall BBcClick(TObject *Sender);
void __fastcall RAExecute(TObject *Sender);
void __fastcall BRClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall BSLClick(TObject *Sender);
void __fastcall BLClick(TObject *Sender);
void __fastcall BEClick(TObject *Sender);
void __fastcall PBMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BTClick(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall LUClick(TObject *Sender);
void __fastcall LEClick(TObject *Sender);
void __fastcall LUMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall LEMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall LEMouseLeave(TObject *Sender);
void __fastcall LUMouseLeave(TObject *Sender);
void __fastcall LBDragDrop(TObject *Sender, TObject *Source, int X,
int Y);
void __fastcall LBMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall LBDragOver(TObject *Sender, TObject *Source, int X,
int Y, TDragState State, bool &Accept);
void __fastcall Quit1Click(TObject *Sender);
void __fastcall Restore1Click(TObject *Sender);
void __fastcall Play1Click(TObject *Sender);
void __fastcall Pause1Click(TObject *Sender);
void __fastcall Stop1Click(TObject *Sender);
void __fastcall Back1Click(TObject *Sender);
void __fastcall Step1Click(TObject *Sender);
void __fastcall Previous1Click(TObject *Sender);
void __fastcall Next1Click(TObject *Sender);
void __fastcall AddFiles1Click(TObject *Sender);
void __fastcall LoadPLS1Click(TObject *Sender);
void __fastcall ExportToPLS1Click(TObject *Sender);
void __fastcall Contact1Click(TObject *Sender);
void __fastcall ViewMyProfile1Click(TObject *Sender);
void __fastcall TATimer(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//================================================================================>

/* Created By : Zephio
Contact : zephio@myspace.com
URL : http://myspcae.com/zephio
*/
//---------------------------------------------------------------------------

#include
#pragma hdrstop
#include
#include "Unit1.h"
#include "Unit2.h"
#include
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PERFGRAP"
#pragma link "CGAUGES"
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;

AnsiString SL;
const
Char *S = "Z-Player";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//--------------------------Add Files-------------------------------------------------

void __fastcall TForm1::BAClick(TObject *Sender)
{
OD->DefaultExt = "*.avi;*.wav;*.mp3;*.mid;*.mpeg";
OD->Filter = "Playable Files [*.avi, *.wav, *.mp3, *.mid, *.mpeg]|*.avi;*.wav;*.mp3;*.mid;*.mpeg";
OD->Title = "Add Files";
int i;
if (OD->Execute() != true);
exit;
for (i = 0; i < OD->Files->Count; i++)
LB->Items->Add(OD->Files->Strings[i]);
}
//---------------------------Load FileName From Listbox------------------------------------------------
void __fastcall TForm1::LBDblClick(TObject *Sender)
{
SL = ChangeFileExt(ExtractFileName(LB->Items->Strings[LB->ItemIndex]),"");
Form1->Caption = "["+IntToStr(LB->ItemIndex +1) +"/"+ IntToStr(LB->Count) +"] - "+ SL+" - "+S;
MP->FileName = LB->Items->Strings[LB->ItemIndex];
MP->Open();
PB->Max = MP->Length;
LD->Caption = "Duration : 0/" + IntToStr(MP->Length) + " MS";
PM->Enabled = true;
TA->Enabled = false;
BPClick(Sender);
/*if (MP->Capabilities.Contains(mpUsesWindow))
MP->Display = LCD;*/
}
//------------------------------Task Bar Title---------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Application->Title = S;
}
//--------------------------------Clear Playlist-------------------------------------------
void __fastcall TForm1::BCClick(TObject *Sender)
{
if (MP->Mode == mpPlaying)
BSClick(Sender);
MP->Close();
LB->Clear();
PM->Enabled = false;
Caption = "Z-Player";
TA->Enabled = true;
}
//---------------------------------Delete Selected------------------------------------------
void __fastcall TForm1::BDClick(TObject *Sender)
{
if (LB->ItemIndex >= 0 )
LB->Items->Delete(LB->ItemIndex);
}
//------------------------------About Form---------------------------------------------
void __fastcall TForm1::BIClick(TObject *Sender)
{
Form2->ShowModal();
}
//------------------------------Update Status---------------------------------------------
void __fastcall TForm1::T1Timer(TObject *Sender)
{
if (RA->Checked == true)
RAExecute(Sender);
else
if (MP->Mode == mpStopped)
BNClick(Sender);
PB->Position = MP->Position;
LD->Caption = "Duration : "+IntToStr(MP->Position)+"/" + IntToStr(MP->Length) + " MS";
LR->Caption = "Remain : "+ IntToStr(MP->Length - MP->Position) +" MS";
}
//------------------------------Play---------------------------------------------
void __fastcall TForm1::BPClick(TObject *Sender)
{
if (MP->Mode != mpPlaying)
MP->Play();
T1->Enabled = true;
}
//--------------------------Pause-------------------------------------------------

void __fastcall TForm1::BBClick(TObject *Sender)
{
if (MP->Mode == mpPlaying)
MP->PauseOnly();
if (MP->Mode == mpPaused)
T1->Enabled = true;
else
MP->Position = PB->Position;
T1->Enabled = false;
}
//-------------------------Stop--------------------------------------------------

void __fastcall TForm1::BSClick(TObject *Sender)
{
if (MP->Mode != mpStopped)
MP->Stop();
T1->Enabled = false;
LD->Caption = "Duration : 0/0 MS";
LR->Caption = "Remain : 0 MS";
PB->Position = 0;
MP->Position = 0;
}
//-----------------------Next----------------------------------------------------


void __fastcall TForm1::BNClick(TObject *Sender)
{
if (LB->Count < 1); exit; if (LB->Count > 1)
if (LB->ItemIndex == LB->Count - 1)
LB->ItemIndex = 0;
else
LB->ItemIndex = LB->ItemIndex + 1;
LBDblClick(Sender);
}
//-------------------------Previous--------------------------------------------------

void __fastcall TForm1::BPvClick(TObject *Sender)
{
if (LB->Count < 1) exit; if (LB->Count > 1)
if (LB->ItemIndex == 0)
LB->ItemIndex = LB->Count - 1;
else
LB->ItemIndex = LB->ItemIndex - 1;
LBDblClick(Sender);
}
//--------------------------Step-------------------------------------------------

void __fastcall TForm1::BStClick(TObject *Sender)
{
if ((MP->Position + 5000)<= MP->Length)
MP->Position = MP->Position + 5000;
else
MP->Position = 0;
MP->Play();
}
//---------------------------Back------------------------------------------------

void __fastcall TForm1::BBcClick(TObject *Sender)
{
if ((MP->Position - 5000) > 0)
MP->Position = MP->Position - 5000;
else
MP->Position = 0;
MP->Play();
}
//----------------------------Repeat-----------------------------------------------


void __fastcall TForm1::RAExecute(TObject *Sender)
{
if (MP->Length == MP->EndPos)
MP->Position = MP->StartPos;
BPClick(Sender);
}
//-------------------------------Repeat--------------------------------------------


void __fastcall TForm1::BRClick(TObject *Sender)
{
if (RA->Checked == false)
RA->Checked = true;
else
if (RA->Checked == true)
RA->Checked = false;
if (RA->Checked == true)
BR->Font->Color = clLime;
else
BR->Font->Color = clRed;

}
//----------------------------Form Width-----------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Width = 177;
}
//----------------------------Resize Form-----------------------------------------------

void __fastcall TForm1::BSLClick(TObject *Sender)
{
if(Form1->Width == 177)
Form1->Width = 471;
else
Form1->Width = 177;
if (Form1->Width == 177)
BSL->Caption = ">>>";
else
if (Form1->Width == 471)
BSL->Caption = "<<<"; } //----------------------------Load *.PLS----------------------------------------------- void __fastcall TForm1::BLClick(TObject *Sender) { OD->FileName = "";
OD->DefaultExt = "*.pls";
OD->Filter = "PLS File|*.pls";
OD->Title = "Load PLS";
if (OD->Execute() != true);
exit;
TIniFile *pIni = new TIniFile(OD->FileName);
int i;
for(i = 0; i < pIni->ReadInteger("playlist", "NumberOfEntries", 0); i++)
LB->AddItem(pIni->ReadString("playlist", "File" + IntToStr(i + 1),ExtractFileName("")), Sender);
pIni->Free();
}
//-------------------------Export to *.PLS--------------------------------------------------

void __fastcall TForm1::BEClick(TObject *Sender)
{
SD->FileName = "";
if (SD->Execute() == false);
exit;
TIniFile *pIni = new TIniFile(SD->FileName);
int i;
for(i = 0; i < LB->Count; i++)
if (SD->FileName == "")
exit;
else
{
pIni->WriteString("playlist", "File" + IntToStr(i+1), LB->Items->Strings[i]);
pIni->WriteString("playlist", "Title" + IntToStr(i+1), ChangeFileExt(ExtractFileName(LB->Items->Strings[i]),""));
pIni->WriteString("playlist", "Length"+IntToStr(i+1),'0');
pIni->WriteInteger("playlist","NumberOfEntries", LB->Count);
}
pIni->Free();
}
//----------------------------Seek-----------------------------------------------

void __fastcall TForm1::PBMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
MP->Position = (X * MP->Length) / PB->ClientWidth;
PB->Position = (MP->Position * 100) / MP->Length;
MP->Play();
T1->Enabled = true;
}
//----------------------------On Top-----------------------------------------------


void __fastcall TForm1::BTClick(TObject *Sender)
{
if (OT->Checked == false)
OT->Checked = true;
else
if (OT->Checked == true)
OT->Checked = false;
if (OT->Checked == true)
BT->Font->Color = clLime;
else
BT->Font->Color = clRed;
if (OT->Checked == true)
Form1->FormStyle = fsStayOnTop;
else
Form1->FormStyle = fsNormal;
}
//---------------------------Config Form------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *pIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
pIni->WriteString("Lay out", "Path", Application->ExeName);
pIni->WriteString("Lay out", "Application name", ChangeFileExt(ExtractFileName(Application->ExeName), ""));
pIni->Free();
}
//------------------------------URL---------------------------------------------

void __fastcall TForm1::LUClick(TObject *Sender)
{
ShellExecute(0, "open", "http://myspace.com/zephio", "", "", SW_SHOWNORMAL);
}
//-------------------------------Mail--------------------------------------------

void __fastcall TForm1::LEClick(TObject *Sender)
{
ShellExecute(0, "open", "mailto:zephio@myspace.com?Subject=Hi, Zephio...", "", "", SW_SHOWNORMAL);
}
//------------------------------Label Font Color---------------------------------------------

void __fastcall TForm1::LUMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
LU->Font->Color = clRed;
}
//------------------------------Label Font Color---------------------------------------------

void __fastcall TForm1::LEMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
LE->Font->Color = clRed;
}
//------------------------------Label Font Color---------------------------------------------

void __fastcall TForm1::LEMouseLeave(TObject *Sender)
{
LE->Font->Color = clLime;
}
//------------------------------Label Font Color---------------------------------------------

void __fastcall TForm1::LUMouseLeave(TObject *Sender)
{
LU->Font->Color = clLime;
}
//------------------------------Drag & Drop---------------------------------------------

void __fastcall TForm1::LBDragDrop(TObject *Sender, TObject *Source, int X,
int Y)
{
int MI, DI;
DI = LB->ItemAtPos(Point(X,Y), true);
MI = LB->ItemIndex;
LB->Items->Exchange(MI, DI);
}
//-------------------------------Drag & Drop--------------------------------------------

void __fastcall TForm1::LBMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if (Button == mbLeft) // drag only if left button pressed
{
TListBox *pLB = (TListBox *)Sender; // cast to TFileListBox
if(pLB->ItemAtPos(Point(X,Y), true) >= 0) // is there an item here?
pLB->BeginDrag(false,-1); // if so, drag it
}
}
//---------------------------------Drag & Drop------------------------------------------

void __fastcall TForm1::LBDragOver(TObject *Sender, TObject *Source, int X,
int Y, TDragState State, bool &Accept)
{
if (Source->InheritsFrom(__classid(TListBox)))
Accept = true;
}
//------------------------------Terminate---------------------------------------------

void __fastcall TForm1::Quit1Click(TObject *Sender)
{
Application->Terminate();
}
//--------------------------Restore Main Form-------------------------------------------------


void __fastcall TForm1::Restore1Click(TObject *Sender)
{
Application->Restore();
}
//------------------------------Play Sender---------------------------------------------

void __fastcall TForm1::Play1Click(TObject *Sender)
{
BPClick(Sender);
}
//--------------------------------Pause Sender-------------------------------------------

void __fastcall TForm1::Pause1Click(TObject *Sender)
{
BBClick(Sender);
}
//---------------------------------Stop Sender------------------------------------------

void __fastcall TForm1::Stop1Click(TObject *Sender)
{
BSClick(Sender);
}
//----------------------------------Back Sender-----------------------------------------

void __fastcall TForm1::Back1Click(TObject *Sender)
{
BBcClick(Sender);
}
//------------------------------------Step Sender---------------------------------------

void __fastcall TForm1::Step1Click(TObject *Sender)
{
BStClick(Sender);
}
//-----------------------------------Previous Sender----------------------------------------

void __fastcall TForm1::Previous1Click(TObject *Sender)
{
BPvClick(Sender);
}
//------------------------------------Next Sender---------------------------------------

void __fastcall TForm1::Next1Click(TObject *Sender)
{
BNClick(Sender);
}
//------------------------------------Add Files Sender---------------------------------------

void __fastcall TForm1::AddFiles1Click(TObject *Sender)
{
BAClick(Sender);
}
//---------------------------------Load *.PLS Sender------------------------------------------

void __fastcall TForm1::LoadPLS1Click(TObject *Sender)
{
BLClick(Sender);
}
//----------------------------------Export To *.PLS Sender-----------------------------------------

void __fastcall TForm1::ExportToPLS1Click(TObject *Sender)
{
BEClick(Sender);
}
//----------------------------------Mail Sender-----------------------------------------

void __fastcall TForm1::Contact1Click(TObject *Sender)
{
LEClick(Sender);
}
//-----------------------------------URL Sender----------------------------------------

void __fastcall TForm1::ViewMyProfile1Click(TObject *Sender)
{
LUClick(Sender);
}
//-----------------------------------Anime----------------------------------------

void __fastcall TForm1::TATimer(TObject *Sender)
{
if (Caption == "Z-Player")
Caption = "Created by : Zephio";
else
if (Caption == "Created by : Zephio")
Caption = "Contact : zephio@myspace.com";
else
if (Caption == "Contact : zephio@myspace.com")
Caption = "http://myspace.com/zephio";
else
if (Caption == "http://myspace.com/zephio")
Caption = "Z-Player";
}
//---------------------------------------------------------------------------

Example : http://www.mediafire.com/?eb8254bpnc3qgd9