Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Вниз

Открыть ParamStr(1) и не загрузить программу заново.   Найти похожие ветки 

 
Adil ©   (2006-07-01 00:10) [0]

Как это делается?? Мне надо делать так чтобы когда Открывал файл(файл открывается через мою прогу) он не загружал прогу если оно уже есть, а открывал его в сушествующем окне проги.

Многие способы придумал от WinAPI до COM. На некоторых(а может у всех) это через DDE делали.

Вообшим как это законно делат??


 
Phoroon~ ©   (2006-07-01 00:34) [1]

Проверяй на наличие экземпляров программы.
Если прога не загружена то, операции иначе операции.
во:
procedure TForm1.FormCreate(Sender: TObject);
var
 hMutex : THandle;
begin
 hMutex := CreateMutex(0, true , "My application name");
 if GetLastError = ERROR_ALREADY_EXISTS then
 begin
   CloseHandle(hMutex);
   Application.Terminate;
 end;

end;


 
Adil ©   (2006-07-01 01:00) [2]

From1 zaqrujaetsya a potom proveryayet est li eqo ekzemplyar? Eto je ne logichno. Esli ono uje zaqrujeno, pochemu zaqrujat i proveryat?? Voobshim tvoy otvet PASS ;)
Nu spasibo.


 
Rial ©   (2006-07-01 02:15) [3]


> Eto je ne logichno.

Что не логично ?

Кто же тогда должен проверять на наличие запущенной программы ?
Очевидно, какая то другая программа. В поставленной тобой задаче
получаем  еще одно ограничение - это должна быть одна и та же программа.

Так что зря бракуешь вариант.


 
Desdechado ©   (2006-07-01 13:33) [4]

зачем дублить?
http://delphimaster.net/view/2-1151698113/



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

Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.01 c
3-1148270251
Nike
2006-05-22 07:57
2006.07.23
Как заставить работать индексы в Access-таблице?


15-1150987302
ПЛОВ
2006-06-22 18:41
2006.07.23
Где-то видел такое...


15-1150884033
syte_ser78
2006-06-21 14:00
2006.07.23
Гемберд или Каньон?


2-1151943426
Ivolg
2006-07-03 20:17
2006.07.23
Размер


2-1151984955
abcd
2006-07-04 07:49
2006.07.23
mysql.стоит ли..





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский