Как запретить одновременный запуск нескольких копий окна???

← →
dimonf © (2003-05-30 19:54) [0]

Я создал диалоговое окно через функцию:
DialogBox(hInstance,"#501",hWnd, @DialogFunc);
Данную функцию я вызываю при нажатии по клавише enter.
1. Как мне запретить повторный запуск копии формы, если у меня еще она не закрыта???
2. Как мне сделать данную форму модальной, если она не закрыта то нельзя не на чего нажать, кроме кнопки выход?
Вообщем грубо говоря надо ее зделать модальной!!!

← →
panov © (2003-05-30 21:07) [1]

Для проверку на существование окна можно осуществлять так же, как и для всего приложения. Например:
function isRunning(aUniqueString:String): Bool; var hMutex: THandle; begin Result := False; hMutex := CreateMutex(nil,False,PChar(aUniqueString)); if GetLastError = ERROR_ALREADY_EXISTS then begin Result := True; CloseHandle(hMutex); end; end; ... if not isRunning("MyDialogBox") then MyFuncCreateDialogBox;

← →
panov © (2003-05-30 21:10) [2]

Вернее, в коде создания окна должен быть вызов...

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

А DialogBox по-твоему как окно отображает?

Из хелпа:
DialogBox macro creates a modal dialog box from a dialog box template resource.

В свете ответа на второй вопрос не понятен первый вопрос. Неужели ты это диалог позволяешь вызывать рекурсивно?

Как запретить одновременный запуск нескольких копий окна??? Найти похожие ветки