Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 138

•  TDictionary Custom Sort  6 209

•  Fast Watermark Sources  6 009

•  3D Designer  8 902

•  Sik Screen Capture  6 345

•  Patch Maker  6 763

•  Айболит (remote control)  6 746

•  ListBox Drag & Drop  5 618

•  Доска для игры Реверси  96 157

•  Графические эффекты  6 965

•  Рисование по маске  6 233

•  Перетаскивание изображений  5 136

•  Canvas Drawing  5 503

•  Рисование Луны  5 208

•  Поворот изображения  4 756

•  Рисование стержней  3 362

•  Paint on Shape  2 610

•  Генератор кроссвордов  3 504

•  Головоломка Paletto  2 797

•  Теорема Монжа об окружностях  3 605

•  Пазл Numbrix  2 365

•  Заборы и коммивояжеры  3 046

•  Игра HIP  1 999

•  Игра Go (Го)  1 925

•  Симулятор лифта  2 282

•  Программа укладки плитки  1 983

•  Генератор лабиринта  2 440

•  Проверка числового ввода  2 121

•  HEX View  2 456

•  Физический маятник  2 077

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как не допустить запуск второй копии программы 9



Можно ли программу, написанную под Windоws, называть подоконником?


var
  MutexHandle: THandle;
var
  UniqueKey: string;

function IsNextInstance: BOOLEAN;
begin

  Result := FALSE;

  MutexHandle := 0;
  MutexHandle := CREATEMUTEX(nil, TRUE, UniqueKey);
  if MutexHandle <> 0 then
  begin
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      Result := TRUE;
      CLOSEHANDLE(MutexHandle);
      MutexHandle := 0;
    end;
  end;
end;

begin

  CmdShow := SW_HIDE;
  MessageId := RegisterWindowMessage(zAppName);
  Application.Initialize;
  if IsNextInstance then
    PostMessage(HWND_BROADCAST, MessageId, 0, 0)
  else
  begin
    Application.ShowMainForm := FALSE;
    Application.CreateForm(TMainForm, MainForm);
    MainForm.StartTimer.Enabled := TRUE;
    Application.Run;
  end;
  if MutexHandle <> 0 then
    CLOSEHANDLE(MutexHandle);
end.

В MainForm вам необходимо вставить обработчик внутреннего сообщения


procedure TMainForm.OnAppMessage(var M: TMSG; var Ret: BOOLEAN);
begin
  if M.Message = MessageId then
  begin
    Ret := TRUE;
    // Поместить окно наверх !!!!!!!!
  end;
end;

initialization
  ShowWindow(Application.Handle, SW_Hide);
end.








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте