Программа (пароль на папку)

[shvint]

Здравствуйте, уважаемые форумчане.
Нарыл в инете вот такую программу, поставить пароль на папку, если пароль неправильный, то она станет скрытой.
Сам листинг:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    btn1: TButton;
    label1: TLabel;
    edit1: TEdit;
    procedure tmr1Timer(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
var
  test:integer;
begin
test:= findWindow (nil, '21');
if test<>0 then
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=('В ведите пароль');
end
else
begin
Label1.Caption:=('Окна нет');
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if Edit1.Text='123' then
begin
ShowWindow(test,SW_SHOWNORMAL);
tmr1.Enabled:=false;
end
else
begin
ShowMessage('Пароль не верный');
end;
end;

end.

папка 21, пароль на нее 123
Вот вопрос, указывает на ошибку if test<>0 then , кто поможет где рыть?
Не могу понять что за ошибка выходит заусловным оператором if



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

это результат кривого копирования из HTML кода...
вместо
if test<>0 then

должно быть

if test<>0 then begin

p.s. а вообще, подобная защита - это мало того, что крайнее неэффективно и достатчно напряжёт систему (за счёт таймера), так ещё и очень слабо. Достаточно пользователю снять Вашу программу (через диспетчер задач), как защита пойдёт коту под хвост..
Ну или просто папку переименовать и всё - заходи в неё на здоровье!

[shvint]

А за подсказку спасибо, что неправильное копирование html, я не подумал.)
Менял по разному всеравно не работает.((

[shvint]

procedure TForm1.tmr1Timer(Sender: TObject);
var
  test:integer;
begin
test:= findWindow (nil, '21');
if test<>0 then
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=('В ведите пароль');
end
else
begin
Label1.Caption:=('Окна нет');
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if Edit1.Text='123' then
begin
ShowWindow(test,SW_SHOWNORMAL);
tmr1.Enabled:=false;
end
else
begin
ShowMessage('Пароль не верный');
end;
end;

end.

Указывает на ошибку ShowWindow(test,SW_SHOWNORMAL);
Воть.((

[Serge_Bliznykov]

объявление переменной test : integer;
вынесите из tmr1Timer в свойства формы:

type
  TForm1 = class(TForm)
    ......
  private
    test : integer;
  public
    { Public declarations }
  end;

а тут убрать:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  test:integer;
begin
test:= findWindow (nil, '21');

[shvint]

РЕБЯТА СПАСИБО ОГРОМНОЕ!
Написал заработала, оформил, только вот создал еще одну кнопку, назвал ее обзор, как приписать к строчке

test:= findWindow (nil, '21');

чтобы папку самому выбирать, а то получится программу отдам, и по умолчанию папка будет под названием 21.
ПОМОГИТЕ ЭТО ПОСЛЕДНЯЯ ПРОСЬБА к этой программке ))

[ZvEr_HaCkEr]

If OpenDialog1.Execute then
test:=FindWindow(nil, OpenDialog1.FileName);

[bestns]

А напиши ще раз на форумі програму . Прошу! Бо я й сам не зрозумів який код тої програми??

[shvint]

Вот программа:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, sButton, sSkinProvider, sSkinManager, sLabel;
type
  TForm1 = class(TForm)
    tmr1: TTimer;
    label1: TLabel;
    edit1: TEdit;
    sknmngr1: TsSkinManager;
    sknprvdr1: TsSkinProvider;
    btn2: TsButton;
    btn3: TsButton;
    lbl1: TsLabel;
    edt1: TEdit;
    procedure tmr1Timer(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure edt1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   test:integer;
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
begin
test:= findWindow (nil, '21');
if test<>0 then
begin
ShowWindow(test,SW_HIDE);
Label1.Caption:=('Введите пожайлуста пароль для разблокировки папки');
end
else
begin
Label1.Caption:=('Окна нет');
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
  if Edit1.Text='123' then
begin
ShowWindow(test,SW_SHOWNORMAL);
tmr1.Enabled:=false;
end
else
begin
ShowMessage('Внимание! А Пароль-то не верный!');
end;
  end;
procedure TForm1.edt1Change(Sender: TObject);
begin
test:= findWindow (nil, PAnsiChar(ExtractFileName(Edit1.Text)));
end;
end.

Вставляю код для кнопки обзор

If OpenDialog1.Execute then
test:=FindWindow(nil, OpenDialog1.FileName);

, все равно не получается подчеркивает ошибку

If OpenDialog1.Execute then

[Serge_Bliznykov]

все равно не получается подчеркивает ошибку

If OpenDialog1.Execute then

а компонент TOpenDialog Вы на форму не забыли кинуть ?!!