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

[Anfall]

Доброго времени суток всем.
Делаю программу. Из проводника надо открыть с помощью нее файлы.

procedure TForm1.FormCreate(Sender: TObject);
var
S: string; 
begin
  S:=paramstr(1); //добавляем файлы из проводника
  if fileexists(S) then
  listbox2.Items.Add(s);

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

Заранее благодарен!

[ZuBy]

запрети второй запуск, на форуме полно примеров

[Anfall]

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

запрети второй запуск, на форуме полно примеров

Запуск-то запретил. Но открывается только один файл(

[ZuBy]

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

Запуск-то запретил. Но открывается только один файл(

обработка должна идти до того как сработает защита (второй запуск)

[Anfall]

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

обработка должна идти до того как сработает защита (второй запуск)

Спасибо) Попробую.

Хм. Все равно не работает. Один файл добавляет и все.
Использую:

if paramcount>0 then
begin
  S:=paramstr(1);
  if fileexists(S) then
  listbox2.Items.Add(s);
reopen;
end;

[ZuBy]

var
  CheckEvent        : TEvent; // uses SyncObjs

    // пишется это в самом поекте, .dpr файле
    CheckEvent := TEvent.Create(nil, false, true, 'УНИКАЛЬНОЕ НАЗВАНИЕ');
    if CheckEvent.WaitFor(10) <> wrSignaled then Halt;

[Anfall]

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

var
  CheckEvent        : TEvent; // uses SyncObjs

    // пишется это в самом поекте, .dpr файле
    CheckEvent := TEvent.Create(nil, false, true, 'УНИКАЛЬНОЕ НАЗВАНИЕ');
    if CheckEvent.WaitFor(10) <> wrSignaled then Halt;

Спасибо, но
Проверил -- аналогично(

Может где-то в другом ошибка у меня? Вот весь участок кода:

procedure TForm1.FormCreate(Sender: TObject);
var
S: string; 
begin

  S:=paramstr(1); //добавляем файлы из проводника
  if fileexists(S) then
  listbox2.Items.Add(s);

CreateMutex(Nil, True, '999'); //запрещаем повторный запуск
If GetLastError <> 0 Then
Begin
Halt;
End;

[ov_lab]

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

Спасибо, но
Проверил -- аналогично(

Может где-то в другом ошибка у меня?

Ошибка в том, что проводник для КАЖДОГО выделенного файла будет вызывать программу с параметром. Следовательно, алгоритм должен быть такой:
При запуске проверяем, первая ли это копия. Если да, создаем форму и помещаем ParamStr(1) в ListBox.
Если это вторая или последующие копии, то нужно каким-либо образом отыскать окно первой копии (например по уникальному классу окна) и передать ему ParamStr(1) например, через WM_COPYDATA или каким-то другим способом.

[eoln]

Пока писал, 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.

В юнит пишем

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;

[Anfall]

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

Пока писал, 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.

В юнит пишем

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;

Спасибо огромное!