Вопрос и Ответ 44 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Аннотация: Изложены основы программирования на языке Паскаль. По ходу обучения решаются десятки задач (использован проектный подход). От читателя не требуется начальных познаний в программировании, но круг затронутых тем ориентирует его в профессиональную область. Книга адресована школьникам средних и старших классов, желающим испытать себя в «олимпийских схватках». Будет полезна студентам-первокурсникам и преподавателям информатики.

Сам себе бренд. Искусство самопрезентации

Каждый, кому приходилось работать в сфере продаж, подсознательно чувствует, что продает он вовсе не товар. Он продает себя.

Любые взаимоотношения, деловые и не только, предполагают сделку. Как подчеркнуть свои достоинства? Как выделиться из толпы? Как вызвать к себе интерес, добиться расположения, завоевать доверие окружающих, покорить вершину и удержаться на ней? В этой энциклопедии «интуитивного маркетинга» собраны советы, подсказки, инструкции, как продать себя подороже.

Вопрос и Ответ 44

Версия для печати

Вопросы и Ответы

44. Как определить работает ли уже данное приложение или это первая его копия?

В Delphi 2.0 не поддерживается переменная hPrevInst (см. "Вопрос и Ответ 17") и определение первая это копия приложения или нет становится нетривиальной задачей.

Наиболее простой путь - перебор всех окон и при совпадении заголовка окна с Application.Title считать, что приложение уже запущено. Единственное, необходимо помнить, что в момент проверки Вы обнаружите и собственное окно (окно проверяющего приложения) и дочернее окно среды Delphi (в момент разработки приложения, для Delphi 1.0).

Пример:

............

procedure TForm1.FormCreate(Sender: TObject);
VAR

Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
WC: TWndClass;

begin

Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO BEGIN

{Если не собственное и не дочернее окно}
IF (Wnd <> Application.Handle) AND (GetWindow(Wnd, gw_Owner) = 0) THEN BEGIN

GetWindowText(Wnd, buff, sizeof(buff));
{Если заголовок совпадает, то...}
IF StrPas(buff) = Application.Title THEN BEGIN

MessageDlg('Приложение уже загружено', mtWarning, [mbOk], 0);
Halt;

END;

END;
Wnd := GetWindow(Wnd, gw_hWndNext);

END;

end;

............

...предыдущая страница следующая...
оглавление