/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 421
от 22.03.2006, 22:35

Вопрос № 37.719

Доброе время суток ! Вопрос таков ! Как зделать так чтобы программа находилась постоянно в трее или в процессах и выполняла определённые функции ! Вобшем что-б программа незакрывалась а работала как антивирус ! Или клавиатурный шпион ? Пожалуйста разъесните всё подробно !

Отправлен: 16.03.2006, 23:05 Вопрос задал: Tamashev Denis M (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Latent Здравствуйте, Tamashev Denis M! Существуют много компонентов для сворачивания программы в трей. Можно конечно и самому написать, на самом деле это не очень сложно. Вот ссылки на компоненты IconTray: http://delphi.mtu-net.ru/zip/systray.zip // Компонент SystemTray http://www.pssoft.ru/click/index.php?jump=35 // отличный набор компонентов. Только великоват :) http://www.delphiworld.narod.ru/ // там ты сможешь найти много ответов --------- - Нет ничего невозможного -

Ответ отправил: Latent (статус: 1-ый класс) Ответ отправлен: 16.03.2006, 23:45 Оценка за ответ: 4 Комментарий оценки: Вобше я просил объяснить ну да ладно !

Отвечает: Мещеряков Илья Николаевич Здравствуйте, Tamashev Denis M! Чтобы программа была только в процессах можно применить функцию showWindow. Эта функция выводит окно, если ей передать параметр sw_hide, то программа будет видна только в процессах Приложение: ShowWindow(Handle, SW_hide); ShowWindow(Application_Handle, SW_hide);

Ответ отправил: Мещеряков Илья Николаевич (статус: 1-ый класс) Ответ отправлен: 16.03.2006, 23:49 Оценка за ответ: 5

Отвечает: Николай Б. Здравствуйте, Tamashev Denis M! Нужно при запуске программы скрыть её функцией ShowWindow(Application.Handle, SW_HIDE); В этом случае она будет видна в Windows NT (и старше) на вкладке "Процессы". В приложении код библиотеки, которую можно использовать, чтобы в процессах её не было видно (источник: forum.sources.ru) Пример использования функции из библиотеки: implementation {$R *.dfm} function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall; external 'nthide.dll'; // чтобы вызвать функцию скрытия процесса procedure TForm1.FormCreate(Sender: TObject); begin HideProcess(GetCurrentProcessId, false); //это спрячет текущий процесс end; PS: Создание dll: Запукаешь Delphi: File -> New -> Other... -> DLL Wizard Приложение: library NTHide; uses Windows, SysUtils, ImageHlp, TlHelp32; type SYSTEM_INFORMATION_CLASS = ( SystemBasicInformation, SystemProcessorInformation, SystemPerformanceInformation, SystemTimeOfDayInformation, SystemNotImplemented1, SystemProcessesAndThreadsInformation, SystemCallCounts, SystemConfigurationInformation, SystemProcessorTimes, SystemGlobalFlag, SystemNotImplemented2, SystemModuleInformation, SystemLockInformation, SystemNotImplemented3, SystemNotImplemented4, SystemNotImplemented5, SystemHandleInformation, SystemObjectInformation, SystemPagefileInformation, SystemInstructionEmulationCounts, SystemInvalidInfoClass1, SystemCacheInformation, SystemPoolTagInformation, SystemProcessorStatistics, SystemDpcInformation, SystemNotImplemented6, SystemLoadImage, SystemUnloadImage, SystemTimeAdjustment, SystemNotImplemented7, SystemNotImplemented8, SystemNotImplemented9, SystemCrashDumpInformation, SystemExceptionInformation, SystemCrashDumpStateInformation, SystemKernelDebuggerInformation, SystemContextSwitchInformation, SystemRegistryQuotaInformation, SystemLoadAndCallImage, SystemPrioritySeparation, SystemNotImplemented10, SystemNotImplemented11, SystemInvalidInfoClass2, SystemInvalidInfoClass3, SystemTimeZoneInformation, SystemLookasideInformation, SystemSetTimeSlipEvent, SystemCreateSession, SystemDeleteSession, SystemInvalidInfoClass4, SystemRangeStartInformation, SystemVerifierInformation, SystemAddVerifier, SystemSessionProcessesInformation ); _IMAGE_IMPORT_DESCRIPTOR = packed record case Integer of 0:( Characteristics: DWORD); 1:( OriginalFirstThunk:DWORD; TimeDateStamp:DWORD; ForwarderChain: DWORD; Name: DWORD; FirstThunk: DWORD); end; IMAGE_IMPORT_DESCRIPTOR=_IMAGE_IMPORT_DESCRIPTOR; PIMAGE_IMPORT_DESCRIPTOR=^IMAGE_IMPORT_DESCRIPTOR; PFARPROC=^FARPROC; procedure ReplaceIATEntryInOneMod(pszCallerModName: Pchar; pfnCurrent: FarProc; pfnNew: FARPROC; hmodCaller: hModule); var ulSize: ULONG; pImportDesc: PIMAGE_IMPORT_DESCRIPTOR; pszModName: PChar; pThunk: PDWORD; ppfn:PFARPROC; ffound: LongBool; written: DWORD; begin pImportDesc:= ImageDirectoryEntryToData(Pointer(hmodCaller), TRUE,IMAGE_DIRECTORY_ENTRY_IMPORT, ulSize); if pImportDesc = nil then exit; while pImportDesc.Name<>0 do begin pszModName := PChar(hmodCaller + pImportDesc.Name); if (lstrcmpiA(pszModName, pszCallerModName) = 0) then break; Inc(pImportDesc); end; if (pImportDesc.Name = 0) then exit; pThunk := PDWORD(hmodCaller + pImportDesc.FirstThunk); while pThunk^<>0 do begin ppfn := PFARPROC(pThunk); fFound := (ppfn^ = pfnCurrent); if (fFound) then begin VirtualProtectEx(GetCurrentProcess,ppfn,4,PAGE_EXECUTE_READWRITE,written); WriteProcessMemory(GetCurrentProcess, ppfn, @pfnNew, sizeof(pfnNew), Written); exit; end; Inc(pThunk); end; end; var addr_NtQuerySystemInformation: Pointer; mypid: DWORD; fname: PCHAR; mapaddr: PDWORD; hideOnlyTaskMan: PBOOL; function myNtQuerySystemInfo(SystemInformationClass: SYSTEM_INFORMATION_CLASS; SystemInformation: Pointer; SystemInformationLength:ULONG; ReturnLength:PULONG):LongInt; stdcall; label onceagain, getnextpidstruct, quit, fillzero; asm push ReturnLength push SystemInformationLength push SystemInformation push dword ptr SystemInformationClass call dword ptr [addr_NtQuerySystemInformation] or eax,eax jl quit cmp SystemInformationClass, SystemProcessesAndThreadsInformation jne quit onceagain: mov esi, SystemInformation getnextpidstruct: mov ebx, esi cmp dword ptr [esi],0 je quit add esi, [esi] mov ecx, [esi+44h] cmp ecx, mypid jne getnextpidstruct mov edx, [esi] test edx, edx je fillzero add [ebx], edx jmp onceagain fillzero: and [ebx], edx jmp onceagain quit: mov Result, eax end; procedure InterceptFunctions; var hSnapShot: THandle; me32: MODULEENTRY32; begin addr_NtQuerySystemInformation:=GetProcAddress(getModuleHandle('ntdll.dll'),'NtQuerySystemInformation'); hSnapShot:=CreateToolHelp32SnapShot(TH32CS_SNAPMODULE,GetCurrentProcessId); if hSnapshot=INVALID_HANDLE_VALUE then exit; try ZeroMemory(@me32,sizeof(MODULEENTRY32)); me32.dwSize:=sizeof(MODULEENTRY32); Module32First(hSnapShot,me32); repeat ReplaceIATEntryInOneMod('ntdll.dll',addr_NtQuerySystemInformation,@MyNtQuerySystemInfo,me32.hModule); until not Module32Next(hSnapShot,me32); finally CloseHandle(hSnapShot); end; end; procedure UninterceptFunctions; var hSnapShot: THandle; me32: MODULEENTRY32; begin addr_NtQuerySystemInformation:=GetProcAddress(getModuleHandle('ntdll.dll'),'NtQuerySystemInformation'); hSnapShot:=CreateToolHelp32SnapShot(TH32CS_SNAPMODULE,GetCurrentProcessId); if hSnapshot=INVALID_HANDLE_VALUE then exit; try ZeroMemory(@me32,sizeof(MODULEENTRY32)); me32.dwSize:=sizeof(MODULEENTRY32); Module32First(hSnapShot,me32); repeat ReplaceIATEntryInOneMod('ntdll.dll',@MyNtQuerySystemInfo,addr_NtQuerySystemInformation,me32.hModule); until not Module32Next(hSnapShot,me32); finally CloseHandle(hSnapShot); end; end; var HookHandle: THandle; function CbtProc(code: integer; wparam: integer; lparam: integer):Integer; stdcall; begin Result:=0; end; procedure InstallHook; stdcall; begin HookHandle:=SetWindowsHookEx(WH_CBT, @CbtProc, HInstance, 0); end; var hFirstMapHandle:THandle; function HideProcess(pid:DWORD; HideOnlyFromTaskManager:BOOL):BOOL; stdcall; var addrMap: PDWORD; ptr2: PBOOL; begin mypid:=0; result:=false; hFirstMapHandle:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,8,'NtHideFileMapping'); if hFirstMapHandle=0 then exit; addrMap:=MapViewOfFile(hFirstMapHandle,FILE_MAP_WRITE,0,0,8); if addrMap=nil then begin CloseHandle(hFirstMapHandle); exit; end; addrMap^:=pid; ptr2:=PBOOL(DWORD(addrMap)+4); ptr2^:=HideOnlyFromTaskManager; UnmapViewOfFile(addrMap); InstallHook; result:=true; end; exports HideProcess; var hmap: THandle; procedure LibraryProc(Reason: Integer); begin if Reason = DLL_PROCESS_DETACH then if mypid > 0 then UninterceptFunctions() else CloseHandle(hFirstMapHandle); end; begin hmap:=OpenFileMapping(FILE_MAP_READ,false,'NtHideFileMapping'); if hmap=0 then exit; try mapaddr:=MapViewOfFile(hmap,FILE_MAP_READ,0,0,0); if mapaddr=nil then exit; mypid:=mapaddr^; hideOnlyTaskMan:=PBOOL(DWORD(mapaddr)+4); if hideOnlyTaskMan^ then begin fname:=allocMem(MAX_PATH+1); GetModuleFileName(GetModuleHandle(nil),fname,MAX_PATH+1); if not (ExtractFileName(fname)='taskmgr.exe') then exit; end; InterceptFunctions; finally UnmapViewOfFile(mapaddr); CloseHandle(Hmap); DLLProc:=@LibraryProc; end; end.

Ответ отправил: Николай Б. (статус: 2-ой класс) Ответ отправлен: 17.03.2006, 09:15 Оценка за ответ: 5 Комментарий оценки: Нет от библеотеки придётся отказаца !

Вопрос № 37.762

Здравствуйте Уважаемые Эксперты! У меня к Вам два вопроса. Первый вопрос как сделать такую функцию, которая есть и в Delphi, нажимаешь на плюсик и список разворачивается нажимаешь на минус своручивается? Желательно с примером. Второй вопрос, я недавно начал изучать программирование и во всех учебниках, которые я изучал ни слова не упоминается о таком компоненте как фрейм, подскажите для чего он нужен, и как его использовать? Желательно с парой простеньких примеров. А также где о фреймах можно узнать подробнее? Заранее Спасибо.

Отправлен: 17.03.2006, 11:38 Вопрос задал: Шишкин М.А. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: evgenka13 Здравствуйте, Шишкин М.А.! Вот http://crossing.org.ua/1211385 попробуйте. Там и про фрейм почитать можно и про списки кое что есть, может чё ещё полезное найдёте. Удачи!

Ответ отправил: evgenka13 (статус: 3-ий класс) Ответ отправлен: 17.03.2006, 13:19

Отвечает: Ерёмин Андрей Здравствуйте, Шишкин М.А.! 1) Для этой цели служит компонент TOutline из вкладки Win 3.1. В нём можно группировать строки списка и будут эти самые "плюсики". 2) Frame's служат для отображения одного окна внутри другого окна. Пример: создаёте фрейм (File - New - Frame). Затем на форму помещаете компонент Frames и из списка выбираете созданный фрейм. Теперь его содержимое будет отображаться на форме. Это удобно в случае, если некоторые операции должны быть доступны как из формы, так и в отдельном окне. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 17.03.2006, 15:10

Вопрос № 37.797

Доброе время суток, уважаемые эксперты! Может вопрос не туда, но не знаю куда задать. Дайте пожалуйста ссылочку на материалы по использованию нейроалгоритмов. Не общую теорию (она слишком размытая), а конкретные алгоритмы программ или исходники (если такое вообще есть). Заранее благодарен всем кто откликнется.

Отправлен: 17.03.2006, 21:42 Вопрос задал: Sokol (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, Sokol! http://www.remax22.chat.ru/ - здесь валялась библиотека по работе с нейросетями. Если занимаетесь этой проблемой, то, думаю, разберетесь. :)

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 22.03.2006, 06:46

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.20 (beta) от 17.03.2006