Проверить, работает ли программа в Terminal Client Session
function IsRemoteSession: Boolean; const sm_RemoteSession = $1000; < from WinUser.h >begin Result := GetSystemMetrics(sm_RemoteSession) <> 0; end;
Программа и Интерфейс — Приложение своё
Автоматическое определение занятости приложения
Активизация предыдущего экземпляра вашей программы
Анализировать параметры командной строки при загрузке программы
Анимируйте ваше приложение
Выполнить код, когда приложение простаивает
Выставляем горячие клавиши для Delphi приложения
Запретить запуск второго экземпляра программы
Запретить запуск второго экземпляра программы 2
Защита по ключевой дискете — защита от копирования
Использовать визуальный стиль XP для своего приложения
Использовать параметры запуска программы
Как вытащить VersionInfo из свойств проекта
Как держать приложение в минимизированном виде
Как запустить приложение в полноэкранном режиме
НЕ УДАЛОСЬ ПРОВЕРИТЬ ПРИЛОЖЕНИЕ!! что делать если скарлет не работает?!
Как заставить приложение запускаться в минимизированном состоянии
Как заставить приложение запускаться в минимизированном состоянии 2
Как написать программу, которую будет дешевле купить, чем сломать
Как не допустить запуск второй копии программы
Как не допустить запуск второй копии программы 2
Как не допустить запуск второй копии программы 3
Как не допустить запуск второй копии программы 4
Как не допустить запуск второй копии программы 5
Как не допустить запуск второй копии программы 6
Как не допустить запуск второй копии программы 7
Как не допустить запуск второй копии программы 8
Как не допустить запуск второй копии программы 9
Как не допустить запуск второй копии программы 10
Как не допустить запуск второй копии программы 11
Как не допустить запуск второй копии программы 12
Как определить — находится ли приложение в режиме отладки
Как определить работает ли уже данное приложение или это его первая копия
Как определить, что моё приложение хотят завершить
Как отследить переход фокуса в приложении
Как получить путь запущенного приложения
Как поменять приоритет моего приложения
Как программе удалить саму себя
Как программе удалить саму себя 2
Как создать и вызвать модальный формуляр
Как узнать активно ли приложение
Как узнать версию программы
Каким образом, программным путем, можно узнать о завершении запущенной программы
Количество запущенных копий программы
Определить запущена ли программа под системным аккаунтом
Определить, управляется ли удаленно текущая сессия
Определить, что программа запущена в пространстве VMware
Определить, что программа запущена в пространстве Virtual PC
Отображение главного окна приложения на переднем плане
Отобразить информацию из Version Info проекта
Перезапустить свою программу
Переслать командную строку из второго экземпляра программы в первый
Как проверить здоровье и срок службы SSD HDD
Показ логотипа при запуске приложения
Показ логотипа при запуске приложения 2
Показ логотипа при запуске приложения 3
Получить системный фокус приложения
Приостановить работу программы
Проверить, работает ли программа в Terminal Client Session
Программа запускается только нужное количество раз
Программа запускается только один раз за сессию Windows
Программа только на один запуск
Реализовать фоновую работу программы
Способ создания TSR программ без PSP
Удалить из директории проекта лишние файлы
Удалить свою программу после ее завершения
Форма с данными о приложении Version Info
Источник: delphibaza.ru
Как узнать: работает ли какая-либо сторонняя программа — VB
Добрый вечер. Появился вопрос: как можно проверить работает ли какая-то программа в данный момент. Есть у меня один метод но мне он не подходит:
Option Explicit Private Sub Command1_Click() Kill («C:file.exe») End Sub
И если программа активна, выдаст ошибку 75. Но если нет то удалит Подскажите кто знает может обойтись тут Api функцией. Спасибо.
Код к задаче: «Как узнать: работает ли какая-либо сторонняя программа»
Листинг программы
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Private Declare Function CreateToolhelp32Snapshot Lib «Kernel32» (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function Process32First Lib «Kernel32» (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib «Kernel32» (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib «Kernel32» (ByVal hPass As Long) Public Function ProcessExist(WhatProcess$) As Boolean Dim hSnapShot, 0 0, InStr(uProcess.szExeFile, Chr$(0)) — 1, 0)) If StrComp(ProcessName, WhatProcess, vbTextCompare) = 0 Then ProcessExist = True: Exit Do r = Process32Next(hSnapShot, uProcess) Loop CloseHandle hSnapShot End Function Sub test() MsgBox ProcessExist(«notepad.exe») End Sub
Источник: studassistent.ru
Проверить, работает ли программа в Terminal Client Session
Delphi , Программа и Интерфейс , Приложение своё
Проверить, работает ли программа в Terminal Client Session
function IsRemoteSession: Boolean; const sm_RemoteSession = $1000; begin Result := GetSystemMetrics(sm_RemoteSession) <> 0; end;
Статья Проверить, работает ли программа в Terminal Client Session раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
Источник: www.kansoftware.ru