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

Отслеживание запущенной программы   Найти похожие ветки 

← →
иван8511   (2006-09-23 21:45) [0]

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

---

← →
ProgRAMmer Dimonych   (2006-09-23 22:37) [1]

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

---

← →
иван8511   (2006-09-23 22:40) [2]

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

---

← →
ProgRAMmer Dimonych   (2006-09-23 22:49) [3]

Из программки 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:54) [4]

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

---

← →
Орион ©   (2006-09-23 22:55) [5]

В .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.



---

← →
Орион ©   (2006-09-23 22:56) [6]

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

---

← →
ProgRAMmer Dimonych   (2006-09-23 23:01) [7]

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

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

---

← →
иван8511   (2006-09-23 23:11) [8]

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

---

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

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



Память: 0.47 MB
Время: 0.027 c