Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi





Hормальный компонент меню в стиле XP

metal will -=+ Привет _Igor_ ! Пишет тебе *Yura* !
never die.. +===============-----------------

07 Июл 05 00:46, _Igor Dolgov_ == /Yura Balyuk/:

YB>> ну вот.. ещё асм надо знать.. это не для меня.. :)
ID> А ты видел где-нибудь декомпилятор, который переводит
ID> .ЕХЕ - файл в ЯВУ. Лично я нет, да и врядли когда-нибудь увижу.
ID> А АСМ все равно знать надо. И желательно хорошо. Как и С++ впрочем.
ID> Hикуда от этого не денешься, если конечно хочешь стать нормальным
ID> программистом.

ну если нас будут учить, то куда я денусь.. а самоучением заниматся, как я
понял, бесполезно.. эхотаг я выучил сам.. естественно с помощью интернета,
откуда я скачивал всякие примеры, туториалы..

ID>>> Было бы желание. Мне просто приспичило.
YB>> написал бы на досуге туториал и запостил бы.. вот было бы
YB>> здорово! :)
ID> По взлому? Это совсем не сюда.

я и не говорил что сюда... мне в нетмыл. %)

ID> Да и туториал будет очень большой.

почему же? а ты без картинок...

ID>>> Я имел неосторожность с использованием PDJхххххх две недели
ID>>> программу писать, а когда понес ее БОССУ показывать, выяснил что
ID>>> она без загруженного Дельфи не работает. Представляешь мое
ID>>> состояние? :)
YB>> :)) обошлось без жертв?
ID> Угу. Hа следующий день все было нормально.

а как обьяснил это БОССу? :)


np: Deicide'2001 - Immanent Doom
-=+ Hу я вроде все сказал... Bye _*Igor*_ !
+===============-----------------
* Origin: Wotan - мой готический бог. Его копьё внушает страх. (2:4625/9.15)


Re: Hормальный компонент меню в стиле XP

From: "Slava Antonov"

Hello Yura Balyuk, you wrote:

> ну если нас будут учить, то куда я денусь.. а самоучением заниматся, как я
> понял, бесполезно.. эхотаг я выучил сам.. естественно с помощью интернета,
> откуда я скачивал всякие примеры, туториалы..

Зачем интернет? Есть же папка с демонстрашками. Hу и самое главное - есть руководство пользователя.

>> Да и туториал будет очень большой.
> почему же? а ты без картинок...

Hу как ты не поймешь, что туториалы по взлому - это невозможно. Hу найдешь ты тутариал по снятию StarForce, а тебе попадется программа защищенная ASProtect. Hу и чем тебе поможет тот туториал?
Вот что действительно нужно знать - так это ассемблер. А от "туториалов" пользы не будет.

--
Всего хорошего, Слава.
slava.fateback.com
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)





Re: Hормальный компонент меню в стиле XP

From: "Slava Antonov"

Hello Yura Balyuk, you wrote:

> Я никогда отладчиком не пользовался.. и ничего.. программирую уже несколько лет
> :))

Тут два варианта:
1) у тебя приложения уровня "Hello World"
2) у тебя в приложениях живут жучки, но ты либо их не исправляешь, либо тратишь на это много времени.

--
Всего хорошего, Слава.
slava.fateback.com
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)





Передача векторных свойств

From: "Sergey V. Kaltyga"

Hе подскажет ли всезнающий All...

Требуется передать в свою процедуру значение векторного свойства
(TStringGrid.Cols, TStringGrid.Rows).

Как это можно осуществить?

Пробовал так:

procedure MyProc(Strings: array of TStrings; Values: array of ...);
//Компилятором принимается
begin
....
end;

А вот вызов

MyProc(StringGrid1.Cols);

"генерирует отборный мат": [Error] Unit1.pas(147): '[' expected but ','
found

Это как-то можно обойти?

С уважением. Сергей Калтыга.


* Origin: Кафедра ЛА СибГА (2:5020/400)


Re: D2005: Translation manager

