Парадокс проверки... или кривой код ?

Форум » [x]Harbour » Парадокс проверки... или кривой код ? » Ответить

Парадокс проверки... или кривой код ?

Andrey: Всем привет. Столкнулся с пробемой запуска программы месяца 2 назад. Небольшое пояснение: в фирме стоит моя сетевая программа. В качестве антивируса официальный DRWEB на всех компах, обновлется через инет. Проверку моей папки ВООБЩЕ отключили. На 2 компах (98 и ХР) моя прога запускается сразу (меньше минуты), а на других 3 (ХР) - тормоза, запуск примерно минут через 20 !!! Грешил на сеть, свич и т.д. А ларчик просто открылся. Сделал трасировку задачи (написал запись в лог-файл время выполнения всех функций при запуске). И выяснил, что единственный тормоз это функция - Проверки запуска предыдущей копии программы !!! Время ее выполнения 20 мнут в среднем... Почему, непонятно ? Код программы хХарбор 1.0+BCC привожу :http://zalil.ru/30765956 Кто подскажет как исправить систему или код ? Переставлять систему не могу, стоит банк-клиент, бухгалтерская прога и т.д. Все компы рабочие, не тормозят...

Ответов - 51, стр: 1 2 3 All

fil: Сделать эту проверку не через мутекс, а через findwindow или taskbar. Всяко моно..

PSP: ... да и мютекс работает...

PSP: Andrey пишет: И выяснил, что единственный тормоз это функция - Проверки запуска предыдущей копии программы Ну, теперь таким же образом выясни, в каком месте этой функции затык происходит.

Andrey: fil пишет: Сделать эту проверку не через мутекс, а через findwindow или taskbar. Всяко моно.. А как ? Приведи пример пожалуйста...

fil: Ну как - по findwindow ищем главное окно твоей проги с заголовком (см. на форуме) Ежели в MiniGui моно получить список задач/процессов, то по имени exe-шника

Andrey: Добрался я наконец то до тормознутых компов в сетке. Сделал отдельную прогу проверки запуска. Исходник здесь: http://files.mail.ru/OU0J16 На 2-х компах в сетке проверяестя примерно за 8 сек. Лог-файл: Запуск программы - proga3.exe в 16:40:34 FUNCTION MyIsExeRun() - Start 16:40:34 FUNCTION GetWindowList() - Start 16:40:34 GetWindowList() - Start 16:40:34 131496 = 00 мин. 00 сек. 65664 = 00 мин. 00 сек. 65662 = 00 мин. 00 сек. 65658 CiceroUIWndFrame = 00 мин. 00 сек. 65642 = 00 мин. 00 сек. 65636 = 00 мин. 00 сек. 65640 = 00 мин. 00 сек. 65638 = 00 мин. 00 сек. 196670 = 00 мин. 00 сек. 65906 = 00 мин. 00 сек. 131426 = 00 мин. 00 сек. 65680 SysFader = 00 мин. 00 сек. 196890 = 00 мин. 00 сек. 328014 = 00 мин. 00 сек. 196910 = 00 мин. 00 сек. 196916 HDMI Settings = 00 мин. 00 сек. 196870 S/PDIF IN/OUT Settings = 00 мин. 01 сек. 196876 Set Device Type = 00 мин. 01 сек. 328012 Mixer ToolBox = 00 мин. 01 сек. 65788 Параметры разъёма = 00 мин. 01 сек. 65734 = 00 мин. 01 сек. 65732 CiceroUIWndFrame = 00 мин. 01 сек. 65668 TF_FloatingLangBar_WndTitle = 00 мин. 01 сек. 524676 = 00 мин. 01 сек. 197040 Программа проверки запуска ! = 00 мин. 01 сек. 131492 = 00 мин. 01 сек. 131498 = 00 мин. 01 сек. 65952 = 00 мин. 01 сек. 131480 = 00 мин. 01 сек. 131466 MCI command handling window = 00 мин. 01 сек. 196998 = 00 мин. 02 сек. 196684 = 00 мин. 02 сек. 65940 !для тормозов = 00 мин. 02 сек. 65912 = 00 мин. 02 сек. 65900 = 00 мин. 02 сек. 196950 = 00 мин. 02 сек. 196914 DTS Connect = 00 мин. 02 сек. 196880 Dolby Home Threater = 00 мин. 02 сек. 196906 Advance Setting = 00 мин. 02 сек. 196872 TOOLBOX = 00 мин. 02 сек. 196908 Load EQ Preset = 00 мин. 02 сек. 328020 DeleteEQ = 00 мин. 02 сек. 65752 Save EQ = 00 мин. 02 сек. 65748 Realtek HD Audio Manager = 00 мин. 03 сек. 65724 BackMain_Form = 00 мин. 03 сек. 196886 Диспетчер Realtek HD = 00 мин. 03 сек. 196892 = 00 мин. 03 сек. 196922 = 00 мин. 03 сек. 196888 = 00 мин. 03 сек. 196918 = 00 мин. 03 сек. 196924 = 00 мин. 03 сек. 196882 = 00 мин. 03 сек. 196920 = 00 мин. 03 сек. 196878 = 00 мин. 03 сек. 131338 = 00 мин. 03 сек. 131376 = 00 мин. 03 сек. 262474 = 00 мин. 03 сек. 196946 = 00 мин. 04 сек. 196868 = 00 мин. 04 сек. 131392 = 00 мин. 04 сек. 131390 = 00 мин. 04 сек. 131396 = 00 мин. 04 сек. 131394 = 00 мин. 04 сек. 131400 = 00 мин. 04 сек. 131398 = 00 мин. 04 сек. 131364 = 00 мин. 04 сек. 131362 = 00 мин. 04 сек. 131368 = 00 мин. 04 сек. 131366 = 00 мин. 04 сек. 131408 = 00 мин. 04 сек. 131330 = 00 мин. 04 сек. 65824 = 00 мин. 05 сек. 65822 = 00 мин. 05 сек. 65750 = 00 мин. 05 сек. 65782 = 00 мин. 05 сек. 65772 Connections Tray = 00 мин. 05 сек. 65768 Индикатор батарей = 00 мин. 05 сек. 65766 MS_WebcheckMonitor = 00 мин. 05 сек. 65764 = 00 мин. 05 сек. 65762 = 00 мин. 05 сек. 65760 = 00 мин. 05 сек. 65758 = 00 мин. 05 сек. 65756 = 00 мин. 05 сек. 65746 = 00 мин. 05 сек. 65744 = 00 мин. 06 сек. 65742 = 00 мин. 06 сек. 65730 = 00 мин. 06 сек. 65722 = 00 мин. 06 сек. 65720 = 00 мин. 06 сек. 65718 = 00 мин. 06 сек. 65716 = 00 мин. 06 сек. 65714 = 00 мин. 06 сек. 65712 = 00 мин. 06 сек. 65710 = 00 мин. 06 сек. 65708 = 00 мин. 06 сек. 65706 = 00 мин. 06 сек. 65704 = 00 мин. 06 сек. 65702 = 00 мин. 06 сек. 65700 Диспетчер синхронизации = 00 мин. 07 сек. 65698 = 00 мин. 07 сек. 65696 HkWndName = 00 мин. 07 сек. 65688 PersistWndName = 00 мин. 07 сек. 65648 igfxtrayWindow = 00 мин. 07 сек. 65646 = 00 мин. 07 сек. 196668 = 00 мин. 07 сек. 262232 = 00 мин. 07 сек. 262230 = 00 мин. 07 сек. 65792 = 00 мин. 07 сек. 65728 = 00 мин. 07 сек. 65682 = 00 мин. 07 сек. 65666 = 00 мин. 08 сек. 0 Program Manager = 00 мин. 08 сек. GetWindowList() - End = 16:40:34 FUNCTION GetWindowList() - End = 00 мин. 08 сек. AAdd( aMenu , ...... )00 мин. 00 сек. FUNCTION ISEXERUNNING() - Start 16:40:42 FUNCTION ISEXERUNNING() - End = 00 мин. 00 сек. FUNCTION MyIsExeRun() - End = 00 мин. 08 сек. На других (уже 4 штуки) компах минут по 20 !!! Картинку привожу: Увеличить Кусок лог-файла привожу (целиком не дождался): Запуск программы - proga3.exe в 16:55:48 FUNCTION MyIsExeRun() - Start 16:55:48 FUNCTION GetWindowList() - Start 16:55:48 GetWindowList() - Start 16:55:48 65662 = 00 мин. 00 сек. 196678 = 00 мин. 00 сек. 196676 = 00 мин. 00 сек. 65668 = 00 мин. 00 сек. 131180 = 00 мин. 00 сек. 328108 = 00 мин. 00 сек. 65666 = 00 мин. 00 сек. 196674 CiceroUIWndFrame = 00 мин. 00 сек. 196660 = 00 мин. 00 сек. 590280 = 00 мин. 00 сек. 983556 = 00 мин. 00 сек. 328140 = 00 мин. 00 сек. 65676 = 00 мин. 00 сек. 4653346 = 00 мин. 00 сек. 2621770 Программа проверки запуска ! = 00 мин. 00 сек. 18350366 {C:\TEST} - Far = 00 мин. 00 сек. 262998 = 03 мин. 57 сек. 459182 = 03 мин. 57 сек. 393648 = 03 мин. 57 сек. 2425160 = 03 мин. 57 сек. 65748 = 03 мин. 57 сек. 65732 = 03 мин. 57 сек. 65726 CiceroUIWndFrame = 03 мин. 57 сек. 65684 TF_FloatingLangBar_WndTitle = 03 мин. 57 сек. 1180038 = 03 мин. 57 сек. 1835620 = 03 мин. 57 сек. 1638720 = 03 мин. 57 сек. 721212 = 03 мин. 57 сек. 524614 = 04 мин. 02 сек. 2162952 = 04 мин. 02 сек. 1245518 = 04 мин. 02 сек. Почему такая разница ? В чем может быть проблема ? Стоит официальный DRWEB, обновления скачивает свежие с инета. Даже отключал его, все равно медленно грузится программа ! Правдо чуток подтормаживает WORD на них, остальное быстро вроде запускаются. Кто поможет решить эту проблему ?

Andrey: Добрался я наконец то до тормознутых компов в сетке. Сделал отдельную прогу проверки запуска. Исходник здесь: http://files.mail.ru/OU0J16 На 2-х компах в сетке проверяестя примерно за 8 сек. Лог-файл: Запуск программы - proga3.exe в 16:40:34 FUNCTION MyIsExeRun() - Start 16:40:34 FUNCTION GetWindowList() - Start 16:40:34 GetWindowList() - Start 16:40:34 131496 = 00 мин. 00 сек. 65664 = 00 мин. 00 сек. 65662 = 00 мин. 00 сек. 65658 CiceroUIWndFrame = 00 мин. 00 сек. 65642 = 00 мин. 00 сек. 65636 = 00 мин. 00 сек. 65640 = 00 мин. 00 сек. 65638 = 00 мин. 00 сек. 196670 = 00 мин. 00 сек. 65906 = 00 мин. 00 сек. 131426 = 00 мин. 00 сек. 65680 SysFader = 00 мин. 00 сек. 196890 = 00 мин. 00 сек. 328014 = 00 мин. 00 сек. 196910 = 00 мин. 00 сек. 196916 HDMI Settings = 00 мин. 00 сек. 196870 S/PDIF IN/OUT Settings = 00 мин. 01 сек. 196876 Set Device Type = 00 мин. 01 сек. 328012 Mixer ToolBox = 00 мин. 01 сек. 65788 Параметры разъёма = 00 мин. 01 сек. 65734 = 00 мин. 01 сек. 65732 CiceroUIWndFrame = 00 мин. 01 сек. 65668 TF_FloatingLangBar_WndTitle = 00 мин. 01 сек. 524676 = 00 мин. 01 сек. 197040 Программа проверки запуска ! = 00 мин. 01 сек. 131492 = 00 мин. 01 сек. 131498 = 00 мин. 01 сек. 65952 = 00 мин. 01 сек. 131480 = 00 мин. 01 сек. 131466 MCI command handling window = 00 мин. 01 сек. 196998 = 00 мин. 02 сек. 196684 = 00 мин. 02 сек. 65940 !для тормозов = 00 мин. 02 сек. 65912 = 00 мин. 02 сек. 65900 = 00 мин. 02 сек. 196950 = 00 мин. 02 сек. 196914 DTS Connect = 00 мин. 02 сек. 196880 Dolby Home Threater = 00 мин. 02 сек. 196906 Advance Setting = 00 мин. 02 сек. 196872 TOOLBOX = 00 мин. 02 сек. 196908 Load EQ Preset = 00 мин. 02 сек. 328020 DeleteEQ = 00 мин. 02 сек. 65752 Save EQ = 00 мин. 02 сек. 65748 Realtek HD Audio Manager = 00 мин. 03 сек. 65724 BackMain_Form = 00 мин. 03 сек. 196886 Диспетчер Realtek HD = 00 мин. 03 сек. 196892 = 00 мин. 03 сек. 196922 = 00 мин. 03 сек. 196888 = 00 мин. 03 сек. 196918 = 00 мин. 03 сек. 196924 = 00 мин. 03 сек. 196882 = 00 мин. 03 сек. 196920 = 00 мин. 03 сек. 196878 = 00 мин. 03 сек. 131338 = 00 мин. 03 сек. 131376 = 00 мин. 03 сек. 262474 = 00 мин. 03 сек. 196946 = 00 мин. 04 сек. 196868 = 00 мин. 04 сек. 131392 = 00 мин. 04 сек. 131390 = 00 мин. 04 сек. 131396 = 00 мин. 04 сек. 131394 = 00 мин. 04 сек. 131400 = 00 мин. 04 сек. 131398 = 00 мин. 04 сек. 131364 = 00 мин. 04 сек. 131362 = 00 мин. 04 сек. 131368 = 00 мин. 04 сек. 131366 = 00 мин. 04 сек. 131408 = 00 мин. 04 сек. 131330 = 00 мин. 04 сек. 65824 = 00 мин. 05 сек. 65822 = 00 мин. 05 сек. 65750 = 00 мин. 05 сек. 65782 = 00 мин. 05 сек. 65772 Connections Tray = 00 мин. 05 сек. 65768 Индикатор батарей = 00 мин. 05 сек. 65766 MS_WebcheckMonitor = 00 мин. 05 сек. 65764 = 00 мин. 05 сек. 65762 = 00 мин. 05 сек. 65760 = 00 мин. 05 сек. 65758 = 00 мин. 05 сек. 65756 = 00 мин. 05 сек. 65746 = 00 мин. 05 сек. 65744 = 00 мин. 06 сек. 65742 = 00 мин. 06 сек. 65730 = 00 мин. 06 сек. 65722 = 00 мин. 06 сек. 65720 = 00 мин. 06 сек. 65718 = 00 мин. 06 сек. 65716 = 00 мин. 06 сек. 65714 = 00 мин. 06 сек. 65712 = 00 мин. 06 сек. 65710 = 00 мин. 06 сек. 65708 = 00 мин. 06 сек. 65706 = 00 мин. 06 сек. 65704 = 00 мин. 06 сек. 65702 = 00 мин. 06 сек. 65700 Диспетчер синхронизации = 00 мин. 07 сек. 65698 = 00 мин. 07 сек. 65696 HkWndName = 00 мин. 07 сек. 65688 PersistWndName = 00 мин. 07 сек. 65648 igfxtrayWindow = 00 мин. 07 сек. 65646 = 00 мин. 07 сек. 196668 = 00 мин. 07 сек. 262232 = 00 мин. 07 сек. 262230 = 00 мин. 07 сек. 65792 = 00 мин. 07 сек. 65728 = 00 мин. 07 сек. 65682 = 00 мин. 07 сек. 65666 = 00 мин. 08 сек. 0 Program Manager = 00 мин. 08 сек. GetWindowList() - End = 16:40:34 FUNCTION GetWindowList() - End = 00 мин. 08 сек. AAdd( aMenu , ...... )00 мин. 00 сек. FUNCTION ISEXERUNNING() - Start 16:40:42 FUNCTION ISEXERUNNING() - End = 00 мин. 00 сек. FUNCTION MyIsExeRun() - End = 00 мин. 08 сек. На других (уже 4 штуки) компах минут по 20 !!! Картинку привожу: Увеличить Кусок лог-файла привожу (целиком не дождался): Запуск программы - proga3.exe в 16:55:48 FUNCTION MyIsExeRun() - Start 16:55:48 FUNCTION GetWindowList() - Start 16:55:48 GetWindowList() - Start 16:55:48 65662 = 00 мин. 00 сек. 196678 = 00 мин. 00 сек. 196676 = 00 мин. 00 сек. 65668 = 00 мин. 00 сек. 131180 = 00 мин. 00 сек. 328108 = 00 мин. 00 сек. 65666 = 00 мин. 00 сек. 196674 CiceroUIWndFrame = 00 мин. 00 сек. 196660 = 00 мин. 00 сек. 590280 = 00 мин. 00 сек. 983556 = 00 мин. 00 сек. 328140 = 00 мин. 00 сек. 65676 = 00 мин. 00 сек. 4653346 = 00 мин. 00 сек. 2621770 Программа проверки запуска ! = 00 мин. 00 сек. 18350366 {C:\TEST} - Far = 00 мин. 00 сек. 262998 = 03 мин. 57 сек. 459182 = 03 мин. 57 сек. 393648 = 03 мин. 57 сек. 2425160 = 03 мин. 57 сек. 65748 = 03 мин. 57 сек. 65732 = 03 мин. 57 сек. 65726 CiceroUIWndFrame = 03 мин. 57 сек. 65684 TF_FloatingLangBar_WndTitle = 03 мин. 57 сек. 1180038 = 03 мин. 57 сек. 1835620 = 03 мин. 57 сек. 1638720 = 03 мин. 57 сек. 721212 = 03 мин. 57 сек. 524614 = 04 мин. 02 сек. 2162952 = 04 мин. 02 сек. 1245518 = 04 мин. 02 сек. Почему такая разница ? В чем может быть проблема ? Стоит официальный DRWEB, обновления скачивает свежие с инета. Даже отключал его, все равно медленно грузится программа ! Правдо чуток подтормаживает WORD на них, остальное быстро вроде запускаются. Кто поможет решить эту проблему ?

