Скачать: CL | DM;

Определение сессии Windows.   Найти похожие ветки 

← →
Митяй2   (2003-10-24 10:44) [0]

Здравствуйте, подскажите, пожалуйста.

Запускаем 1-ый раз программу.
Она ЧТО-ТО делает в ТЕКУЩЕЙ сессий windows.
После своей работы она сохраняет данные.
Выходим из программы.

Через некоторое время запускаем 2-ой раз программу.
Как определить запущенна программа в той же сессии windows,
или была произведена перезагрузка компьютера и сессия Windows
уже новая.
Это нужно, т.к. это влияет на алгоритм работы программы.

---

← →
ZEE ©   (2003-10-24 11:00) [1]

вот нашел когда-то в сети
//Данный пример запускается только один раз за сессию Windows.
procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom("THIS_IS_SOME_OBSCUREE_TEXT") = 0
then GlobalAddAtom("THIS_IS_SOME_OBSCUREE_TEXT") else
begin
ShowMessage("This version may only be run "+
"once for every Windows Session."+#13+
"To run this program again, you "+
"need to restart Windows, or better yet:"+#13+
"REGISTER !!");
Halt;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c