Membuat Alias Otomatis

Dibawah ini adalah Contoh Sourcecode Pembuatan alias otomatis pada pemrograman DELPHI, Cocok untuk kita yang sering-sering pindah komputer saat ngerjakan tugas-tugas delphi (maklum belum punya komputer sendiri....? , sehingga ketika Flashdisk kita tancapkan program kita langsung on, ndak usah nyeting-nyeting alias lagi.

procedure TForm1.FormCreate(Sender: TObject);
var
   AliasBaru, Path : string;
begin
   Path := ExtractFilePath (Application.ExeName) + 'db';
   AliasBaru := 'DBInventory'; // nama alias yang akan dibuat
   // untuk mengecek apakah nama alias sudah ada atau belum
   if not Session.IsAlias(AliasBaru) then
   begin
      //jika belum ada maka tambahkan nama alias
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end
   else
   begin
      // jika sudah ada, hapus dulu
      Session.DeleteAlias(AliasBaru);
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end;

   // menyimpan nama alias pada file konfigurasi
   Session.SaveConfigFile;
end;

Sumber : www.klik-kanan.com