Dima: Andrey пишет: Кто поможет решить эту проблему ? Пробовал Malwarebytes' Anti-Malware ? PS Можно полистать и эту тему ;) http://clipper.b.qip.ru/?1-3-0-00000119-000-0-0-1281103837

PSP: Андрей, скачай программу HijackThis, сохрани лог и выложи его здесь. Вот краткая справка по работе с этой программой: http://www.saule-spb.ru/articles/hijackthis.html

Andrey: PSP пишет: Андрей, скачай программу HijackThis, сохрани лог и выложи его здесь. Выложил. Logfile of Trend Micro HijackThis v2.0.4 Scan saved at 14:29:10, on 13.12.2011 Platform: Windows XP SP3 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP3 (6.00.2900.5512) Boot mode: Normal Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\csrss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\Ati2evxx.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\system32\Ati2evxx.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\system32\spoolsv.exe C:\Program Files\Common Files\ABBYY\FineReader\9.00\Licensing\PE\NetworkLicenseServer.exe C:\Program Files\Common Files\Apple\Mobile Device Support\bin\AppleMobileDeviceService.exe C:\WINDOWS\system32\svchost.exe C:\Program Files\DrWeb Enterprise Suite\DWENGINE.EXE C:\Program Files\Firebird\Firebird_1_5\bin\fbguard.exe E:\StroySoft\Utils\IBBackup_Service.exe C:\Program Files\MySQL\MySQL Server 5.1\bin\mysqld.exe C:\WINDOWS\System32\svchost.exe C:\WINDOWS\System32\svchost.exe C:\WINDOWS\system32\r_server.exe C:\Program Files\Analog Devices\SoundMAX\SMAgent.exe C:\WINDOWS\system32\svchost.exe C:\Program Files\TeamViewer\Version6\TeamViewer_Service.exe C:\Program Files\TuneUp Utilities 2010\TuneUpUtilitiesService32.exe C:\Program Files\Firebird\Firebird_1_5\bin\fbserver.exe C:\Program Files\DrWeb Enterprise Suite\drwagntd.exe C:\WINDOWS\System32\alg.exe C:\Program Files\DrWeb Enterprise Suite\DWENGINE.EXE C:\Program Files\TeamViewer\Version6\TeamViewer.exe C:\WINDOWS\Explorer.EXE C:\Program Files\TuneUp Utilities 2010\TuneUpUtilitiesApp32.exe C:\WINDOWS\switchit.exe C:\Program Files\DrWeb Enterprise Suite\drwagnui.exe C:\WINDOWS\system32\rundll32.exe C:\Program Files\DrWeb Enterprise Suite\SPIDERML.EXE C:\WINDOWS\system32\ctfmon.exe C:\Documents and Settings\Валентина\Local Settings\Application Data\Skype\Phone\Skype.exe c:\program files\teamviewer\version6\TeamViewer_Desktop.exe C:\Program Files\TeamViewer\Version6\tv_w32.exe C:\WINDOWS\system32\msiexec.exe C:\Program Files\HiJack\Trend Micro\HiJackThis\HiJackThis.exe C:\WINDOWS\system32\wbem\wmiprvse.exe R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName = Ссылки O2 - BHO: AcroIEHlprObj Class - {06849E9F-C8D7-4D59-B87D-784B7D6BE0B3} - C:\Program Files\Adobe\Acrobat 7.0\ActiveX\AcroIEHelper.dll O2 - BHO: Groove GFS Browser Helper - {72853161-30C5-4D22-B7F9-0BBC1D38A37E} - C:\PROGRA~1\MICROS~2\Office12\GRA8E1~1.DLL O2 - BHO: SkypeIEPluginBHO - {AE805869-2E5C-4ED4-8F7B-F1F7851A4497} - C:\Program Files\Skype\Toolbars\Internet Explorer\skypeieplugin.dll O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Program Files\Java\jre6\bin\jp2ssv.dll O2 - BHO: JQSIEStartDetectorImpl - {E7E6F031-17CE-4C07-BC86-EABFE594F69C} - C:\Program Files\Java\jre6\lib\deploy\jqs\ie\jqs_plugin.dll O4 - HKLM\..\Run: [switchit.exe] switchit.exe O4 - HKLM\..\Run: [DrWebAgentUI] "C:\Program Files\DrWeb Enterprise Suite\drwagnui.exe" O4 - HKLM\..\Run: [Synchronization Manager] %SystemRoot%\system32\mobsync.exe /logon O4 - HKLM\..\Run: [BluetoothAuthenticationAgent] rundll32.exe bthprops.cpl,,BluetoothAuthenticationAgent O4 - HKLM\..\Run: [SpIDerMail] "C:\Program Files\DrWeb Enterprise Suite\SPIDERML.EXE" -autorun O4 - HKCU\..\Run: [ctfmon.exe] C:\WINDOWS\system32\ctfmon.exe O4 - HKCU\..\Run: [Skype] "C:\Documents and Settings\Валентина\Local Settings\Application Data\Skype\Phone\Skype.exe" /nosplash /minimized O4 - HKCU\..\RunOnce: [FlashPlayerUpdate] C:\WINDOWS\system32\Macromed\Flash\FlashUtil10k_Plugin.exe -update plugin O4 - HKCU\..\Policies\Explorer\Run: [Windows Debugger 32] C:\WINDOWS\system32\debughelp32.exe O4 - HKUS\S-1-5-19\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\CTFMON.EXE (User 'LOCAL SERVICE') O4 - HKUS\S-1-5-20\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\CTFMON.EXE (User 'NETWORK SERVICE') O4 - HKUS\S-1-5-18\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\ctfmon.exe (User 'SYSTEM') O4 - HKUS\.DEFAULT\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\ctfmon.exe (User 'Default user') O4 - Startup: igfxtray.exe O8 - Extra context menu item: &Экспорт в Microsoft Excel - res://C:\PROGRA~1\MICROS~2\Office12\EXCEL.EXE/3000 O9 - Extra button: Отправить в OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\PROGRA~1\MICROS~2\Office12\ONBttnIE.dll O9 - Extra 'Tools' menuitem: &Отправить в OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\PROGRA~1\MICROS~2\Office12\ONBttnIE.dll O9 - Extra button: Skype Click to Call - {898EA8C8-E7FF-479B-8935-AEC46303B9E5} - C:\Program Files\Skype\Toolbars\Internet Explorer\skypeieplugin.dll O9 - Extra 'Tools' menuitem: Skype Click to Call - {898EA8C8-E7FF-479B-8935-AEC46303B9E5} - C:\Program Files\Skype\Toolbars\Internet Explorer\skypeieplugin.dll O9 - Extra button: Research - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - C:\PROGRA~1\MICROS~2\Office12\REFIEBAR.DLL O9 - Extra button: (no name) - {e2e2dd38-d088-4134-82b7-f2ba38496583} - C:\WINDOWS\Network Diagnostic\xpnetdiag.exe O9 - Extra 'Tools' menuitem: @xpsp3res.dll,-20001 - {e2e2dd38-d088-4134-82b7-f2ba38496583} - C:\WINDOWS\Network Diagnostic\xpnetdiag.exe O9 - Extra button: ICQ6 - {E59EB121-F339-4851-A3BA-FE49C35617C2} - C:\Program Files\ICQ6.5\ICQ.exe O9 - Extra 'Tools' menuitem: ICQ6 - {E59EB121-F339-4851-A3BA-FE49C35617C2} - C:\Program Files\ICQ6.5\ICQ.exe O9 - Extra button: Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Program Files\Messenger\msmsgs.exe O9 - Extra 'Tools' menuitem: Windows Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Program Files\Messenger\msmsgs.exe O18 - Protocol: grooveLocalGWS - {88FED34C-F0CA-4636-A375-3CB6248B04CD} - C:\PROGRA~1\MICROS~2\Office12\GR99D3~1.DLL O18 - Protocol: skype-ie-addon-data - {91774881-D725-4E58-B298-07617B9B86A8} - C:\Program Files\Skype\Toolbars\Internet Explorer\skypeieplugin.dll O18 - Protocol: skype4com - {FFC8B962-9B40-4DFF-9458-1830C7DD7F5D} - C:\DOCUME~1\8B70~1\LOCALS~1\APPLIC~1\Skype\Shared\SKYPE4~1.DLL O22 - SharedTaskScheduler: Предзагрузчик Browseui - {438755C2-A8BA-11D1-B96B-00A0C90312E1} - C:\WINDOWS\system32\browseui.dll O22 - SharedTaskScheduler: Демон кэша категорий компонентов - {8C7461EF-2B13-11d2-BE35-3078302C2030} - C:\WINDOWS\system32\browseui.dll O23 - Service: ABBYY FineReader 9.0 PE Licensing Service (ABBYY.Licensing.FineReader.Professional.9.0) - ABBYY (BIT Software) - C:\Program Files\Common Files\ABBYY\FineReader\9.00\Licensing\PE\NetworkLicenseServer.exe O23 - Service: Apple Mobile Device - Apple Inc. - C:\Program Files\Common Files\Apple\Mobile Device Support\bin\AppleMobileDeviceService.exe O23 - Service: Ati HotKey Poller - ATI Technologies Inc. - C:\WINDOWS\system32\Ati2evxx.exe O23 - Service: ATI Smart - Unknown owner - C:\WINDOWS\system32\ati2sgag.exe O23 - Service: Bonjour Service - Apple Inc. - C:\Program Files\Bonjour\mDNSResponder.exe O23 - Service: Dr.Web Enterprise Agent (drwagntd) - Doctor Web, Ltd. - C:\Program Files\DrWeb Enterprise Suite\drwagntd.exe O23 - Service: Dr.Web (R) Scanning Engine (DrWebEngine) - Doctor Web, Ltd. - C:\Program Files\DrWeb Enterprise Suite\DWENGINE.EXE O23 - Service: Dr.Web Enterprise Upgrade Service (drwupgrade) - Doctor Web, Ltd. - C:\Program Files\DrWeb Enterprise Suite\1\drwupgrade.exe O23 - Service: Журнал событий (Eventlog) - Корпорация Майкрософт - C:\WINDOWS\system32\services.exe O23 - Service: Firebird Guardian - DefaultInstance (FirebirdGuardianDefaultInstance) - The Firebird Project - C:\Program Files\Firebird\Firebird_1_5\bin\fbguard.exe O23 - Service: Firebird Server - DefaultInstance (FirebirdServerDefaultInstance) - The Firebird Project - C:\Program Files\Firebird\Firebird_1_5\bin\fbserver.exe O23 - Service: FLEXnet Licensing Service - Acresso Software Inc. - C:\Program Files\Common Files\Macrovision Shared\FLEXnet Publisher\FNPLicensingService.exe O23 - Service: Google Update Service (gupdate) (gupdate) - Google Inc. - C:\Program Files\Google\Update\GoogleUpdate.exe O23 - Service: Служба Google Update (gupdatem) (gupdatem) - Google Inc. - C:\Program Files\Google\Update\GoogleUpdate.exe O23 - Service: StroySoft IB Backup Service (IBBackupSrv) - StroySoft - E:\StroySoft\Utils\IBBackup_Service.exe O23 - Service: Служба COM записи компакт-дисков IMAPI (ImapiService) - Корпорация Майкрософт - C:\WINDOWS\system32\imapi.exe O23 - Service: Сервис iPod (iPod Service) - Apple Inc. - C:\Program Files\iPod\bin\iPodService.exe O23 - Service: Java Quick Starter (JavaQuickStarterService) - Sun Microsystems, Inc. - C:\Program Files\Java\jre6\bin\jqs.exe O23 - Service: NetMeeting Remote Desktop Sharing (mnmsrvc) - Корпорация Майкрософт - C:\WINDOWS\system32\mnmsrvc.exe O23 - Service: MySQL - Unknown owner - C:\Program.exe (file missing) O23 - Service: Plug and Play (PlugPlay) - Корпорация Майкрософт - C:\WINDOWS\system32\services.exe O23 - Service: Диспетчер сеанса справки для удаленного рабочего стола (RDSessMgr) - Корпорация Майкрософт - C:\WINDOWS\system32\sessmgr.exe O23 - Service: Remote Administrator Service (r_server) - Unknown owner - C:\WINDOWS\system32\r_server.exe O23 - Service: Смарт-карты (SCardSvr) - Корпорация Майкрософт - C:\WINDOWS\System32\SCardSvr.exe O23 - Service: SoundMAX Agent Service (SoundMAX Agent Service (default)) - Analog Devices, Inc. - C:\Program Files\Analog Devices\SoundMAX\SMAgent.exe O23 - Service: Журналы и оповещения производительности (SysmonLog) - Корпорация Майкрософт - C:\WINDOWS\system32\smlogsvc.exe O23 - Service: TeamViewer 6 (TeamViewer6) - TeamViewer GmbH - C:\Program Files\TeamViewer\Version6\TeamViewer_Service.exe O23 - Service: TuneUp Drive Defrag Service (TuneUp.Defrag) - TuneUp Software - C:\Program Files\TuneUp Utilities 2010\TuneUpDefragService.exe O23 - Service: TuneUp Utilities Service (TuneUp.UtilitiesSvc) - TuneUp Software - C:\Program Files\TuneUp Utilities 2010\TuneUpUtilitiesService32.exe O23 - Service: Теневое копирование тома (VSS) - Корпорация Майкрософт - C:\WINDOWS\System32\vssvc.exe O23 - Service: Адаптер производительности WMI (WmiApSrv) - Корпорация Майкрософт - C:\WINDOWS\system32\wbem\wmiapsrv.exe -- End of file - 10311 bytes

