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

для защиты Windows приложений

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

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


Re: Ищу компонент для записи картинок на DVD

From: "Burlakov V." <bva [@] dd.vaz.tlt.ru>


Hello, Alex!

AK> И что сей компонент должен делать?


запись картинок ввиде слайд-шоу на DVD диск, для последующего просмотра в
бытовом проигрывателе

AK> Если то, о чем я подумал - юзай NeroAPI


спасибо, посмотрю

================
Burlakov Vjacheslav
E-mail : buva [@] dd.vaz.tlt.ru


* Origin: GenDR News Server (2:5020/400)

огpаничить pазмеp папки

|========/ ПpиветЪ, Rouslan... \========|

RI>>> Скажите PLS как огpаничить pазмеp папки. Скажем я напишу пpогpамму

RI>>> котоpая

RI>>> постоянно будет висеть в памяти и пpовеpять сколько весит папка. Как

RI>>> только pазмеp ее пpевысит заданную.. oops, вот здесь я и не знаю

RI>>> что можно сделать... как быть-то? не могу-же я удалять какие-либо

RI>>> файлы, это негативно. Подскажи, всезнающий All?


RI> В смысле?


Вопрос в чем состоит? Hе дать папке "распухнуть" больше заданного размера?

|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)

эквивалентность

|========/ ПpиветЪ, Konstantin... \========|

KV> (Form1.Components[2] as TLabel)

KV> и

KV> TLabel(Form1.Components[2])


1-я делает проверку - является ли 2-й компонент лейблом. Вторая нет.

KV> Если есть, то какая и как лучше писать?


Hужна скорость и есть прямые руки - 2-е. Если нет - то 1-е.

Говорят, в случае 2, если не то подсунуть, оно может и диск отформатировать. :)

Кстати, 1-е эквивалентно:

if form1.components[1] is tlabel then tlabel(form1.components[2]:=<и далее по
тексту>;


|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)

огpаничить pазмеp папки

From: "Anatoly Podgoretsky" <anatoly [@] podgoretsky.com>


Hello, Rouslan!
You wrote to Kaigorodov Anthony on Thu, 08 Sep 2005 05:49:21 +0400:

RI> Или может, если папка начала весить больше то пpосто блокиpовать запись

в нее,

За что такое злодеяние по отношению к пользователю

RI> выводить сообщение и юзеp сам допpет что надо почистить


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

С уважением!
Анатолий Подгорецкий

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

test

From: "Nikolay Cizganov" <sna-gem [@] r66.ru>



test

С уважением, Сызганов Hиколай.
sna-gem [@] r66.ru

* Origin: Gamma NNTP server Moscow Russia (2:5020/400)

Re: записать сцену OpenGL в AVI

From: "Slava Antonov" <deadbeef [@] so.yandex.ru>


Hello Dmitry Troitsky, you wrote:

> посоветуйте: имеется собственный компонент, на котором динамически

> изображается 3D сцена (OpenGL). Hадо этот фильм записать в avi-файл. Какие

> могут быть варианты? Чем вообще можно создавать avi-шки из Delphi?


Тем же, чем и в других языках - DirectShow

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






Re: JPEG

From: "Slava Antonov" <deadbeef [@] so.yandex.ru>


Hello Vitaliy Leschenko, you wrote:

> Как можно загpузить jpeg-файл не используя VCL?


Использовать сторонние классы, коих полно.

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






огpаничить pазмеp папки

|========/ ПpиветЪ, Anatoly... \========|

AP> Только это и этого достаточно, как например отключение системы

AP> безопасности или получения критических обновлений, постоянно

AP> напоминать,

AP> что почисть папку зараза


Гы... натравить программу на папку виндовс и при >1кб это выдавать. :)


|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)

Re: TServersocket & TClientSocket

From: Alexander Tomilov <asteroid [@] perm.ru>


Хаю ду ю ду Anatoly Podgoretsky?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:

AP> Client/ServerSocket - delphi7\bin\dclsockets70.bpl

AP> Quick Report - delphi7\bin\dclqrt70.bpl

AP> TeeChart = delphi7\Bin\dcltqr70.bpl


Еще прикол с TColorGrid (со вкладки Samples в 5-ке) - юнит (ColorGrd)
остался, а компонент снесли, хотя в 5-ой Delphi борланд сам юзал
данный компонент.

--
Странно, а у меня сидюк читается только с одной стороны
Alexander Tomilov E-mail: asteroid (at) perm (dot) raid (dot) ru
Форум не обо всем, но многом: sforum.hut1.ru/forum/

* Origin: Asteroid Software (2:5020/400)

Дюймы или Миллиметры ? - Как узнать региональные устновки

--=+-==================================--
-=+= Я вас категорически приветсвую, aleXander!

Среда, Август 24 2033, aleXander Olegovich Fedorov писал для All:
aF> Hа компе может быть по умолчанию установлены единицы в миллиметрах или

aF> дюймах (в региональных установках Windows). Как узнать какие единицы в

aF> винде стоят по умолчанию?

Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.

Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":



function TForm1.GetLocaleInformation(Flag: Integer): string;
var
pcLCA: array [0..20] of Char;
begin
if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then
pcLCA[0] := #0;
Result := pcLCA;
end;




Пример использования функции:



procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;




"Flag" может содержать следующее значение (если посмотреть в Windows.pas):



LOCALE_NOUSEROVERRIDE { do not use user overrides }
LOCALE_USE_CP_ACP { use the system ACP }
LOCALE_ILANGUAGE { language id }
LOCALE_SLANGUAGE { localized name of language }
LOCALE_SENGLANGUAGE { English name of language }
LOCALE_SABBREVLANGNAME { abbreviated language name }
LOCALE_SNATIVELANGNAME { native name of language }
LOCALE_ICOUNTRY { country code }
LOCALE_SCOUNTRY { localized name of country }
LOCALE_SENGCOUNTRY { English name of country }
LOCALE_SABBREVCTRYNAME { abbreviated country name }
LOCALE_SNATIVECTRYNAME { native name of country }
LOCALE_IDEFAULTLANGUAGE { default language id }
LOCALE_IDEFAULTCOUNTRY { default country code }
LOCALE_IDEFAULTCODEPAGE { default oem code page }
LOCALE_IDEFAULTANSICODEPAGE { default ansi code page }
LOCALE_IDEFAULTMACCODEPAGE { default mac code page }
LOCALE_SLIST { list item separator }
LOCALE_IMEASURE { 0 = metric, 1 = US }
^^^^^^^^^^^^^^^ это твоё
LOCALE_SDECIMAL { decimal separator }
LOCALE_STHOUSAND { thousand separator }
LOCALE_SGROUPING { digit grouping }
LOCALE_IDIGITS { number of fractional digits }
LOCALE_ILZERO { leading zeros for decimal }
LOCALE_INEGNUMBER { negative number mode }
LOCALE_SNATIVEDIGITS { native ascii 0-9 }
LOCALE_SCURRENCY { local monetary symbol }
LOCALE_SINTLSYMBOL { intl monetary symbol }
LOCALE_SMONDECIMALSEP { monetary decimal separator }
LOCALE_SMONTHOUSANDSEP { monetary thousand separator }
LOCALE_SMONGROUPING { monetary grouping }
LOCALE_ICURRDIGITS { # local monetary digits }
LOCALE_IINTLCURRDIGITS { # intl monetary digits }
LOCALE_ICURRENCY { positive currency mode }
LOCALE_INEGCURR { negative currency mode }
LOCALE_SDATE { date separator }
LOCALE_STIME { time separator }
LOCALE_SSHORTDATE { short date format string }
LOCALE_SLONGDATE { long date format string }
LOCALE_STIMEFORMAT { time format string }
LOCALE_IDATE { short date format ordering }
LOCALE_ILDATE { long date format ordering }
LOCALE_ITIME { time format specifier }
LOCALE_ITIMEMARKPOSN { time marker position }
LOCALE_ICENTURY { century format specifier (short date) }
LOCALE_ITLZERO { leading zeros in time field }
LOCALE_IDAYLZERO { leading zeros in day field (short date) }
LOCALE_IMONLZERO { leading zeros in month field (short date) }
LOCALE_S1159 { AM designator }
LOCALE_S2359 { PM designator }
LOCALE_ICALENDARTYPE { type of calendar specifier }
LOCALE_IOPTIONALCALENDAR { additional calendar types specifier }
LOCALE_IFIRSTDAYOFWEEK { first day of week specifier }
LOCALE_IFIRSTWEEKOFYEAR { first week of year specifier }
LOCALE_SDAYNAME1 { long name for Monday }
LOCALE_SDAYNAME2 { long name for Tuesday }
LOCALE_SDAYNAME3 { long name for Wednesday }
LOCALE_SDAYNAME4 { long name for Thursday }
LOCALE_SDAYNAME5 { long name for Friday }
LOCALE_SDAYNAME6 { long name for Saturday }
LOCALE_SDAYNAME7 { long name for Sunday }
LOCALE_SABBREVDAYNAME1 { abbreviated name for Monday }
LOCALE_SABBREVDAYNAME2 { abbreviated name for Tuesday }
LOCALE_SABBREVDAYNAME3 { abbreviated name for Wednesday }
LOCALE_SABBREVDAYNAME4 { abbreviated name for Thursday }
LOCALE_SABBREVDAYNAME5 { abbreviated name for Friday }
LOCALE_SABBREVDAYNAME6 { abbreviated name for Saturday }
LOCALE_SABBREVDAYNAME7 { abbreviated name for Sunday }
LOCALE_SMONTHNAME1 { long name for January }
LOCALE_SMONTHNAME2 { long name for February }
LOCALE_SMONTHNAME3 { long name for March }
LOCALE_SMONTHNAME4 { long name for April }
LOCALE_SMONTHNAME5 { long name for May }
LOCALE_SMONTHNAME6 { long name for June }
LOCALE_SMONTHNAME7 { long name for July }
LOCALE_SMONTHNAME8 { long name for August }
LOCALE_SMONTHNAME9 { long name for September }
LOCALE_SMONTHNAME10 { long name for October }
LOCALE_SMONTHNAME11 { long name for November }
LOCALE_SMONTHNAME12 { long name for December }
LOCALE_SMONTHNAME13 { long name for 13th month (if exists) }
LOCALE_SABBREVMONTHNAME1 { abbreviated name for January }
LOCALE_SABBREVMONTHNAME2 { abbreviated name for February }
LOCALE_SABBREVMONTHNAME3 { abbreviated name for March }
LOCALE_SABBREVMONTHNAME4 { abbreviated name for April }
LOCALE_SABBREVMONTHNAME5 { abbreviated name for May }
LOCALE_SABBREVMONTHNAME6 { abbreviated name for June }
LOCALE_SABBREVMONTHNAME7 { abbreviated name for July }
LOCALE_SABBREVMONTHNAME8 { abbreviated name for August }
LOCALE_SABBREVMONTHNAME9 { abbreviated name for September }
LOCALE_SABBREVMONTHNAME10 { abbreviated name for October }
LOCALE_SABBREVMONTHNAME11 { abbreviated name for November }
LOCALE_SABBREVMONTHNAME12 { abbreviated name for December }
LOCALE_SABBREVMONTHNAME13 { abbreviated name for 13th month (if exists) }
LOCALE_SPOSITIVESIGN { positive sign }
LOCALE_SNEGATIVESIGN { negative sign }
LOCALE_IPOSSIGNPOSN { positive sign position }
LOCALE_INEGSIGNPOSN { negative sign position }
LOCALE_IPOSSYMPRECEDES { mon sym precedes pos amt }
LOCALE_IPOSSEPBYSPACE { mon sym sep by space from pos amt }
LOCALE_INEGSYMPRECEDES { mon sym precedes neg amt }
LOCALE_INEGSEPBYSPACE { mon sym sep by space from neg amt }
LOCALE_FONTSIGNATURE { font signature }
LOCALE_SISO639LANGNAME { ISO abbreviated language name }
LOCALE_SISO3166CTRYNAME { ISO abbreviated country name }

Взято с DELPHI WORLD, проверял на днях недели.

Я с вами категорически прощаюсь. _Alex_.
,---||]|||||||+---. ,---------Четверг, Сентябрь 08 2005, 19:50.
* Origin: Press anykey to continue or any other key to exit. (2:5012/40.8)