| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отслеживание запущенной программы [D6, WinXP]

иван8511 ©   (2006-09-23 21:45:00) 

Подскажите, пожалуйста, как сделать чтоб пользователь не мог запустить программу дважды. Т.е. если программа запущена, то нельзя было запустить ее (случайно) еще раз. Это особенно важно в программах по созданию базы данных.

---

иван8511   (2006-09-23 23:11:00) [1]

Спасибо большое. Попробую разные варианты.

---

ProgRAMmer Dimonych   (2006-09-23 23:01:00) [2]

Для [4]
К сожалению, на мыло не могу. У меня после переустановки винды есть проблемы с почтовиками. Msoe.dll им не хватает. Поэтому только веб-броузером могу работать.

P.S. Советую посмотреть [5], [6]. Тоже есть в разных справочниках.

---

Орион   (2006-09-23 22:56:00) [3]

ЗЫ:
И проверяешь (тоже в dpr)
if not IsFirstCopy then ExitProcess(0);

---

Орион   (2006-09-23 22:55:00) [4]

В .dpr файле:

program MyProgram;

...

var
 MemHnd: THandle;

function IsFirstCopy: Boolean;
const
 MemFilename = 'MY_UNIQUE_PROGRAM_NAME';
begin
  MemHnd:=CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, 1, MemFilename);
  Result:=GetLastError<>ERROR_ALREADY_EXISTS;
end;

...

begin
...
 if MemHnd>32 then CloseHandle(MemHnd);
end.



---

иван8511   (2006-09-23 22:54:00) [5]

Спасибо. Если не трудно скинте, пожалуйста, на   liw@inbox.ru

---

ProgRAMmer Dimonych   (2006-09-23 22:49:00) [6]

Из программки DelphiWorld:

Активизация предыдущего экземпляра вашей программы  
--------------------------------------------------------------------------------

Если внутренняя переменная hPrevInst не равна нулю, то она содержит дескриптор предыдущего запущенного экземпляра вашей программы. Вы просто находите открытое окно по его дескриптору и, при необходимости, выводите на передний план. Весь код расположен в файле .DPR file, НЕ в модуле. Строки, которые вам необходимо добавить к вашему .DPR-файлу, в приведенном ниже примере помечены {*}.

program Once;

uses
{*}  WinTypes, WinProcs, SysUtils,

Forms,
Onceu in 'ONCEU.PAS' {Form1};

{$R *.RES}
{*}TYPE
{*}  PHWND = ^HWnd;

{*}  FUNCTION EnumWndProc(H : hWnd; P : PHWnd) : Integer; Export;
{*}  VAR ClassName : ARRAY[0..30] OF Char;
{*}  BEGIN
{*}    {Если это окно принадлежит предшествующему экземпляру...}
{*}    IF GetWindowWord(H, GWW_HINSTANCE) = hPrevInst THEN
{*}      BEGIN
{*}        {... проверяем КАКОЕ это окно.}
{*}        GetClassName(H, ClassName, 30);
{*}        {Если это главное окно приложения...}
{*}        IF StrIComp(ClassName, 'TApplication') = 0 THEN
{*}          BEGIN
{*}            {... ищем}
{*}{*}            P^ := H;
{*}            EnumWndProc := 0;
{*}          END;
{*}      END;
{*}  END;

{*}  PROCEDURE CheckPrevInst;
{*}  VAR PrevWnd : hWnd;
{*}  BEGIN
{*}    IF hPrevInst <> 0 THEN
{*}      {Предыдущий экземпляр запущен}
{*}      BEGIN
{*}        PrevWnd := 0;
{*}        EnumWindows(@EnumWndProc, LongInt(@PrevWnd));
{*}        {Ищем дескриптор окна предыдущего}
{*}        {экземпляра и активизируем его}
{*}        IF PrevWnd <> 0 THEN
{*}          IF IsIconic(PrevWnd) THEN
{*}            ShowWindow(PrevWnd, SW_SHOWNORMAL)
{*}          ELSE BringWindowToTop(PrevWnd);
{*}        Halt;
{*}      END;
{*}  END;
begin
{*}  CheckPrevInst;

Application.Title := 'Once';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Есть ещё десяток вариантов в разных электронных справочниках... Если надо, могу скинуть на Webfile.ru...

---

иван8511   (2006-09-23 22:40:00) [7]

Своя. Это моя программа которую я пишу.

---

ProgRAMmer Dimonych   (2006-09-23 22:37:00) [8]

Имеется в виду программа чужая или своя?

---

Наверх