PSP: Andrey пишет: C:\WINDOWS\switchit.exe O4 - HKLM\..\Run: [switchit.exe] switchit.exe Что такое switchit.exe?

Dima: PSP пишет: Что такое switchit.exe? http://www.switchit.ru/rus/default.htm

PSP: Dima, ясно. :)

Andrey: PSP пишет: Что такое switchit.exe? В свойствах программы: Переключатель раскладок клавиатуры Switch It! Michael Gromov, 191123, p/o box 83, St.Petersburg, Russia. E-Mail: mgromov@usa.net

Andrey: Сегодня запустил программу (см. выше), так она через 2 час. 48 мин. стартанула..... Лог-файл запуска: Запуск программы - proga3.exe в 14:53:19 FUNCTION MyIsExeRun() - Start 14:53:19 FUNCTION GetWindowList() - Start 14:53:39 GetWindowList() - Start 14:53:39 131468 TF_FloatingLangBar_WndTitle = 00 мин. 04 сек. 984022 CiceroUIWndFrame = 00 мин. 06 сек. 65838 = 00 мин. 06 сек. 984054 = 00 мин. 06 сек. 721792 = 00 мин. 06 сек. 590738 = 00 мин. 07 сек. 66018 SysFader = 00 мин. 07 сек. 1572970 = 00 мин. 07 сек. 196680 = 00 мин. 07 сек. 590810 = 00 мин. 07 сек. 65840 = 00 мин. 07 сек. 131236 = 00 мин. 07 сек. 196678 = 00 мин. 07 сек. 196664 = 00 мин. 34 сек. 787436 = 00 мин. 35 сек. 328622 = 01 мин. 02 сек. 459752 = 01 мин. 02 сек. 131416 = 01 мин. 02 сек. 65704 = 01 мин. 02 сек. 65706 Панель TeamViewer (свёрнута) = 01 мин. 02 сек. 65746 Панель TeamViewer = 01 мин. 02 сек. 1704750 = 01 мин. 02 сек. 65888 Отправить сообщение = 01 мин. 03 сек. 65878 = 01 мин. 03 сек. 65708 = 01 мин. 03 сек. 66006 = 01 мин. 03 сек. 66004 = 01 мин. 03 сек. 66002 = 01 мин. 03 сек. 66000 = 01 мин. 03 сек. 65998 = 01 мин. 03 сек. 65996 = 01 мин. 04 сек. 131476 = 01 мин. 04 сек. 1180512 = 01 мин. 04 сек. 1180654 = 01 мин. 04 сек. 984062 = 01 мин. 04 сек. 1442666 proga3 = 01 мин. 04 сек. 1180484 Программа проверки запуска ! = 01 мин. 04 сек. 1180632 Программа проверки запуска ! = 01 мин. 04 сек. 1573718 = 01 мин. 05 сек. 393332 = 01 мин. 10 сек. 1115012 = 01 мин. 32 сек. 1311580 = 03 мин. 09 сек. 983952 = 07 мин. 09 сек. 3081292 = 07 мин. 09 сек. 66076 = 11 мин. 09 сек. 918338 SkypeT - marshal21vip = 11 мин. 09 сек. 787444 = 15 мин. 09 сек. 656354 = 15 мин. 09 сек. 590666 = 19 мин. 09 сек. 132022 = 19 мин. 09 сек. 65674 Резервное копирование и восстановление баз данных InterBase = 19 мин. 09 сек. 65670 ResultForm = 19 мин. 09 сек. 590772 FirstForm = 19 мин. 09 сек. 65656 = 23 мин. 09 сек. 65720 Ibbackup_service = 23 мин. 09 сек. 394182 TeamViewer = 23 мин. 09 сек. 132018 = 27 мин. 09 сек. 590582 = 27 мин. 09 сек. 459670 = 31 мин. 10 сек. 328550 = 31 мин. 10 сек. 132024 = 31 мин. 10 сек. 328508 = 31 мин. 10 сек. 328526 = 35 мин. 10 сек. 3081040 = 35 мин. 10 сек. 262994 = 39 мин. 10 сек. 262926 = 39 мин. 10 сек. 66028 = 43 мин. 10 сек. 590436 = 43 мин. 10 сек. 262840 = 47 мин. 10 сек. 1114806 = 47 мин. 10 сек. 328370 = 51 мин. 10 сек. 262812 = 51 мин. 10 сек. 286589570 = 55 мин. 10 сек. 328318 = 55 мин. 10 сек. 328316 = 59 мин. 10 сек. 393832 = 59 мин. 10 сек. 262776 = 01 час. 03 мин. 10 сек. 459398 = 01 час. 03 мин. 10 сек. 393860 = 01 час. 07 мин. 10 сек. 14615168 = 01 час. 07 мин. 10 сек. 393864 = 01 час. 11 мин. 10 сек. 262794 = 01 час. 11 мин. 10 сек. 262796 = 01 час. 11 мин. 10 сек. 328354 = 01 час. 15 мин. 10 сек. 328356 = 01 час. 15 мин. 10 сек. 262822 = 01 час. 15 мин. 10 сек. 262824 = 01 час. 19 мин. 10 сек. 196756 = 01 час. 19 мин. 10 сек. 66160 = 01 час. 19 мин. 10 сек. 66142 MCI command handling window = 01 час. 19 мин. 10 сек. 66140 IMMIF UI = 01 час. 19 мин. 10 сек. 131634 = 01 час. 19 мин. 11 сек. 131630 = 01 час. 19 мин. 11 сек. 131662 Главная страница Skype = 01 час. 19 мин. 11 сек. 197178 = 01 час. 23 мин. 10 сек. 66074 = 01 час. 23 мин. 10 сек. 66072 = 01 час. 23 мин. 10 сек. 66070 = 01 час. 23 мин. 11 сек. 66068 = 01 час. 23 мин. 11 сек. 66066 = 01 час. 23 мин. 11 сек. 66064 = 01 час. 23 мин. 11 сек. 66062 TrayIconManager = 01 час. 23 мин. 11 сек. 66060 = 01 час. 23 мин. 11 сек. 66058 = 01 час. 23 мин. 12 сек. 66056 = 01 час. 23 мин. 12 сек. 66054 = 01 час. 23 мин. 12 сек. 131588 = 01 час. 23 мин. 12 сек. 66050 = 01 час. 23 мин. 12 сек. 66048 D = 01 час. 23 мин. 12 сек. 66046 = 01 час. 23 мин. 12 сек. 66044 = 01 час. 23 мин. 13 сек. 66042 = 01 час. 23 мин. 13 сек. 66040 DDE Server Window = 01 час. 23 мин. 13 сек. 66038 C:\Documents and Settings\Валентина\Application Data\Skype = 01 час. 23 мин. 13 сек. 66036 = 01 час. 23 мин. 13 сек. 66032 = 01 час. 23 мин. 13 сек. 66030 = 01 час. 23 мин. 13 сек. 66026 = 01 час. 23 мин. 14 сек. 66022 = 01 час. 23 мин. 14 сек. 66016 = 01 час. 23 мин. 14 сек. 196996 = 01 час. 23 мин. 14 сек. 66012 Connections Tray = 01 час. 23 мин. 14 сек. 131458 = 01 час. 23 мин. 14 сек. 131462 Индикатор батарей = 01 час. 23 мин. 14 сек. 131472 MS_WebcheckMonitor = 01 час. 23 мин. 15 сек. 66010 = 01 час. 23 мин. 15 сек. 66008 BluetoothNotificationAreaIconWindowClass = 01 час. 23 мин. 15 сек. 65842 = 01 час. 23 мин. 15 сек. 65788 Мои компьютеры = 01 час. 23 мин. 15 сек. 65710 = 01 час. 23 мин. 15 сек. 131186 TeamViewer - журнал регистрации передачи файлов = 01 час. 23 мин. 15 сек. 196660 = 01 час. 23 мин. 16 сек. 131148 = 01 час. 23 мин. 16 сек. 262222 = 01 час. 23 мин. 16 сек. 131152 = 01 час. 23 мин. 16 сек. 65584 TVMainThreadCall = 01 час. 23 мин. 16 сек. 65576 ATI video bios poller client = 01 час. 23 мин. 16 сек. 66034 ATI video bios poller = 01 час. 23 мин. 16 сек. 197380 GDI+ Window = 01 час. 23 мин. 17 сек. 459518 = 01 час. 27 мин. 10 сек. 262908 = 01 час. 27 мин. 10 сек. 721614 = 01 час. 31 мин. 10 сек. 328448 = 01 час. 31 мин. 10 сек. 393978 = 01 час. 35 мин. 10 сек. 262914 = 01 час. 35 мин. 10 сек. 393970 = 01 час. 39 мин. 10 сек. 328436 = 01 час. 39 мин. 10 сек. 197368 = 01 час. 43 мин. 10 сек. 328432 = 01 час. 43 мин. 10 сек. 262894 = 01 час. 47 мин. 10 сек. 197356 = 01 час. 47 мин. 10 сек. 262890 = 01 час. 47 мин. 11 сек. 197352 = 01 час. 51 мин. 11 сек. 197350 = 01 час. 51 мин. 11 сек. 262884 = 01 час. 55 мин. 11 сек. 262882 = 01 час. 55 мин. 11 сек. 328416 = 01 час. 55 мин. 11 сек. 262878 = 01 час. 59 мин. 11 сек. 524996 = 01 час. 59 мин. 11 сек. 524998 = 02 час. 03 мин. 11 сек. 459474 = 02 час. 03 мин. 11 сек. 525004 = 02 час. 03 мин. 11 сек. 721568 = 02 час. 07 мин. 11 сек. 525008 = 02 час. 07 мин. 11 сек. 524976 = 02 час. 07 мин. 41 сек. 393900 = 02 час. 07 мин. 41 сек. 524994 = 02 час. 11 мин. 41 сек. 459482 = 02 час. 11 мин. 41 сек. 656064 = 02 час. 15 мин. 41 сек. 656062 = 02 час. 15 мин. 41 сек. 787124 = 02 час. 19 мин. 41 сек. 590548 = 02 час. 19 мин. 41 сек. 393948 = 02 час. 19 мин. 41 сек. 393942 = 02 час. 23 мин. 41 сек. 590536 = 02 час. 23 мин. 41 сек. 590522 = 02 час. 23 мин. 41 сек. 459480 = 02 час. 23 мин. 41 сек. 393916 = 02 час. 23 мин. 42 сек. 590510 = 02 час. 27 мин. 42 сек. 524970 = 02 час. 27 мин. 42 сек. 328394 = 02 час. 31 мин. 42 сек. 524958 = 02 час. 31 мин. 42 сек. 721560 = 02 час. 35 мин. 42 сек. 656016 = 02 час. 35 мин. 42 сек. 656018 = 02 час. 39 мин. 42 сек. 590484 = 02 час. 39 мин. 42 сек. 721558 = 02 час. 43 мин. 42 сек. 590490 = 02 час. 43 мин. 42 сек. 1180658 = 02 час. 47 мин. 42 сек. 394156 = 02 час. 47 мин. 42 сек. 65894 SysFader = 02 час. 47 мин. 42 сек. 65852 = 02 час. 47 мин. 42 сек. 0 Program Manager = 02 час. 47 мин. 42 сек. GetWindowList() - End = 14:53:39 FUNCTION GetWindowList() - End = 02 час. 47 мин. 43 сек. AAdd( aMenu , ...... )00 мин. 00 сек. FUNCTION ISEXERUNNING() - Start 17:41:23 FUNCTION ISEXERUNNING() - End = 00 мин. 00 сек. FUNCTION MyIsExeRun() - End = 02 час. 48 мин. 04 сек. На других компах, кроме этой конторы у меня НИГДЕ так не получается.... Сам исходник и программа здесь: http://zalil.ru/32266076 У кого будут предложения как вылечить 6-8 компов.... Пиво за мной...

