Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Форум
F.A.Q.
Архив рассылки
Каталог сайтов
Обратная связь

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Друзья
Юмор

Количество читателей рассылки: 5345.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста, как скрыть программу из списков процессов(Диспетчер задач Windows)? Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: Посетитель)
Дата и время отправки вопроса: 14.07.2006, 18:30
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 4
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 3-ий класс), 14.07.2006, 18:43]:

Здравствуйте, Гринько Виктор Генадьевич!
http://www.delphi.int.ru/expert/?step=download&id=9

2. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 15.07.2006, 04:53]:

Здравствуйте, Гринько Виктор Генадьевич!
Хочу сказать, что это намного сложнее, чем в Win9x, в NT концептуально изменилась работа с процессами, менеджмент памяти и еще очень многое.
Для скрытия от Ctrl-Alt-Del можно использовать статью: http://delphiworld.narod.ru/base/app_xp_hide.html; Только KAV, например, не любит этот код, и Вам прийдется вставить несколько nop в asm вставки dll библиотеки. Но в любом случае, надо понимать, что Ваш процесс не станет полностью невидимым, см. http://www.wasm.ru.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста, можно ли програмно отключить Ctrl+Alt+Delete, и как это сделать? Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: Посетитель)
Дата и время отправки вопроса: 15.07.2006, 16:42
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 3-ий класс), 16.07.2006, 09:46]:

Здравствуйте, Гринько Виктор Генадьевич!
Блокировка Диспечера задач в приложении.

Приложение:

uses registry; procedure DisableTaskMgr(Disable: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if Disable then reg.WriteString('DisableTaskMgr', '1') //блокиреум else reg.WriteString('DisableTaskMgr', '0'); //разблокируем reg.CloseKey; end;

2. [Отвечает: Помфюк Владимир Степанович (статус: 6-ой класс), 17.07.2006, 10:43]:

Здравствуйте, Гринько Виктор Генадьевич!
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,false); - отключить
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,false); - включить обратно

Текст вопроса:

превед всем. никак нимагу понять как на winapi поменять цвет шрифта в окне класса edit со свойством multiline. Кто знает напишите. А также как поменять цвет (и возможно другие аттрибуты) тока выделеннога текста. часть проги чтобы было понятно выкладываю.

Приложение:

... var mwnd:hwnd; editor:hwnd; ... function editorwndproc(wnd,msag,wp,lp:longint):longint;stdcall; begin case msag of wm_keydown: ; end; result:=callwindowproc(oldeditorproc,wnd,msag,wp,lp); end; ... editor:=createwindow('edit','',ws_border or ws_child or es_multiline or es_wantreturn {or WS_HSCROLL }or es_autovscroll or WS_VSCROLL, //{autowordbreak} 10,10,200,250,mwnd,0,instance,nil); {=======================FONTS================================} default_font:=createfont(15,6,0,0,100,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,DRAFT_QUALITY,FF_DONTCARE,'px_df'); {========================EDITOR==============================} sendmessage(editor,wm_setfont,DEFAULT_FONT,1); edc:=getdc(editor); edrect.Left:= 20;edrect.Top:= 3;edrect.Bottom:=250;edrect.Right:=178; SendMessage(editor, EM_SETRECT, 0, LongInt(@edrect)); showwindow(editor,sw_show); OldeditorProc := Pointer(GetWindowLong(editor, GWL_WNDPROC)); SetWindowLong(editor, GWL_WNDPROC, longint(@editorWndProc)); sendmessage(editor,em_setcharformat,scf_all,0); invalidaterect(editor,0,true); updatewindow(mwnd);

Автор вопроса: Будя (статус: Посетитель)
Дата и время отправки вопроса: 17.07.2006, 07:42
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Привет! Подскажите пожалуйста как связать DBTreeView с набором данных в другой таблице таким образом, чтобы, встав курсором на узел, в таблице отображался набор данных всех дочерних веток этого узла?
Спасибо.

Автор вопроса: Алексей (статус: Посетитель)
Дата и время отправки вопроса: 23.07.2006, 13:16
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Как сделать прогу-бота для web-чата, которая будет с заданным интервалом писать мне самому в приват, делая вид, что я сижу за компом? Дело в том, что чат переводит статус в "Отсутствует" через 10 минут после неактивности, а этого бы мне не хотелось. Html-код формы отправки сообщения в чате прилагаю.

Приложение:

<form name=sendmsg action="/fast/msg_add" METHOD=GET target="srv0" onSubmit="return(send(''));" style=""padding:0px;margin:0px">" <input type="submit" class="control" value="&nbsp;ОК&nbsp;" style=""padding:0px;margin:0px">" </td><td> <input type="reset" class="control" value="СТЕРЕТЬ" onClick="clms()" style=""padding:0px;margin:0px">" <input type="hidden" name=uID value="djRxqDmhqmDzKGnzsazV"> <input type="hidden" name=LastFrase value="0"> <input type="hidden" name="mess" value=""> </form>

Автор вопроса: Андрей Щеглов (статус: Посетитель)
Дата и время отправки вопроса: 25.07.2006, 03:47
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Добрый день! Как сделать компонент TWEbBrowser невидимым? Причём если я использую свойство Visible, то видимых изменений не проосходит.

Автор вопроса: Жучков С. (статус: Посетитель)
Дата и время отправки вопроса: 27.07.2006, 07:13
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Darya Ermakova (статус: 8-ой класс), 27.07.2006, 11:05]:

