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

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

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








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






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



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








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


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




Hello Yura Balyuk, you wrote:





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




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

--
Всего хорошего, Слава.
slava.fateback.com









Hello Yura Balyuk, you wrote:




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

--
Всего хорошего, Слава.
slava.fateback.com









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)




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

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

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


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




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








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




Чтобы запустился процесс надо чтобы тип открытия был 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)




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





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". 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;

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;

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

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)




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









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