Developing.ru

Код: Выделить всё

program X;
{%File 'ModelSupport\Unit1\Unit1.txvpck'}
{%File 'ModelSupport\default.txvpck'}
uses
  Forms,
  Dialogs,
  Controls,
  Unit1 in 'Unit1.pas' {Form1},
{$R *.res}
var
  Passwrd: String;
begin
  if InputQuery(' Duncon','введи пароль', Passwrd) then
    if Passwrd = 'k' then
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end
   else
      MessageDlg('Неправильный пароль, приложение будет закрыто.', mtError, [mbok], 0);
end.

Код: Выделить всё

 procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
 var
   hInputForm, hEdit, hButton: HWND;
 begin
   hInputForm := Screen.Forms[0].Handle;
   if (hInputForm <> 0) then
   begin
     hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
     { 
      hButton := FindWindowEx(hInputForm, 0, 'TButton', nil); 
      SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel'))); 
    }
     SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
   end;
 end;
 procedure TForm1.Create(Sender: TObject);
 var
   InputString: string;
 begin
   PostMessage(Handle, InputBoxMessage, 0, 0);
   InputString := InputBox('Input Box', 'Please Enter a Password', '');
 end;

Код: Выделить всё

procedure SetEditMask(pos: TPoint);
var
  Wnd : HWND;
  a: LongBool;
  lpClassName: array [0..$FF] of Char;
begin
  Wnd := WindowFromPoint(pos);
   //Получаем ссылку на компонент находящийся на координатах
  GetClassName (Wnd, lpClassName, $FF);
   //Получаем класс компонента
  if ((strpas(lpClassName) = 'TEdit') or (strpas(lpClassName) = 'EDIT')) then
   //Если это TEdit или Edit
    PostMessage (Wnd, EM_SETPASSWORDCHAR, 42, 0);
   //Посылаем сообщение PASSWORDCHAR := 42 (код звёздочки)
  InvalidateRect(Wnd,nil,a);
   //Перерисуем окно
end;