Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
01.06.2003, 23:41:20
|
|||
|---|---|---|---|
|
|||
Запрет запуска 2-ой копии программы |
|||
|
#18+
Я думаю из Темы всё ясно... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.06.2003, 09:34:57
|
|||
|---|---|---|---|
Запрет запуска 2-ой копии программы |
|||
|
#18+
Например один из самых простых способов: - При загрузки программы создай таблицу. Если возникает ошибка, то выход из программы. err = .f. on error err = .t. Create table c:\prog.tmp (f i) if err quit endif ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.06.2003, 09:39:22
|
|||
|---|---|---|---|
Запрет запуска 2-ой копии программы |
|||
|
#18+
У меня работает так: LOCAL llRetValue,lnHandle DECLARE INTEGER CreateEvent IN Win32API; INTEGER lpEventAttributes,; SHORT bManualReset,; SHORT bInitialState,; STRING @lpName DECLARE INTEGER GetLastError IN Win32API DECLARE CloseHandle IN Win32API INTEGER hObject lnHandle=CreateEvent(0,0,1,PROGRAM(0)+'.EVENT') llRetValue=.F. IF GetLastError()=183 OR lnHandle=0 llRetValue=.T. =CloseHandle(lnHandle) ENDIF RETURN llRetValue ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=41&tablet=1&tid=1598261]: |
0ms |
get settings: |
11ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
47ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
| others: | 230ms |
| total: | 381ms |
| 0 / 0 |
