Penerjemah Web Canggih

Kalo Ngga tahu situs yang berbahasa china, rusia, italia.. dll

tapi ngga ada english to indonesia
Links di Sini

Tips dan Trik Mempercepat Akses Internet

Saat anda browsing atau membuka suatu website di internet entah dari warung internet ataupun dari rumah, mungkin anda sering mengeluh akan lambatnya akses untuk menampilkan website tersebut. Padahal akses internet di Indonesia sekarang ini masih terhitung mahal. Sebenarnya ada cara-cara mudah untuk meningkatkan kecepatan akses internat anda tanpa harus membayar biaya lebih mahal. Beberapa diantaranya adalah dengan menyetting browser kita, menggunakan openDNS, dan menggunakan Google Web Accelerator.
Untuk menerapkan trik-trik tersebut sangat mudah. Cara pertama yaitu menyetting browser dapat dilakukan oleh pengguna Internet Explorer dan Mozilla Firefox. Bagi pengguna Internet Explorer klik menu [Tools] [Internet Option], klik tab [General]. Pada opsi “Temperory Internet files”, klik [Settings] lalu Geser slider-nya. Hal itu untuk membuat cache (lokasi penyimpanan sementara) untuk web yang anda buka, sebaliknya disediakan sekitar 5% dari Hard disk.

Bagi pengguna Mozilla Firefox anda dapat mengetikkan “about:config” pada address bar,. setelah itu ubah “network.http.pipelining” dan “network.http.proxy pipelining” menjadi “true”, serta isi “network.http.pipelining.maxrequests” antara 30 –100 ( semakin besar semakin cepat ). Yang terakhir klik kanan dimana saja dan pilih New->Integer , tuliskan “nglayout.initialpaint.delay” lalu isi dengan 0.
Untuk trik kedua, pertama anda harus mendaftar di www.openDNS.com . Setelah itu masuk ke Control Panel dari start menu, pilih network connections lalu pilih koneksi anda dan klik tombol properties. Pada bagian Internet protokol anda bisa pilih TCP/IP dan klik properties. Masukkan angka 208.67.222.222 dan 208.67.220.220 pada opsi DNS dan restart komputer anda.
Setelah melakukan 2 tips di atas sekarang anda pasti akan mendapat kecepatan akses yang lebih kencang. Bagi yang masih belum puas dengan kecepatan aksesnya sekarang dapat menggunakan trik yang ke tiga yaitu Google Web Accelerator. Google Web Accelerator di desain khusus untuk mempercepat akses internet anda, khususnya anda yang menggunakan koneksi broadband (pita lebar) seperti Cable dan DSL. Untuk anda yang menggunakan koneksi lain seperti Dial-up (Telkomnet Instant atau Speedy) maupun satelit atau wave, Google Web Accelerator juga dapat mempercepat aksesnya.
Untuk memakai Google Web Accelerator anda harus memenuhi kriteria antara lain Operating System anda harus Windows XP atau Windows 2000 dan browser anda harus Internet Explorer 5.5+ atau Mozilla Firefox 1.0+. Kalau untuk browser lainnya sebenarnya juga bisa, tetapi anda harus meng-konfigurasi proxy settings dari browser anda dengan menambah 127.0.0.1:9100 pada HTTP. Setelah anda melakukan instalasi, Google Web Accelerator akan menampilkan icon kecil di atas browser anda dan icon tray di pojok bawah layar komputer. Anda dapat mengunduh Google Web Accelerator di http://webaccelerator.google.com .

Sumber : http://hendrawan-life.blogspot.com/2007/04/tips-dan-trik-mempercepat-akses.html

Cek CD-Room (eject,insert)

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

type
  TForm1 = class(TForm)
     procedure CDROM_Notification(var msg: TMessage);
      message WM_DEVICECHANGE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  CD_OUTPUT = $8004;
  CD_INPUT = $8000;

procedure TForm1.CDROM_Notification(var msg: TMessage);
begin
  if msg.wParam = CD_INPUT then
    ShowMessage(‘There is a new CD.’)
  else if msg.wParam = CD_OUTPUT then
    ShowMessage(‘CD was ejected.’);
end;

end.

sumber : http://delphicikk.atw.hu/

Klik Windows Anda ( Minimize, Run, Date Time, IE Options …)

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure Shell(sMethod: Integer);
  end;

var
  Form1: TForm1;
  oShell: OleVariant;

implementation

{$R *.DFM}

procedure TForm1.Shell(sMethod: Integer);
begin
  case sMethod of
    0:
      {Minimizes all windows on the desktop}
      begin
        oShell.MinimizeAll;
        Button1.Tag := Button1.Tag + 1;
      end;
    1:
      {Displays the Run dialog}
      begin
        oShell.FileRun;
        Button1.Tag := Button1.Tag + 1;
      end;
    2:
      {Displays the Shut Down Windows dialog}
      begin
        oShell.ShutdownWindows;
        Button1.Tag := Button1.Tag + 1;
      end;
    3:
      {Displays the Find dialog}
      begin
        oShell.FindFiles;
        Button1.Tag := Button1.Tag + 1;
      end;
    4:
     { Displays the Date / Time dialog}
      begin
        oShell.SetTime;
        Button1.Tag := Button1.Tag + 1;
      end;
    5:
      {Displays the Internet Properties dialog}
      begin
        oShell.ControlPanelItem(‘INETCPL.cpl’);
        Button1.Tag := Button1.Tag + 1;
      end;
    6:
      {Enables user to select folder from Program Files}
      begin
        oShell.BrowseForFolder(0, ‘My Programs’, 0, ‘C:\Program Files’);
        Button1.Tag := Button1.Tag + 1;
      end;
    7:
      {Displays the Taskbar Properties dialog}
      begin
        oShell.TrayProperties;
        Button1.Tag := Button1.Tag + 1;
      end;
    8:
      {Un-Minimizes all windows on the desktop}
      begin
        oShell.UndoMinimizeAll;
        Button1.Tag := 0;
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  oShell := CreateOleObject(‘Shell.Application’);
  Shell(Button1.Tag);
  oShell := VarNull;
end;

end.

sumber : http://delphicikk.atw.hu/listaz.php?id=293

Form Berkedip

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 { Handle identifies the window to be flashed }
  FlashWindow(Handle, true);
end;

sumber :http://delphicikk.atw.hu/listaz.php?id=112

New Email di Outlook Express

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(Handle,’open’,'mailto:maulaku@yahoo.com’,”,”,SW_SHOWDEFAULT);
end;

Link ke alamat website

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, ‘open’, ‘http://www.delphi-id.org’, ”, ”, SW_SHOWDEFAULT);
end;

Mendapatkan Ip Address

…………… 

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

function getIPs: TStrings;
type
  TaPInAddr = Array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result:=TStringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then
  begin
    Exit;
  end;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Mendeteksi storage device(usb)

…….private { Private declarations } procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMDEVICECHANGE(var Msg: TMessage); const DBT_DEVICEARRIVAL = $8000; DBT_DEVICEREMOVECOMPLETE = $8004; begin inherited; case Msg.WParam of DBT_DEVICEARRIVAL: begin showmessage(‘usb baru masuk’); end; DBT_DEVICEREMOVECOMPLETE: begin showmessage(‘usb di keluarin ‘); end; end; end; end.

sumber : http://delphicikk.atw.hu/kereses.php

DTS SQL server 2005

Di SQL Server 2005 udah nggak ada lagi DTS, tapi udah
digantiin pakai SSIS. Caranya buka BI Development
Studio, terus buat project baru, dan pilih Integration
Services Project.

DTS SQL Server 2000 tidak bisa di-upgrade menjadi SSIS
package, harus di-recreate. Kalo nggak mau, di SSIS
ada task yang bisa buat execute DTS-nya SQL Server
2000