Цитата:
|
Сообщение от sistemsx
А можно по подробней? Принцип реализации.
|
на счет реестра.
Вот нашел в инете, может кому тоже пригодиться. При открытие окна, окно закрывается и надо ввести пароль. С проводником работает, в тотол командаре нет. Может кто нибудь знает как указать что Тотол командаре тоже работало.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='123' then
begin
ShowWindow(test,SW_SHOWNORMAL); //как указать для тотол командара вот здесь?
timer1.Enabled:=false;
end
else
begin
ShowMessage('Пароль не верный');
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
test:= findWindow (nil, 'sicret'); //как указать для тотол командара вот здесь?
if test<>0 then
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=('В ведите пароль');
end
else
begin
Label1.Caption:=('Окна нет');
end;
end;
end.
MAD: Или пользуемся тегами, или бан!