Здравствуйте, Жучков С.!
Используйте метод Hide, помогает.

2. [Отвечает: Евгений В (статус: 1-ый класс), 27.07.2006, 15:05]:

Здравствуйте, Жучков С.!
Попробуйте сделать его размер, равным 0px или 1.
(Width и Height.)

Текст вопроса:

Каким образом можно регулировать громкость звучания при использовании медиаплеера?
Заранее блпгодарен
Генри

Автор вопроса: Freger (статус: Посетитель)
Дата и время отправки вопроса: 27.07.2006, 15:34
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 28.07.2006, 07:13]:

Здравствуйте, Freger!
Можно изменить громкость по каналам.
LeftVolume, RightVolume - значения от 0 дл $FFFF.
waveOutSetVolume объявлена в MMSystem.pas.
Иначе изменить громкость для TMediaPlayer, наверное, не получится.

Приложение:

waveOutSetVolume(0, (<RigthVolume> SHL 16)+<LeftVolume>);

Оценка за ответ: 4.
Комментарий: Спасибо за помощь!

2. [Отвечает: Alexander A. Gribanov (статус: 2-ой класс), 28.07.2006, 12:02]:

Как установить громкость Wave-канала тебе уже рассказали. В приложении - функция для установки общей громкости. Принимает значения от 0 до 65535, где 0 - минимальная громкость, 65535 - максимальная. Эту функцию можно модифицировать для управления громкостью любого канала микшера, изменив строку
line.dwComponentType:=MIXERLINE_COMPONENTTYPE_DST_SPEAKERS на необходимую. Перечень констант MIXERLINE_COMPONENTTYPE_ххххх см. в mmsystem.pas или MSND.

Приложение:

// для работы требуется подключить модуль mmsystem function SetMasterVolume(Volume:word): boolean; var mx:HMIXER; res:MMResult; line:MIXERLINE; details:tMIXERCONTROLDETAILS; prop:MIXERCONTROLDETAILS_UNSIGNED; controls:MIXERLINECONTROLS; vcontrol:MIXERCONTROL; begin result := false; if MixerGetNumDevs = 0 then Exit; res:=MixerOpen(@mx,0,0,0,0); if res<>MMSYSERR_NOERROR then Exit; try line.cbStruct:=SizeOf(line); line.dwComponentType:=MIXERLINE_COMPONENTTYPE_DST_SPEAKERS; res:=mixerGetLineInfo(mx,@line,MIXER_GETLINEINFOF_COMPONENTTYPE); if res<>MMSYSERR_NOERROR then exit; controls.cbStruct:=SizeOf(controls); controls.dwLineID:=line.dwLineID; controls.cControls:=1; controls.dwControlType:=MIXERCONTROL_CONTROLTYPE_VOLUME; controls.cbmxctrl:=SizeOf(vcontrol); controls.pamxctrl:=@vcontrol; vcontrol.cbStruct:=SizeOf(vcontrol); res:=mixerGetLineControls(mx,@controls,MIXER_GETLINECONTROLSF_ONEBYTYPE); if res<>MMSYSERR_NOERROR then exit; details.cbStruct:=SizeOf(details); details.dwControlID:=vcontrol.dwControlID; details.cChannels:=1; details.paDetails:=@prop; details.cbDetails:=SizeOf(prop); details.cMultipleItems:=0; prop.dwValue:=Volume; res:=mixerSetControlDetails(mx,@details,MIXER_SETCONTROLDETAILSF_VALUE); if res=MMSYSERR_NOERROR then result := true; finally MixerClose(mx); end; end;

Оценка за ответ: 4.

Текст вопроса:

У меня есть мои функции:
VVV(S: String): String;
V(S: String): String;
Функция VVV(S: String): String фозвращает текст длиной 3 символа. Если S менше чем 3 символа, то функция добавит вначале нужное количество нулей. Например S=k. Функция вернет 00k.

Функция V(S: String): String тоже фозвращает текст длиной 3 символа. Если S менше чем 3 символа, то функция добавит вконце нужное количество нулей. Например S=k. Функция вернет k00.

Как сделать чтобы пользователь сам выбирал какую ему функцию использовать?
Хочу чтобы в момент когда нужна эта функция, она читалась с нужного параметра в ini-файле, ранее сохраненного пользователем.

Поставль вопрос по-другому!!!!!
В ini-файле записано
[Function]
Funk1=VVV(S)
Funk2=V(S)

