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.
Sunday, July 10, 2011
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
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
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.
{$APPTYPE CONSOLE}
uses
SysUtils;
var
I : Integer;
begin
for I := 1 to 10 do
if (I mod 2) > 0 then
WriteLn(I);
ReadLn;
end.
Friday, May 13, 2011
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.
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.
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.
Subscribe to:
Posts (Atom)