Открыть два фала из Проводника или как послать WM_DROPFILES... [D6, D7]
MTsv DN © (2005-06-27 09:34:00)
Всем привет...
У меня появилась следующая проблема. В общем, задача такая: я
хочу, чтобы в Explorer'e при выборе двух, ассоциированных на мою
программу, файлов, запускалась моя прога и эти файлы добавлялись в
ListEdit (ну, как, например, в WinAmp'e). Но Windows запускает по
приложению для каждого файла. Поэтому я сделал так, запускаю первую
копию программы, а при запуске второй копии, хочу сделать Drop на
первую... Вот кусок кода для Drop'a:
******************************************************
******************************************************
******************************************************
// Разрешаем Drop
DragAcceptFiles(Application.Handle,True);
//Получили указатель на первое окно
Wnd := GetWindow(Application.Handle, gw_HWndFirst);
// Поиск
WHILE Wnd <> 0 DO BEGIN
// Это окно предыдущей копии ?
IF (Wnd <> Application.Handle) AND
(GetWindow(Wnd, gw_Owner) = 0)
THEN BEGIN
GetWindowText (Wnd, buff, sizeof (buff ));
IF StrPas (buff) = Application.Caption THEN
BEGIN
.... Тут получаем имя файла
hSF := FileOpen(_FileName, GENERIC_READ);
// И тут все зависает, до закрытия первой копии программы
SendMessage(Wnd, WM_DROPFILES, hSF, 0);
Halt;
END;
END;
Wnd := GetWindow (Wnd, gw_hWndNext);
END;
******************************************************
******************************************************
******************************************************
Если есть идеи, как решить саму проблемы (открытия файлов)
без WM_DROPFILES, с удовольствием выслушаю предложения...
С Уважением MTsv DN
GrayFace (2005-06-28 21:41:00) [1]
Делай, например, так:
wnd:=FindWindow(nil,'Уникальное имя класса гл. формы');
if wnd<>nil then
begin
SetForegroundWindow(wnd);
Дальше можно WM_COPYDATA или WM_DROPFILES, как у тебя.
halt;
end;
В MainForm:
protected
procedure CreateParams(var Params: TCreateParams);
override;
implementation
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WinClassName:='Уникальное имя класса гл.
формы';
end;
Наверх 
ЧАТ |
Орешник |
|
