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

[Anfall]

eoln,
Проверил в новом проекте - все работает. В уже существующем почему-то не добавляются файлы (только один). Есть подозрения, что или программа не принимает их, или не отправляет. Какие могут быть конфликты? Уже все перепробовал(

[eoln]

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

Вместо 'TForm1' пишем свои данные, а именно класс из главного юнита, например,

type
  TForm1{это класс} = class(TForm) 
type
  TForm1 = class(TForm)
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
...

А также вместо 'Form1' свой заголовок окна (см. свойство Caption у главной формы)

[Anfall]

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

Вместо 'TForm1' пишем свои данные, а именно класс из главного юнита, например,

type
  TForm1{это класс} = class(TForm) 
type
  TForm1 = class(TForm)
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
...

А также вместо 'Form1' свой заголовок окна (см. свойство Caption у главной формы)

Спасибо огромное. Наверное ошибка в caption главной формы. Я думал форм1 - это имя формы, а не заголовок.

[HellMercenariess]

[QUOTE=eoln;579675]Пока писал, ov_lab уже опередил.
Например, такой способ. В файле проекта пишем

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.

Странно, передаю на открытие много файлов, но условие срабатывает только один раз..
В секцию после условия, должно попадать столько же раз сколько и файлов передается-1* ?

*для первого запуска

[eoln]

Для нескольких файлов нужен цикл для каждого параметра, либо всё сразу передать и потом распарсить в процедуре TForm1.wmcopydata.

program Project1;

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

{$R *.res}

var
  CopyDataStruct : TCopyDataStruct;
  S: string;
  i: integer;
begin
  CreateMutex(Nil, True, '999'); //запрещаем повторный запуск
  if GetLastError = ERROR_ALREADY_EXISTS then begin
    for i := 1 to paramcount do begin
      S:=paramstr(i); //добавляем файлы из проводника
      CopyDataStruct.cbData := Length(S)+1;
      CopyDataStruct.lpData := PChar(S);
      //далее отсылаем предыдущей копии команду на добавление
      SendMessage(FindWindow('TForm1', 'Form1'), $004A{WM_COPYDATA}, 0, LParam(@CopyDataStruct))
    end;
    halt
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

В процедуре TForm1.FormCreate также нужен цикл

[HellMercenariess]

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

Для нескольких файлов нужен цикл для каждого параметра

program Project1;

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

{$R *.res}

var
  CopyDataStruct : TCopyDataStruct;
  S: string;
  i: integer;
begin
  CreateMutex(Nil, True, '999'); //запрещаем повторный запуск
  if GetLastError = ERROR_ALREADY_EXISTS then begin
    for i := 1 to paramcount do begin
      S:=paramstr(i); //добавляем файлы из проводника
      CopyDataStruct.cbData := Length(S)+1;
      CopyDataStruct.lpData := PChar(S);
      //далее отсылаем предыдущей копии команду на добавление
      SendMessage(FindWindow('TForm1', 'Form1'), $004A{WM_COPYDATA}, 0, LParam(@CopyDataStruct))
    end;
    halt
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Итак, имеемс две проблемы:
1 при посылке 7 файлов ParamCount=1
2 при первом запуске, в скобки после условия совсем не попадаем, хоть и передается не один файл

[eoln]

Не знаю в чём причина... возможно, не туда или не так отсылаешь сообщения али ещё чего. У меня нормально работает (см. аттач). Запуск через командную строку

project1.exe file1 file2 file3 "file 4"

файлы из нескольких слов заключаем в кавычки, если запуск идёт через батник и содержит русские буквы, то не забываем сохранять батник в DOS-кодировке.

[HellMercenariess]

Скачал вашу наброску, закинул файлы:

[eoln]

HellMercenariess, я же писал что запускать через командную строку.
ПУСК - выполнить - CMD, жмём ENTER, переходим в папку программы и там пишем (или же через командную строку командера)

project1.exe "файл 1" "файл 2" "файл 3"

А то что показано на картинке, так это вроде было сделано командой "ОТКРЫТЬ С ПОМОЩЬЮ" - в этом случае всегда откроется только один файл.
Если нужно, например, как в медиа плеере обработать несколько файлов, то надо зарегистрировать программу в реестре и писать dll для этого.
Либо просто привязать тип файлов к программе(открыть с помощью - выбор программы(выбираем нашу программу) - использовать её для всех файлов такого типа), при следующем открытии группы файлов всё работает. Также можно подправить некоторые строчки в реестре (например заменить плеер своей программой, чтоб не мучаться в настройках), ну возможно есть и другие варианты... выбирайте на вкус и цвет

[HellMercenariess]

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

Если нужно, например, как в медиа плеере обработать несколько файлов, то надо зарегистрировать программу в реестре и писать dll для этого.

Наконец-то прояснилось в чем суть да дело!)
Где можно почитать мануал на эту тему ? Там немало всяких нюансов..

я же писал что запускать через командную строку.
ПУСК - выполнить - CMD, жмём ENTER, переходим в папку программы и там пишем (или же через командную строку командера)

подразумевается же делать проги для юзеров(возможно не очень прочуханых), а не для самого себя только

Также можно подправить некоторые строчки в реестре

Мучил реестр минут 40, финально пробовал подменять wmp.exe - дописывал в название .bak, так винда откуда-то опять рожает родимый файл..