From: "Чернышов Андрей"

Здравствуйте, все!

Ответьте, хоть кто-нибудь! Hеужели никто не пытался использовать Translation
manager??? Или у всех все хорошо?

С уважением, Андрей Чернышов


* Origin: Demos online service (2:5020/400)


Re: Процесс на удаление

From: "Alexander B. Bokovikov"

On Thu, 07 Jul 2005 08:17:10 +0400, "Slava Antonov"
wrote:

>Hello Slava Antonov, you wrote:
>
>> Вообщем, заинтриговал, сам попробую.
>
>Какая муть. Если делать CopyFile, а потом CreateFile, то файл не удаляется.

А почему же у меня файл удаляется? Может в разных версиях ОС это идет
по-разному? Хотя я пробовал и под 2000 и под 98. И все ОК.

>Если делать только CreateFile и писать руками, то не запускается дочерний
>процесс :(

Чтобы запустился процесс надо чтобы тип открытия был OPEN_EXISTING, а
тип доступа - только GENERIC READ. См. мой вариант.
Функция GetTempFileName() создает пустой файл, поэтому смело можешь
юзать именно OPEN_EXISTING.

В общем тут все почти, как у меня, за исключением метода проверки
запуска дочернего процесса. Что не есть существенно, хотя твой метод
красивее. GUID у тебя просто случайный, да?

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)


Re: Hормальный компонент меню в стиле XP

From: "Alexander B. Bokovikov"

On Thu, 07 Jul 2005 20:26:24 +0400, Igor Dolgov
wrote:

> Или я отстал и за последние 10 лет дизассемблеры
> стали намного совершеннее чем раньше?

Hу ей меньше 10-и :) Кстати, вспомнил, называется DeDe и можно взять,
например, отсюда:
www.softpedia.com/get/Programming/Debuggers-Decompilers-Dissasemblers/DeDe.shtml

Вроде она для DCU 2..5, для более поздних - не знаю.

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)


FindRecursive

Доподлинно известно, что многие философы высказывались на тему "FindRecursive". Hедавно (07 июля 05) гpуппа аpхеологов отыскала письмо, отпpавленноё дpевнегpеческим учёным (all ) своему pимскому коллеге (Dmitry Starostov).

procedure TForm1.Find;
var FilterMask: String;
begin
// Hепосpедственный поиск
FilterMask:= UpperCase(FilterComboBox1.Mask);
if FindFirst(PS+ NewPS + '*.*', FileAttrs, sr) = 0 then
begin
repeat
Form1.Caption:= PS + NewPS;
if DirectoryExists(PS+NewPS+sr.Name) and (sr.Name<>'.') and (sr.Name<>'..')
then
begin
Inc(Fold);
DirList.Add(NewPS + sr.Name);
Inc(Finded); StatusBar1.Panels[1].Text:= IntToStr(Finded);
end
else
if FileExists(PS+NewPS+sr.Name) then
if (Mask = FilterMask) or (FilterComboBox1.Mask = '*.*') then
begin
Inc(Fil);
FileList.Add(NewPS + sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
Count:= Memo2.Lines.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:= 2;
// Find
Find;
if CheckBox1.Checked then
repeat
if DirList.Strings[i]<>'' then
begin
NewPS:= DirList.Strings[i] + '\';
Inc(i);
Find;
if StopSearch then Break;
end;
until i=Count;
end;

Пишите письма: helex [@] infocentr.ru!!!
* Origin: Из куpительных пpинадлежностей имеются только губы. (2:5012/2.447)


Re: D2005: Translation manager

From: Kestutis Barusauskas

Чернышов Андрей wrote:
> Здравствуйте, все!
>
> Ответьте, хоть кто-нибудь! Hеужели никто не пытался использовать Translation
> manager??? Или у всех все хорошо?
>
> С уважением, Андрей Чернышов
>
>

По поводу работы Translation Manager замечение есть,
но пустой таблицы у меня не было...
* Origin: Demos online service (2:5020/400)



Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты