Как передать данные уже в запущеную программу

[dr.Chas]

Т.е. как в ноте пад, не запускаеться ещё одна копия, а открываеться вкладка.
Вот то что я написал в .dpr

begin
  CheckEvent:=TEvent.Create (nil, false, true, 'Program');
  If CheckEvent.WaitFor (10) <> wrSignaled then
// программа запущенна что тут написать? Что бы передать параметры
  else
// программа не запущенна
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

В событии create у меня есть такое:

if (paramcount>0) and fileexists(paramstr(1)) then

А если я передам в программу параметры какое это должно быть событие?

[mutabor]

Для начала нужно предотвратить запуск копии
http://programmersforum.ru/showthread.php?t=21585

Далее нужно получить параметр, думаю так же через paramstr, но не в Create формы (это при запуске, второй раз этого события не будет) а получать сообщение от винды, но я точно не знаю какое. Или может из той копии, пока она не закрылась, передать сообщение своей программе.
Тут я точно не скажу.

p.s. Сразу не въехал, ты все это уже сделал )
Про SendMessage поищи темы может найдешь подходящее.

[dr.Chas]

Сообщение от mutabor

p.s. Сразу не въехал, ты все это уже сделал )
Про SendMessage поищи темы может найдешь подходящее.

Ну с кем не бывает))
А темы я искал просмотрел нашёл, вот эту тему http://pblog.ru/?p=8
Честно скажу, многое я из неё не понимаю, но дело ещё даже не в этом, уж слишком там очень объёмно, поэтому решил спросить, может кто знает как можно подругому, а это как запасной вариант.

[mutabor]

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

Пересказывать тебе все это по второму разу нет никакого смысла, лучше спроси именно то, что не понимаешь.

Там смотри внизу указали на ошибку с мьютексами, я мало в этом разбираюсь, но вроде у тебя более правильный вариант проверки на запущенную копию, есть задержка(10).
Насчет хранения хэндла окна, там тоже автор сказал что использует не лучший способ, а какой лучший даже не намекнул. Я могу еще предложить хранить в файле, в том же ini (WriteInteger), больше ничего на ум не приходит.
А вообще статья полная, есть код, так что у тебя все получится.

Я был прав насчет сообщения (WM_COPYDATA) и SendMessage, все таки немного разбираюсь в колбасных обрезках )

[B_N]

dr.Chas, если задача состоит только в том, чтобы передать в другую копию командную строку, то WM_COPYDATA - проще всего.
Вот эта:

  CheckEvent:=TEvent.Create (nil, false, true, 'Program');
  If CheckEvent.WaitFor (10) <> wrSignaled then

конструкция не совсем правильна. После получения хендла нужно проверять GetLastError на предмет ошибки ERROR_ALREADY_EXISTS. Не нужно никаких WaitFor. Имя 'Program' абсолютно непригодное - чем длиннее, сложнее и случайнее будет имя объекта, вроде '__$$$_87876tyut_My_Executable_File _Name_hkjahjhk_###_EvEnT__', тем меньше вероятность, что он будет создан каким-то другим приложением, не имеющим с "нашим" ничего общего.

[mutabor]

B_N, а как насчет того способа что в статье, ты согласен с критикой, или же все верно? И если там не совсем верно, как будет более правильно?

var HM: THandle;
function Check: boolean;
begin
HM := OpenMutex(MUTEX_ALL_ACCESS, false, ‘TestProjectMutex’);
Result := (HM <> 0);
if HM = 0 then HM := CreateMutex(nil, false, ‘TestProjectMutex’);
end;

Обращаю Ваше внимание на то, что в данной статье присутствует грубейшая ошибка, сводящая на “НЕТ” саму идею межпроцессной синхронизации, в следующем коде:
...
(сначала - OpenMutex. Потом принятие решения на основе OpenMutex - HM0 , а потом выводы на осное решения - CreateMutex. А что будет, если другой поток будет исполняться с опозданием, например, ровно на одну инструкцию процессора? ). В подобных случаях необходимо сразу создавать мьютекс (CreateMutex) и принимать решение на основании возвращённого значения и значения кода ошибки в GetLastError() (уничтожая его посредством CloseHandle, если он оказывается ненужным (т.е. во втором… (не первом) ) экземпляре запущенной программы).

[B_N]

С этой критикой всё правильно. Типичная (и очень распространённая) ошибка, когда забывают, что работают под многозадачной ОС. Поэтому и рекомендуется в таких случаях не открывать именованые объекты, а создавать. ОС создаёт объекты атомарно, не более одного в любой момент, а два объекта с одинаковыми именами создать не даст - вернёт уже существующий объект и соответствующую ошибку - ERROR_ALREADY_EXISTS.

------------------------------

program Project1;
uses
  Forms,
  windows,
  system,
  dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

const
    pszMutantName : PWIDECHAR = '__$$$_TesT_lOCk_aPp_$$$__MuTaNt__';
var
    hMutant : THANDLE;

begin

    hMutant := CreateMutexW(nil, FALSE, pszMutantName);
    if hMutant = 0 then begin
        // Не удалось создать объект
        // Случай редкий и скорее всего говорит или о
        // неверных параметрах, или о нехватке памяти
        // Уточняется через GetLastError()
        ShowMessage('Ошибка создания объекта');
    end
    else if GetLastError() = ERROR_ALREADY_EXISTS then begin
        // Объект уже существует, значит, с высокой вероятностью,
        // при "хорошем" имени объекта, создан другой, уже
        // работающей копией приложения
        ShowMessage('Приложение уже запущено');
        exit;
    end;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[mutabor]

То есть все та же вероятность попасть на такое же название от чужой программы?

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

[B_N]

Сообщение от mutabor

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

Да. Примерно та же история, что с паролями. Конечно если "придумать" "хорошее" имя, эту ситуацию можно сделать практически невероятной. Тем более, что для такой прверки подходят любые именованые объекты, кроме дисковых файлов, пожалуй. Можно, например, создавать именованые секции в пейдж-файле и в них записывать какую-то уникальную для приложения информацию, но, в принципе, просто достаточно задать хорошее имя обычному синхрообъекту.

[mutabor]

Вот, написал программку по этой теме, сам заодно разобрался.
Использовались эта статья, этот форум, другие форумы и свои наработки.
Реализованы многие "чаво" вопросы:
- Проверка на наличие запущенной копии
- Передача сообщения копии своей программы
- Прием параметров командной строки
- Динамическое добавление вкладок
- Вывод программы на передний план

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