Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

Help   Найти похожие ветки 

 
yuray76   (2002-11-27 15:38) [0]

Как предотвратить запуск приложения, если оно уже открыто?


 
@Ujin   (2002-11-27 15:40) [1]

//Проверка открыт ли?
Hwnd := FindWindow("TMainForm", nil);
if Hwnd <> 0 then begin
ShowMessage("Уже запущена!");
SetForegroundWindow(Hwnd);
goto lExit;
end;


 
yuray76   (2002-11-27 16:06) [2]

А под какое событие это вешать? Цепляю на Form1.Create - неполучается. Спасибо.


 
F1   (2002-11-27 16:08) [3]

В код проекта - самое подходящее место!


 
yuray76   (2002-11-27 16:24) [4]

может я что то не понимаю, но в даном примере Hwnd всегда будет<>0. тоесть это хендел моего приложения. Или не так?


 
down   (2002-11-27 16:25) [5]

Нужно писать в dpr, до создания форм.


 
F1   (2002-11-27 16:32) [6]

>В код проекта - самое подходящее место!
Это который dpr
Меню Project->View Source
причем до строки
Application.CreateForm(TForm1, Form1);


 
F1   (2002-11-27 16:39) [7]

Да, забыл сказать, у тебя выскочит
Undeclared identifier: "FindWindow"
Дык ты не расстраивайся, просто сделай
Uses Windows;
:)))


 
yuray76   (2002-11-27 16:50) [8]

Спасибо, все работает. Просто надо проэкт закривать и запускать экзешник. Ато с делфи приложение видит форму TMainForm и закрывается. Всем спасибо.



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

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.01 c
1-28033
ZeaLoT
2002-11-30 11:07
2002.12.09
TRichEdit и ссылки


4-28348
DDS
2002-10-28 11:05
2002.12.09
Как поставить ассоциацию TXT файлов намою прогу.


6-28166
Aleksandr
2002-10-14 14:38
2002.12.09
Как можно вставить картинку в генерируемую страничку?


6-28159
Геннадий
2002-10-13 13:58
2002.12.09
А можно ли открыть файл с FTP как простой локальный?


3-27806
Shrek
2002-11-22 12:59
2002.12.09
SQL SELECT





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский