Input Box dengan Password Char di Delphi

Sobat Pasti Tahu kan InputBox ? Itu yang kayak gambar diatas. mungkin anda sudah sering menggunakannya dalam membuat aplikasi bukan ? Entah dalam proses pencarian data atau semacamnya. Kalau Saya sendiri sering memanfaatkannya untuk prosesn pencarian data. :)

Sebenarnya bagus juga kalau kita menerapkan Inputbox ini untuk Request Password pada User. Jadi Pada Program yang kita buat, sebagia Utilitas kita batasi Hak Aksesnya. Jika User ingin mengakses Utilitas tersebut maka dia harus menginputkan password terlebih dahulu (Lihat gambar diatas). Ide Ini Muncul ketika saya membuat sebuah Aplikasi Tahun Lalu. bagaimana ? tertarik untuk mencobanya ? Berikut langkahnya 

- Jalankan Delphi Anda.

- Letakan Code Berikut dibawah {$R *.dfm}

// Password Char (*) InputBox
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
  hInputForm, hEdit: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

- Buat Sebuah Procedure di atas code Private

procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;

- Tambahkan Constanta diatas Code type

const
InputBoxMessage = WM_USER + 200;

- Tambahkan Sebuah Button Pada Form Anda Kemudian Letakan Code ini

var
pwd : string;
begin
// Request Password
  PostMessage(Handle, InputBoxMessage, 0, 0);
  pwd := InputBox('Password Request', 'Masukan Password Aplikasi', '');
end;

- Selesai. Coba Jalankan Kemudian Klik Button Tersebut. Selamat Mencoba :)