Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

запуск только одной копии приложения [D7, XP]

Страницы: < 1 2
Chuk & Gek © (2006-12-18 17:47:00)
Помогите пожалуйста!
Где-то на компе была информация, но найти не могу...
Лёгкий вопрос:как реализовать запуск только одной копии приложения, т.е. чтобы если программа запушена, то еще одну запустить было нельзя
Спасибо.

Chuk & Gek (2006-12-18 18:33:00) [21]
>Ну не хочет он мьютексов.
Если бы знать что это такое...

Anatoly Podgoretsky (2006-12-18 18:30:00) [22]
> Gero (18.12.2006 18:28:14) [14]

Ну не хочет он мьютексов.

Gero (2006-12-18 18:28:00) [23]
CreateMutex

Anatoly Podgoretsky (2006-12-18 18:26:00) [24]
> Chuk & Gek (18.12.2006 18:25:12) [12]

FAQ читай, поиском пользуйся, по данной теме тонны информации.

Chuk & Gek (2006-12-18 18:25:00) [25]
Не ну правда Пожалуйста объясните мне тупому!!!

Anatoly Podgoretsky (2006-12-18 18:23:00) [26]
> Chuk & Gek (18.12.2006 18:19:10) [10]

Не кричи, все равно советы не слушаешь.

Chuk & Gek (2006-12-18 18:19:00) [27]
ЛЮДИ НУ НЕ БУДТЕ ТАКИМИ ВМЕСТО ЭТОЙ КУЧИ ПОСТОВ ДВАНО БЫ СМОГЛИ ПОМОЧЬ.....извините что так громко :)))))

Chuk & Gek (2006-12-18 18:15:00) [28]
Вот в факе нашел:
if FindWindow('TAppBuilder', Nil) <> 0 Then ShowMessage('Delphi and or C++ Builder is running');
переделал до:
if FindWindow('TForm1', Nil)<>0 then Application.Terminate;
И ничего!!! тупо... Я его запускаю первый раз а он сразу вырубается...

Chuk & Gek (2006-12-18 18:09:00) [29]
>>у меня 5 штук одновременно играет
расскажите как!!!

Desdechado (2006-12-18 18:07:00) [30]
> опробуйте запустить 2 винампа к примеру
у меня 5 штук одновременно играет
такая какофония...

ты фак-то почитай

Anatoly Podgoretsky (2006-12-18 18:07:00) [31]
> Chuk & Gek (18.12.2006 18:06:05) [5]

Конечно, используй мьютексы и будет тебе счастье.

Chuk & Gek (2006-12-18 18:06:00) [32]
Вот нашел:
program Project1;

uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
hwin:HWND;

begin
hwin:=FindWindow('TForm1','Hallo World!!!');
if hwin<>0 then
begin
SetForegroundWindow(hwin);
Application.Terminate;
end;

Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. Не работает.
Anatoly Podgoretsky (2006-12-18 17:56:00) [33] > Chuk & Gek (18.12.2006 17:53:03) [3] А они оба запускаются, потом одна запущеная копия закрывается. Это обман зрения. Но если хочешь, то тебе придется писать особый драйвер ядра, или все таки согласиться с запуском двух копий. Chuk & Gek (2006-12-18 17:53:00) [34] >>Не возможно. Извените, но попробуйте запустить 2 винампа к примеру %) Desdechado (2006-12-18 17:49:00) [35] http://www.delphimaster.ru/faq.shtml Anatoly Podgoretsky (2006-12-18 17:47:00) [36] > Chuk & Gek (18.12.2006 17:47:00) [0] Не возможно. Страницы: < 1 2 > Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »