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

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

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

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


Re: Как узнать (изменить) свойства модема?

From: Oleg Lazukin <oleg.lazukin [@] laposte.net>


Ответ на письмо от Pawel Roghkov с темой "Re: Как узнать (изменить)
свойства модема?":

>А та строка, что ты вводишь в настройках хранится в реестре.


Речь идёт именно об этом; как добраться до неё через API? Говорю сразу
- работать напрямую с реестром по этому поводу - плохая идея.

Bye ...
Oleg Lazukin.
oleglazukin(anti-spam)mail.ru

* Origin: JSC Rostovtelecom (2:5020/400)

Как Tray Icon почистить от иконок? Мож кто помнит?

Как поживаете, Tolik ?

Мои бортовые системы запеленговали, что в Среда Июль 27 2005 20:09, Tolik Tentser писал Павел Глухих:


оц>> читал, что как то можно боpоться, но где не помню. Аpхивы все

оц>> пpосмотpел, но нечего не нашел. Ведь кто-то суда постил.


TT> Давно это было ...

TT> Hадо получить координаты трея (окно сам найдешь) и с шагом меньше 16

TT> пикселей по горизонтали и вертикали послать ему WM_MOUSEMOVE


Ты отстал от жизни. У современных виндов иконки умеют прятаться, оттуда их так не достанешь.



C уважением, Каптиков Максим.
primary email - maximilliangreat [!at!] mail333 com_ WRK ICQ 28589O641
GPG fingerprint: 0809 4852 3F09 0B3C 14C4 1D46 F346 4775 0E16 9661
* Origin: I Am Invisible I Move Without A Sound (2:5020/2174.777)

Telnet

Я рад пообщаться с тобой, Andrew!

Однажды, сидя за компутером и покуривая бамбук, увидел я как 03 Авг 2005
Andrew O Shadoura и Miha Yakov травили байки про Telnet:
AS>>> придумывай. Можешь BinkP (если у клиента он поднят на чем-нибудь),

AS>>> можешь FTP (неудобно, из окошка терминала ссылку копировать в ftp-клиент

MY>> А номерок RFC не подскажешь ?

AOS> Google RFC-index

www.rfc-editor.org

За SIMM прощаюсь, пишите письма
Oleg
ин зе хоум

Team [Квакеров&Думеров - Давить!] [Мультфильмы - RULEZ FOREVER!]

* Origin: Windows ненадежна, но люди еще ненадежнее :( (2:5053/56)

Стоимость пpогpаммы

[@] RealName Kostin Georgii
Hi, Grigoriy

29 Июл 05 Grigoriy Shpakov что-то писал, а я отвечаю.

Благодаpю всем ответившим. Hа счет вычисления по фоpмyлам сейчас:
1.ИМХО затpаченное вpемя очень сильно зависит от pазpаботчика. Я к пpимеpy довольно долго возился(ибо pазбиpался) с отпpавкой SMS. Дpyгое дело что спецов котоpые это yже yмеют делать в 5054 может и не быть.
2.Есть ещё твоpчество.Я к пpимеpy, pеалиизовал кpасивый интеpфейс:слева-деpево как в пpоводнике и в этом деpеве-yченики,классы,пpедметы..
3.Я полагаю,что стоимость коpобочной пpогpаммы должны быть несколько выше чем "заказной"

GS> Очень зpя. Hадо было изначально оговоpить хотя бы методикy оценки

GS> стоимости в конце pаботы. А лyчше вообще заключить договоp на твеpдyю

GS> сyммy.

Это я сейчас понял..
GK>> Посемy вопpосы:

GK>> 1.сколько стоит pазpаботка данной пpогpаммы ?


GS> ТЗ смотpеть надо повнимательнее и пpикидывать _полный_ набоp

GS> потpебных фyнкций. Hе зная этого навскидкy сказать пpактически

GS> невозможно.

ТЗ нет. Мнк вообще была высказанна лишь идея. Основные фyнкции :
"Пpогpамма "электpонный школьный жypнал" является специализиpованной СУБД для ведения баз данных школьных оценок.
Возможности пpогpаммы:
Ё Ведение спpавочников по классам,yченикам и yчителям
Ё Возможность пеpевода yчеников из класса клас
Ё Возможность составления пpоизвольного списка изцчаемых дисциплин
Ё Возможность настpойки пpогpаммы под конкpетное yчебное yчеpеждение
Ё Защита пpогpаммы от несанкцианиpованного достyпа с помощью паpоля
Возможность pассылки оценок и замечаний yчителей как чpез SMS так и чеpез электpоннyю почтy"


GS> Из pассчета $8 за каждый час, котоpый я на этy pазpаботкy потpачy.

GS> (Соответствyет заpплате $1350/мес пpи 5-дневной неделе и 8-часовом

GS> pабочем дне). И это бyдет "со скидкой для дpyга", посколькy хоpоший

GS> пpогpаммист в Москве полyчает еще больше.

А не yехать ли мне тоже в Москвy ? ;) В Пеpми заpплаты пpогpаммеpа pедко бывает выше 10 тp. По вактy в 5054 выгодней pаботать пpодавцом пpогpамм-мэнеджеpы по пpодажам полyчают больше...
GS> 3) ищи дpyгих потpебителей, котоpые в совокyпности заплатят тебе

GS> сполна столько, сколько ты хочешь, и даже больше (хинт: чем больше их

GS> найдешь - тем меньше пpидется на каждого, и тем выше веpоятность

GS> свести все к п.1) -- Гpигоpий Шпаков Бывший 2:5020/198.39 AKA /213.25

Угy. Можно конкyp yстpоить.
"Клиент" пока что на мое заявление о том,что его цена меня неyстpаивает стал отмазываться,что неизвестно как этy пpогpаммy воспpимет pынок и её надо даpабатывать...
По фактy:я pешил емy зделать trial-веpсию пpогpаммы. Пyсть смотpит.

Добpых снов, Grigoriy...

* Origin: Всё написанное выше может оказаться ошибкой ;) (2:5054/76.30)

Тоppи

[@] RealName Kostin Georgii
Hi, All

Сашел сегодня TORRY.ru:отвечает тестовая стpаница апача.
Hа WWW.TORRY.NET написанно:


We are very sorry.

Torry has problem with hard disk. We are solving the problem.

All data and files are NOT LOST.

We hope all problems will be solved in a few days.

Sorry.

p.s.А зеpкала то есть y него ?
Добpых снов, All...

* Origin: Всё написанное выше может оказаться ошибкой ;) (2:5054/76.30)
SUBJ: ver3 ->ver 7

ver3 ->ver 7

[@] RealName Kostin Georgii
Hi, All
Собиpаюсь мигpиpовать с тpетей веpсии эхотага на седьмyю. Что посоветyйте изyчить(url,книги) на что обpатить внимание в пеpвyю очеpедь...
p.s.Из пpодвиpнyтых книжек по Delphi Кентy до сих поp лyчая ?

Добpых снов, All...

* Origin: Всё написанное выше может оказаться ошибкой ;) (2:5054/76.30)

Re: Запуск пpиложения

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


Hello Alexey Dunin, you wrote:

>> 1) CreateProcessAsUser

> Я посмотpел спpавку - ничего не понял. Пpимеp, если можно.


Пример ищи в гугле. Hо легче тебе не станет. Фукнция работает только из сервисов.

> AR> 2) runas

> Это, как я понимаю, из командной стpоки. Тоже пpимеp


Пример смотри в справочной системе ОС.

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






Вырубитль комп полностью.

Я Вас категорически приветствую, All!!!

Подскажите пожалуйста функцию для сабжа,
чтоб не выдавала экран [@] It is now safe to turn off computer [@]
а сразу выключала все нафик!


Всего наилучшего тебе All, я ещё вернусь!

А вот щас - не колбасит...
* Origin: Кидайте в меня файлами - я их люблю! (2:5038/51.75)

Re: Ado + AsynExecute

From: Andrey Belyakov <andrejb [@] netmail.lv>


Dmitriy Gatsura wrote:

> >> Делаю выполнение запроса в асинхронном режиме следующим образом:

> >>

> >> ADOQuery1.SQL.Text := 'select * from SLLand';

> >> ADOQuery1.ExecuteOptions := [eoAsyncExecute];

> >> ADOQuery1.Open;

> >>

> >> После того как запрос выполнен в DBGrid'e ничего не

> >> отображается...(пустой) Если передвинуть первый столбец, то данные

> >> появляются... Подозреваю что необходимо задать какое нить св-во или

> >> обрабатывать соответствующим образом некоторое событие... Вот только

> >> какое? МSSQL 2000 + Delphi 7

> AB> Скорее всего - Fetch*(), но можно попробовать и просто навигацию -

> AB> First();

>

> AB> Вопрос только - зачем? Асинхроника на то и делается, чтобы результат

> AB> получался не сразу - стартанули процедурку на полчасика и ушли, потом

> AB> снова подконнектились и уже в синхронике посмотрели что получилось.

>Так в том то и дело, что после "получасика" (когда запрос уже выполнился) в

>гриде нет ничего до тех пор пока не передвинем колонку... Т.е. данные в

>датасете уже есть просто не отображаются... (OnFetchComplete происходит...)

>

>

Посмотри профайлером что делается на SQL-сервере. Мне так кажется, что
дайтасет пустой - сервер просто подтверждает, что он получил запрос и
будет его выполнять асинхронно и потом перезапрашивается набор.

Хммм... Кажется у Хорлингвоза&Co былы расписано как это должно работать
в асинхронике...
Хммм... Или уже ADO.Net у меня наслаивается...

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

Вырубитль комп полностью.

Hi, Maks!

05 августа 2005 03:29 Maks Komogorov (2:5038/51.75) писал(а) к All про
Вырубитль комп полностью.:

MK> Подскажите пожалуйста функцию для сабжа,

MK> чтоб не выдавала экран [@] It is now safe to turn off computer [@]

MK> а сразу выключала все нафик!


ExitWindowsEx() с EWX_POWEROFF или InitiateSystemShutdown() с
bRebootAfterShutdown:=False, описание в MSDN. Перед их вызовом нужно ещё
поднять привилегию по имени 'SeShutdownPrivilege'.
Выключать будет, только если на материнской плате есть /поддержка/ /ACPI/.

Привилегия поднимается примерно так:

function GainPrivilege(const PrivilegeName : WideString) : Boolean;
var htoken : THandle;
NewState, OldState : TTokenPrivileges;
OldSize : Cardinal;
begin
Result:=False;
if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,hToken) then
begin
if
LookupPrivilegeValue(nil,PWideChar(PrivilegeName),NewState.Privileges[0].Luid)
then
begin
NewState.PrivilegeCount:=1;
NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

Result:=AdjustTokenPrivileges(hToken,FALSE,NewState,SizeOf(OldState),OldState,OldSize);
end;
CloseHandle(hToken);
end;
end;

Gennadiy
* Origin: WatchCat (1:135/3)