Если надо SSS:=VVV(S)+V(S);, то как функции прочитать из ini-файла, чтобы они передались как функции, а не как строки (чтобы было SSS=00kk00, а не SSS=VVV(S)V(S).

Автор вопроса: Игорь Середюк (статус: Посетитель)
Дата и время отправки вопроса: 27.07.2006, 17:47
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 3-ий класс), 27.07.2006, 19:36]:

Здравствуйте, Игорь Середюк!
Всё оч просто. Ставь условия.
var b1, b2: boolean;
if IniF.WriteString('Function','Funk1','VVV(S)')='VVV(S)' then bo1 := true else bo1 := false;
if IniF.WriteString('Function','Funk2','V(S)')='V(S)' then bo2 := true else bo2 := false;

Дальше по аналогии.
Удачи.

2. [Отвечает: Деревяно Евгений (статус: 1-ый класс), 27.07.2006, 21:59]:

Возможно подойдут процедурные типы:

// определяем процедурный тип. Дальше будет использована переменная этого типа.
TFun = function (S: String): String;
...

// объявляем две функции. В вашем примере это функции V и VVV
function Fun1(S: String): String;
begin
Result := 'This is Fun1. ' + s;
end;

function Fun2(S: String): String;
begin
Result := s + ' This is Fun2. ';
end;

// а теперь небольшой пример использования
procedure TForm1.Button1Click(Sender: TObject);
var
Fun: TFun; // объявляем переменную процедурного типа
begin
// в зависимости от какого-либо флага (записанного в ini) выбираем нужную в дальнейшем функцию
if CheckBox1.Checked then
Fun := Fun1
else
Fun := Fun2;
// и дальше можно работать с процедурной переменной, а не с функциями.
ShowMessage(Fun('Any text'));
end;

А чтобы получить 00kk00, следует объявить третью функцию, которая бы делала бы Fun1 + Fun2. При более сложных вариантах (SSS:=VVV(S)+V(S)+VVV(S)+VVV(S)+V(S) и т.д.) без парсера не обойтись.

ЗЫ:
Следует обратить внимание на то, что определение типа TFun, функций Fun1 и Fun2 должны быть идентичными. Более подробно обо всём этом можно почитать в Delphi Help. Топик Procedural types.

3. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 28.07.2006, 00:08]:

Здравствуйте, Игорь Середюк!

Способ №1
if что-то там then что-то там else ;)
Способ №2
Делаешь тип:
type TMyFunc = function(s: string): string;
type
TMyFuncData = record
name: string;
func: TMyFunc;
end;
Затем делаешь массив типа TMyFuncData и инициализиреешь его нужным тебе образом...
Затем читаешь из .ini файла имя, ищеш в списке и используешь нужную функцию...

Оценка за ответ: 5.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. Мне понадобились два компонента для написание одной программы: TServerSocket и TClientSocket, где их взять, точнее скачать и как их установить? (В моем Delphi их нету) Заранее благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 28.07.2006, 01:44
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 8-ой класс), 28.07.2006, 10:38]:

Здравствуйте, Гринько Виктор Генадьевич!
Всё очень просто. Несмотря на то, что эти компоненты почему-то пропали с палитры компонент, физически они сохранились. Добавить их легко:
Component - Install Packages
Щёлкаем Add и выбираем файл DELPHI\Bin\dclsockets70.bpl (цифры могут отличаться - 70 в Delphi 7). Дальше ставим эту галочку, ОК - и компоненты появятся. Удачи!

2. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 28.07.2006, 12:12]:

Здравствуйте, Гринько Виктор Генадьевич!

Я так понимаю в Вас D7. Они есть! Просто не установленные... Borland настоятельно не рекомендует их использовать... о чем собственно сказано в readme.txt на диске Delphi

Установи пакет dclsockets70.bpl и эти компоненты появятся на палитре. Этот пакет у тебя лежит в папке bin

Текст вопроса:

Здравствуйте! Пытаюсь доработать программу NetworkTrafficMonitor (она есть в разделе "скачать"), чтобы можно было задавать тарифы для каждого из соединений; так вот обнаружилась загвоздка с однозначной идентификацией соединения: оригинал программы работает с клиентскими IP-адресами, которые каждый раз отличаются. Решил идентифицировать соединение по IP-адресу сервера, но у меня получается его узнать только анализируя "IPForwardTable" (и то как-то не очень надежно), нет ли другого, более элегантного способа? Или как узнать Windows-наименования активных подключений (типа "Соединение с 77-66-55"). И еще: нет ли компонентов, чтобы добавить функцию дозвона?

Автор вопроса: Косолапов Дмитрий Юрьевич (статус: 2-ой класс)
Дата и время отправки вопроса: 28.07.2006, 13:05
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 3-ий класс), 29.07.2006, 13:48]:

Здравствуйте, Косолапов Дмитрий Юрьевич!
Всё, что Вам нужно, http://www.delphi.int.ru/expert/?step=download&id=11

Оценка за ответ: 5.
Комментарий: Действительно; то что доктор прописал. Спасибо!!!

:))