Dima: Andrey Был у меня похожий случай. Прога запускалась не через 2 часа конечно , но тормоза при ее работе были жуткие , в то время как другие компы в той же сети и в той же проге (сетовой) вели себя нормально. Дело было в сетевом принтере и драйверах на него. Принтер был HP , модель не помню Andrey пишет: 66008 BluetoothNotificationAreaIconWindowClass А попробуй временно отключить Bluetooth

PSP: Andrey, прога запускается с сетевого ресурса? Ты пробовал запускать ее локально?

PSP: Мой предыдущий вопрос снимается, можно не отвечать. Андрей, ты просто хочешь выяснить, есть ли окно с определенным именем? Нечто подобное когда-то работало: [pre2] #include "hbgtinfo.ch" #include "inkey.ch" #include "common.ch" FUNCTION Main() REQUEST HB_GT_WVT_DEFAULT REQUEST HB_GT_WVT ? "Searching window by name 'Temp'" hb_gtInfo( HB_GTI_WINTITLE , "Temp" ) WHILE ( n := FindWindow( "Temp" ) ) == 0 IF Inkey() == K_ESC EXIT END // IF HB_ReleaseCPU() END // WHILE ? "Window number is " + Str( n ) WAIT RETURN NIL #PRAGMA BEGINDUMP #include "hbapi.h" #include "windows.h" HB_FUNC( FINDWINDOW ) { hb_retnl( (LONG)FindWindow( NULL, hb_parc( 1 ) ) ) ; } #pragma ENDDUMP[/pre2] Как видишь, все намного проще... :)

