Сообщений в теме: 21

[Masterzzz]

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

СКАЧАТЬ

[GEVORG_KOBALYAN]

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

[UNIFAIZER]

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

[GEVORG_KOBALYAN]

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

ну зачем те переменная? можно просто так

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text='1234' then begin
Button1.Enabled:=true
end;
end;

[Madd_Dogg]

М...полезно

[GEVORG_KOBALYAN]

 

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

 

СПС очень помог!!!!

[Winston]

Спасибо +

[Masterzzz]

 

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

ну зачем те переменная? можно просто так

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text='1234' then begin
Button1.Enabled:=true
end;
end;

 

так тоже можно)

[MrNanox]

Все работает!А опросы умеешь делать?Я умею!

[Masterzzz]

 

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

 

А У ТЕБЯ КАКАЯ? НЕ ЛАЙТ?

Сообщение отредактировал Masterzzz: 15 марта 2014 - 21:48

[UNIFAIZER]

 

 

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

 

А У ТЕБЯ КАКАЯ? НЕ ЛАЙТ?

 

Нет) она стремная!

[Masterzzz]

 

 

 

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

 

А У ТЕБЯ КАКАЯ? НЕ ЛАЙТ?

 

Нет) она стремная!

 

какая у тебя? 

[MyRaDiK05]

Кто может скинуть мне дельфи с скинами,а то у меня не устанавливает скины!

[afro]

Кто может скинуть мне дельфи с скинами,а то у меня не устанавливает скины!

я могу

[themrfame1]

 

 

 

что установить чтобы команды цветные стали и отображались в начале функции (помощь)?

буду очень признателен!

Этой лайт версия delphi 7 lite 

 

А У ТЕБЯ КАКАЯ? НЕ ЛАЙТ?

 

Нет) она стремная!

 

Подтверждаю.
Лайт стрёмная.
Я пользуюсь лицензией.
Пускай нет подсветок но мне приятней, без лишних  мелочей.
Кстать автор лови +

[Winston]

Прикал

[Тимур]

Скиньте Delphi !! ПРОШУ!  

[BoberMod]

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

Такой пароль за пару секунд можно слить через WnHex:)

[Pan]

 

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

Такой пароль за пару секунд можно слить через WnHex:)

 

А если его заобфускачить??? обфускатором?

[IShark]

 

 

Всем привет! 
Я расскажу вам как разблокировать кнопки по паролю на Delphi7

 

 

Скрытый текст

procedure TForm1.sButton1Click(Sender: TObject);

var pass: string;
begin
Pass:='12345';
if (sEdit1.Text=pass)then
sButton2.Enabled:=True;

end;

Такой пароль за пару секунд можно слить через WnHex:)

 

А если его заобфускачить??? обфускатором?

 

Разве есть обфускатор для delphi? Можно заксорить строку... Да и обфускатор служит для запутывания исходного кода... 

Сообщение отредактировал IShark: 21 июля 2014 - 17:17

[afro]

Что мудрить -то ? 
 

begin

If Edit1.Text ='12345' then begin

Button4.Enabled := true

end

else

MessageDlg('хах!',mtError,[mbOK],0);

end;

 

 

на Button onclick кидаешь , и всё

[afro]

Если честно , то я вообще не вижу смысла создавать эту тему...