Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Вниз

Программа   Найти похожие ветки 

← →
LazorenkoX   (2002-04-04 13:23) [2]

Удобно использовать главную форму (TfmMain). В таком случае ты не ошибёшься если программа запущена из другой папки или уже есть программа с таким екзешником как твой.:


uses
Windows, Forms;
var
h: LongInt

h := FindWindow("TfmMain", nil)
if h > 0 then begin
SetForegroundWindow(h) //Показываем запущенную копию
Halt;
end else //не запущена


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c