| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Параметры запуска приложения [D7, WinXP]

Ralf ©   (2004-11-16 20:58:00) 

У меня такой вопрос, если например файлы с определённым расширением открываются каким то приложением, то как перехватить "параметры" и открыть файл не во второй копии этого приложения, а в той, которая запущенна в данный момент. P.S. Я использовал функцию ShellExecute(...., Parameters, ..), где Parameters и есть "параметры", т.е. путь к файлу, который нужно открыть. Если можно поподробнее. Заранее благодарен.

---

Kair   (2004-11-17 07:10:00) [1]

P.S. Проверка, запущена ли уже программа или нет:


program MyProgram;

uses
 Forms, Windows, ...;

var
 hMutex: Cardinal;

begin
 Application.Initialize;
 Mutex := CreateMutex(nil, False, 'MyString');
 if GetLastError <> 0 then Exit;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
 ReleaseMutex(Mutex);
end.


---

Kair   (2004-11-17 07:04:00) [2]

> Германн ©   (17.11.04 04:28) [5]
> А я бы еще попросил бы разъяснить - "и открыть файл не во
> второй копии этого приложения, а в той, которая запущенна
> в данный момент".


Чтобы при запуске второй копии приложения, эта самая копия передавала имя файла первой копии приложения, чтобы уже та (первая) копия обработала файл, запускаемый во-второй копии.

---

Германн   (2004-11-17 04:28:00) [3]

А я бы еще попросил бы разъяснить - "и открыть файл не во второй копии этого приложения, а в той, которая запущенна в данный момент".

---

Тестировщица   (2004-11-17 02:09:00) [4]

XProger ©   (17.11.04 01:35) [2] Афигеть... Ж%-О

---

GuAV   (2004-11-17 01:47:00) [5]

XProger ©   (17.11.04 1:35) [2]
Гарантий на правильность не даю... ;)

Я гарантирую непраильность ;-)

---

XProger   (2004-11-17 01:35:00) [6]

hWnd := FindWindow('TMainForm', nil);
if hWnd <> 0 then
begin
if IsIconic(hWnd) then
 ShowWindow(hWnd, SW_RESTORE);
SetForegroundWindow(hWnd);
SendMessage(hWnd, WM_USER + 1, 0, LPARAM(PChar(ParamStr(1))));
close;
end;

А в цикле перехвата сообщений пишешь
WM_USER + 1:
OpenFile(PChar(lparam));

Гарантий на правильность не даю... ;)

---

Poirot   (2004-11-16 21:56:00) [7]

Что значит перехватить!?!?
Ты их задаёшь, значит ты и должен их знать:) Или объясняй проблему более точно:)

---

Наверх