travando programas

Essa é apenas uma maneira
var
Form1: TForm1;
s:string;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=inputbox(´Senha´,´Digite a palavra chave´,´´);
if Trim(s) <> ´Sonia´ then
halt;//termina ou application.terminate;

end;
end.
O usuario recebe um lugar para digitar uma palavra o problema é que as letras aparecem e nao o *.
GeanCarlos.

Não entendi, por exemplo seu eu quiser que toda vez que alguém vá abrir o Word, apareça uma senha, e caso a senha não seja digitada corretamente ele não deixe a pessoa entrar.
como faço?

Luis Fernando :shock:

Entao coloque um botao que chame o aplicativo, mas que na verdade vai chamar um form com um botao Ok e um edit para password. Se ele digitar a senha certa, entao sim voce chamará a aplicação.
[]´s
Nelson

[quote:50b482fc5d=´Luis Fernando´]Olá pessoal!!!

Tem como eu fazer um programinha, que toda vez que um certo executável for aberto, ele peça uma senha e só abre o executável se a senha for correa?

alguém poderia me ajudar?

obrigado.

Luis Fernando :shock:[/quote:50b482fc5d]