Открыть несколько файлов из проводника

Posted by Chas under Delphi

Делаю программу. Из проводника надо открыть с помощью нее файлы. Однако, если открываю сразу несколько файлов, то вместо того чтобы добавлять их в Listbox, открывается несколько копий моей программы. Где ошибка? Как решить эту проблему?

eoln
Например, такой способ. В файле проекта пишем

program Project1;

uses

  Forms, Windows,

  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var

  CopyDataStruct : TCopyDataStruct;

  S: string;

begin

  CreateMutex(Nil, True, '999'); //запрещаем повторный запуск

  if GetLastError = ERROR_ALREADY_EXISTS then begin

    S:=paramstr(1); //добавляем файлы из проводника

    CopyDataStruct.cbData := Length(S)+1;

    CopyDataStruct.lpData := PChar(S);

    //далее отсылаем предыдущей копии команду на добавление

    SendMessage(FindWindow('TForm1', 'Form1'), $004A{WM_COPYDATA}, 0, LParam(@CopyDataStruct));

    halt

  end;

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.

В юнит пишем

type

  TForm1 = class(TForm)

    ...

    ListBox2: TListBox;

    procedure FormCreate(Sender: TObject);

    procedure wmcopydata(var msg: twmcopydata); message wm_copydata;

    ...

  private

    { Private declarations }

  public

    { Public declarations }

  end;

...

procedure TForm1.wmcopydata(var msg: twmcopydata);

var

  s: string

begin

  if msg.copydatastruct <> nil then begin

    s := string(msg.copydatastruct^.lpdata);

    if fileexists(S) then

      ListBox2.Items.Add(s)

  end

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  S: string;

begin

  S:=paramstr(1); //добавляем файлы из проводника

  if fileexists(S) then

    listbox2.Items.Add(s);

end;

тема на форуме

Похожие статьи

• Как послать текст в Блокнот?
• Как в другом окне кликнуть на кнопку
• Запрет запуска второй копии программы
• Отправка текста в неактивное окно программы
• Как получить данные с чужой программы в свою?
• Получение картинки с веб-камеры
• Сделать printscreen экрана и сохранить
• Послать сообщение о клике по окну мышкой
• Захвата и переопределение клавиш в чужом приложении
• Не создавать форму при определенном параметре