sendto и обработка принятия программой параметров

[grafgrial]

Проблема такого типа создал ссылку на программу в папке SendTo. Нажимаю отправить в свою программу
(код обработки)

if (ParamCount > 0) then
listbox1.Items.Add(ParamStr(1));

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

[ArtGrek]

код в студию
больше

[Yurk@]

делай проверу - запущена ли она уже ... если да - передавай ей фокус и параметр\переменную, а если нет - запускай

[grafgrial]

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

код в студию
больше

какой код? уже кинул
пустая форма, есть listbox и в обработчике формы (onCreate)
Код:

if (ParamCount > 0) then
listbox1.Items.Add(ParamStr(1));

и Ярлык в папке SendTo
Все..

[ArtGrek]

напиши нормально что надо зделать и как делаеш ты

[grafgrial]

Распакуй на диске С, а ярлык на рабочий стол и переташи на ярлык любой файл несколько раз и увидишь что программа запустилась несколько раз и в каждой одна строчка с именем файла (мне нужно чтобы запустилась только одна программа и в ней были имена всех файлов)
Пример.rar

[ArtGrek]

вот немного доработал, если выделить несколько фаилов сразу, заносит все
и проверка на то, что программа запушена

procedure TForm1.FormCreate(Sender: TObject);
var
  hMutex: integer;
  mmm: boolean;
  h, sh: HWND;
begin
  mmm := false;
  hMutex := CreateMutex(nil, TRUE, 'AbraShvabra'); 
  if GetLastError <> 0 then
    mmm := true; 
  ReleaseMutex(hMutex);
  if mmm then  Application.Terminate;
  ShowMessage(IntToStr(ParamCount));
  if (ParamCount > 0) then
    for i := 1 to ParamCount do
      listbox1.Items.Add(ParamStr(i))
end;

[grafgrial]

если скопом файлы идет конечно, но желательно чтобы по одному тоже записывались

[JTG]

program Project1;

uses
  Forms, Windows, Messages, SysUtils,  Unit1 in 'unit1.pas';

{$R *.res}

var
  wndClass, wndCaption: array[0..255] of char;
  mutex, wnd, i: dword;
  data: TCopyDataStruct;

begin
  mutex := CreateMutex(nil, true, '{2D20B3FE-07F2-4700-A307-BE9F1D0CDFF0}');
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  if WaitForSingleObject(mutex, 0) <> WAIT_OBJECT_0 then
  begin
    StrPCopy(wndClass, Form1.ClassName);
    StrPCopy(wndCaption, Form1.Caption);
    Form1.Free;
    wnd := FindWindow(wndClass, wndCaption);
    for i:=1 to ParamCount do
    begin
      data.dwData := 0;
      data.cbData := length(paramstr(i))+1;
      data.lpData := PChar(paramstr(i));
      SendMessage(wnd, WM_COPYDATA, 0, dword(@data));
    end;
    SendMessage(wnd, WM_POPUP, 0, 0);
    Application.Terminate;
  end;

  Application.Run;
  ReleaseMutex(mutex);
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const WM_POPUP = WM_USER + 100;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    procedure onWM_COPYDATA(var msg: TWMCopyData); message WM_COPYDATA;
    procedure onWM_POPUP(var msg: TMessage); message WM_POPUP;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.onWM_POPUP(var msg: TMessage);
begin
  Application.Restore;
  FormStyle := fsStayOnTop;
  FormStyle := fsNormal;
end;

procedure TForm1.onWM_COPYDATA(var msg: TWMCopyData);
begin
  Memo1.Lines.Add(PChar(Msg.CopyDataStruct.lpData));
  msg.Result := 1;
end;

end.

[ArtGrek]

только при первом запуске с параметром ничего не происходит
а дальше все супер