PSP: Вот такой пример, думаю, будет более подходящим: [pre2] FUNCTION Main() REQUEST HB_GT_WVT_DEFAULT REQUEST HB_GT_WVT ? "Searching window by name 'Proga'" IF ( n := FindWindow( "Proga" ) ) <> 0 ? "Program is already running. It is window No " + Str( n ) ELSE hb_gtInfo( HB_GTI_WINTITLE , "Proga" ) ? "This is first copy of 'Proga'" END // IF WAIT RETURN NIL [/pre2] Важно, чтобы название exe-шника не совпадало с названием окна. Если название окна - по-русски, оно должно быть в win-кодировке.

Петр: Andrey пишет: Кто поможет решить эту проблему ? Читать до просветления 'http://www.rsdn.ru/?article/?baseserv/avins.xml'

PSP: Петр пишет: Читать до просветления Мда... ФайндВиндоу несколько не то, как оказалось... Читаем дальше. Спасибо, Петр!

PSP: Петр, где можно прочитать о функциях работы с мютексами в Харборе (hb_mutexCreate() и связанные с ней...)?

Петр: PSP пишет: где можно прочитать о функциях работы с мютексами в Харборе Даже и не знаю, что написать. Если мне не изменяет память, была в почтовой рассылке harbour-dev переписка между Пржемеком (Przemyslaw Czerpak) и Миндаугасом (Mindaugas Kavaliauskas) на эту тему. Но у меня ссылки нет.

Vlad04: Решить проблему запуска не более одного экземпляра программы можно по-другому, без поиска окон. Запускаемый экземпляр программы открывает монопольно на компе ( при чем не важно где находится exe в сети или на рабочей станции) сигнальную таблицу, к примеру ...\temp\start.dbf. Если ее нет - создает.Второй экземпляр программы то же повторить не сможет. Естестственно, надо предусмотреть в подобных случаях обработку ошибок, выдачу сообщений и т.п. , чтобы пользователю было ясно, что он неправильно сделал. Подобным образом можно контролировать и вход по одному ЛОГИНУ не более одного человека.

Dima: PSP http://clipper.borda.ru/?1-4-0-00000369-000-0-0 см. IsExeRunning

PSP: Петр, спасибо! Дима, спасибо за ссылку! Я подразумевал некий мануал... Понимаю, что далеко не всегда он имеется.

Andrey: Vlad04 пишет: Решить проблему запуска не более одного экземпляра программы можно по-другому, без поиска окон. Запускаемый экземпляр программы открывает монопольно на компе ( при чем не важно где находится exe в сети или на рабочей станции) сигнальную таблицу, к примеру ...\temp\start.dbf. Если ее нет - создает.Второй экземпляр программы то же повторить не сможет. Такое же я делал на Клипере. Иногда сбоит. При слете программы на некоторых системах, включая ХР база остается блокированной. Юзера не знали что делать... Помогала только перезагрузка компа. Переделал на другой вариант, который представлен выше. Разные программы с таким вариантом "определения повторного запуска" работает на более 100 компов в различных городах. И только в ОДНОМ месте у меня такой "затык" !!!

Vlad04: И только в ОДНОМ месте у меня такой "затык" !!! Значит в операционке "косяки". Переустановить

PSP: Vlad04 пишет: Значит в операционке "косяки". Переустановить Это не на одном компе, как я понял. Это - "в ОДНОМ месте" на нескольких компах.

Andrey: PSP пишет: Это не на одном компе, как я понял. Это - "в ОДНОМ месте" на нескольких компах. Да, правильно. В одно месте на 6-ти компах. Планирую привезти туда свой ноутбук (акция - "подцепи себе трояна" ) и посмотреть как будет работать программа на чистой операционке.

PSP: А вот все-таки, Андрей, ты локально запускаешь прогу или из сети?

Andrey: PSP пишет: А вот все-таки, Андрей, ты локально запускаешь прогу или из сети? Прога сетевая. Клиентское место (ехе-ник) запускаю локально.

SergejKis: Андрей, воспользуйся CreateFile из Win API с атрибутом FILE_ATTRIBUTE_TEMPORARY. Файл существкет пока есть его handler, т.е. пока работает приложение (или сам не закроешь handler).

Петр: Andrey пишет: Планирую привезти туда свой ноутбук Я бы для начала, запустил компьютер (один из тех 6) в безопасном режиме с поддержкой сетевых служб и посмотрел на реакцию программы. Очень интересно, у них там на каждом рабочем месте запускают FireBird и MySQL, сервер лицензий FineReader, Radmin и TeamViewer, плюс ко всему Skype и ISQ?

Andrey: Петр пишет: Очень интересно, у них там на каждом рабочем месте запускают FireBird и MySQL, сервер лицензий FineReader, Radmin и TeamViewer, плюс ко всему Skype и ISQ? FireBird и MySQL - только на этом удаленном компе, удалил уже их. Radmin - на всех компах TeamViewer + Skype - только на этом компе, чтоб через инет доступ был, по очистке. ISQ - только на нем.

Vlad04: SergejKis воспользуйся CreateFile из Win API с атрибутом FILE_ATTRIBUTE_TEMPORARY. А в коде Харбор как это будет выглядеть?

Петр: Vlad04 пишет: А в коде Харбор как это будет выглядеть? А в Harbour есть функция hb_dbCreateTemp() hb_dbCreateTemp() - create temporary table which are automatically deleted on close. All indexes and memo files for such tables are also in temporary files and automatically deleted on close. Please remember that Harbour uses OS functions to create temporary files so it's installation dependent how much disk space is available for them. Some RDDs may also do not create temporary files but keep everything in memory if they decide it's more efficient.

Vlad04: ок. Спасибо, учтем

PSP: Петр пишет: А в Harbour есть функция hb_dbCreateTemp() Она вряд ли подойдет для целей, обсуждаемых в этой теме. Файл создается со случайным именем, узнать которое невозможно. [pre2]hb_dbCreateTemp( <cAlias>, <aStruct>, <cRDD>, <cCodePage>, <nConnection> ) -> <lSuccess>[/pre2]

Петр: PSP пишет: Она вряд ли подойдет для целей, обсуждаемых в этой теме. Файл создается со случайным именем, узнать которое невозможно. Если сильно хочется, то почему нет? hb_dbCreateTemp, hb_FTempCreate, hb_FTempCreateEx + куча функций для роботы с файлами, добавленных в Harbour - используйте, как душа пожелает Возвращаясь к воспользуйся CreateFile из Win API с атрибутом FILE_ATTRIBUTE_TEMPORARY. атрибут FILE_ATTRIBUTE_TEMPORARY можно установить так. [pre2]#include "fileio.ch" FUNCTION test() LOCAL hFile, cName, nAttr := 20 cName := hb_dirBase() + "~semaphore" FErase( cName ) hFile := hb_FCreate( cName, FC_HIDDEN, FO_EXCL + FO_EXCLUSIVE ) IF hFile != F_ERROR FWrite( hFile, "RkN" + hb_eol(), 5 ) wapi_SetFileAttributes( cName, HB_FA_NOTINDEXED + HB_FA_TEMPORARY ) hb_FGetAttr( cName, @nAttr ) IF nAttr != 0x2120 ? "Sorry again.." RETURN .F. ENDIF RETURN .T. ENDIF RETURN .F. #pragma BEGINDUMP #include "hbapi.h" #include "hbvm.h" #include "hbapifs.h" #if defined( HB_OS_WIN ) #include "windows.h" HB_FUNC( WAPI_SETFILEATTRIBUTES ) { const char * pszFileName = hb_parcx( 1 ); HB_FATTR ulAttr = hb_parnl( 2 ); HB_BOOL fResult; char * pszFree; HB_TRACE(HB_TR_DEBUG, ("wapi_SetFileAttributes(%s, %u)", pszFileName, ulAttr)); pszFileName = hb_fsNameConv( pszFileName, &pszFree ); hb_vmUnlock(); { LPTSTR lpFilename = HB_TCHAR_CONVTO( pszFileName ); DWORD dwFlags = FILE_ATTRIBUTE_ARCHIVE; if( ulAttr & HB_FA_HIDDEN ) dwFlags |= FILE_ATTRIBUTE_HIDDEN; if( ulAttr & HB_FA_NORMAL ) dwFlags |= FILE_ATTRIBUTE_NORMAL; if( ulAttr & HB_FA_NOTINDEXED ) dwFlags |= FILE_ATTRIBUTE_NOT_CONTENT_INDEXED; if( ulAttr & HB_FA_OFFLINE ) dwFlags |= FILE_ATTRIBUTE_OFFLINE; if( ulAttr & HB_FA_READONLY ) dwFlags |= FILE_ATTRIBUTE_READONLY; if( ulAttr & HB_FA_SYSTEM ) dwFlags |= FILE_ATTRIBUTE_SYSTEM; if( ulAttr & HB_FA_TEMPORARY ) dwFlags |= FILE_ATTRIBUTE_TEMPORARY; fResult = SetFileAttributes( lpFilename, dwFlags ) != 0; hb_fsSetIOError( fResult, 0 ); HB_TCHAR_FREE( lpFilename ); } hb_vmLock(); if( pszFree ) hb_xfree( pszFree ); hb_retl( fResult ); } #endif #pragma ENDDUMP [/pre2] Из-за кросплатформенности hb_FSetAttr просто игнорирует некоторые специфичные файловые атрибуты, по этому пришлось написать обертку к SetFileAttributes(). Результат дополнительно можно перепроверить так (XP и выше) fsutil usn readdata ~semaphore или в Far-e Файлы->Атрибуты файлов или другим доступным вам методом Почитать о атрибутах файла можна здесь click here В результате неоднократных правок я тут удалил неосторожно несколько строк, так что сл. несколько постов могут показаться бесмысленными .

PSP: Петр пишет: что делает hbDrop() - уже меньше народу сможет (сказать) А что она делает? :)

Dima: DbDrop вижу , HbDrop - нет ;)

Петр: PSP пишет: А что она делает? :) Пока еще ничего, не написали Dima пишет: DbDrop вижу , HbDrop - нет ;) Все правильно DbDrop() или hb_dbDrop() - удаляет таблицу и связанные с ней файлы (мемо, индексы).

PSP: Петр

Петр: PSP пишет: Файл создается со случайным именем, узнать которое невозможно. Можно с помощью dbInfo( DBI_FILEHANDLE ) узнать хэндл файла, а потом с помощью Api и имя Дописано 10 лет спустя Хотя можно сразу dbInfo( DBI_FULLPATH ) воспользоваться (всегда почему-то думал, что DBI_FULLPATH возвращает только путь к таблице..)

Andrey: Опять возвращаюсь к данной теме ! См. выше... Теперь засада на ДВУХ новых, чистых компах с Win7 Home.... Т.е. опять программа грузиться примерно 20 минут. Функция ISEXERUNNING( cExeRun ) из МиниГуи работает очень быстро. Все дело в функции aStart := GetWindowList() // Считать ХЕНДЛ окна и ИМЯ окна - взята из МиниГуи ! которая используется для чтения всех ХЕНДЛОВ окон в системе HB_FUNC( GETWINDOWTEXT ) Она тормозит на таких "особых" компах ! Т.е. мне нужно отказаться от этой функции и все заработает. А эту функцию я использую для определения НОМЕРА ХЕНДЛА уже запущенной моей программы, для переключения её на передний план - MAXIMIZE( nStartHendl ). Для этого встает простая задача найти функцию, которая возвращает НОМЕР ХЕНДЛА окна по НАЗВАНИЮ окна. Есть ли такая функция на хХарборе или МиниГуи? Исходник здесь: http://files.mail.ru/40X51U

Andrey: Добился я нормальной проверки запуска ВТОРОЙ копии программы для хХарбора. В МиниГуи и то проще... Программа проверки запуска второй копии программы ! - Verification Program run a second copy of the program ! Вот мой исходник, кому интересно. http://files.mail.ru/CAFC3DED6EF647599D009563E9C6DF71 Исправления приветствуются ! Очень аккуратно нужно разбираться с титулом окна, если используешь 866 кодировку и терминал GTWVT.

Dima: Andrey пишет: Добился я нормальной проверки запуска ВТОРОЙ копии программы для хХарбора. А что проблемы были ? На Harbour проблемы не увидел у себя , все четко.

Andrey: Dima пишет: А что проблемы были ? Еще какие... ... МиниГуи и Григорий помог.... Дима, а как считать "титул окна задачи" для Харбора ?

Dima: Andrey пишет: Дима, а как считать "титул окна задачи" для Харбора ? для чего ? ps ISEXERUNNING написанный с использованием Mutex замечательно работает.

Andrey: Dima пишет: для чего ? Для вывода в переменную. Просто для себя. Dima пишет: ISEXERUNNING написанный с использованием Mutex замечательно работает. Я и не спорю.

полная версия страницы