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.