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

[grafgrial]

А почему только в открытую форму заносится, желательно если она еще свернута. Просто в открытую легче сделать обычным перетаскиванием файлов на листбокс
Кстати если добавить так же в онкреат формы1 код который был вначале то и первый раз заносит

[JTG]

только в открытую форму заносится

Ну убери отправку и обработку WM_POPUP, хотя какую-то сигнализацию о том, что программа таки запустилась и отправила данные в первую запущенную копию советую оставить, FlashWindow(application.handle, true), например

[ArtGrek]

JTG может вы знаете, а что в моем коде не так

procedure TForm1.FormCreate(Sender: TObject);
var
  hMutex: integer;
  mmm: boolean;
  h, sh: HWND;
  i: integer;
  str: string;
begin
  mmm := false;
  hMutex := CreateMutex(nil, TRUE, 'Form1');
  if GetLastError <> 0 then
    mmm := true; 
  ReleaseMutex(hMutex);
  if mmm then
  begin
    h:=FindWindow(nil, 'Form1');  // находит
    FindWindowEx(h,sh,'TListBox','ListBox1'); //не находит, и ума не приложу почему???
    if (ParamCount > 0) then
      for i := 1 to ParamCount do
      begin
        str := ParamStr(i);
        SendMessage(sh, LB_ADDSTRING, 0, integer(@str));
      end;
    Application.Terminate;
  end;
  if (ParamCount > 0) then
    for i := 1 to ParamCount do
      listbox1.Items.Add(ParamStr(i))
end;

[JTG]

    h:=FindWindow(nil, 'Form1');
    sh:=FindWindowEx(h, 0, 'TListBox','');
...
    SendMessage(sh, LB_ADDSTRING, 0, dword(str));

[ArtGrek]

а вот и нет
я много что перекомбинировал, и шас вот пробую не катит
и как я понимаю все дело в

    sh:=FindWindowEx(h, 0, 'TListBox','');

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

[JTG]

:\ _______

[GunSmoker]

Пример (не обрабатывает этот момент).

[ArtGrek]

JTG вы послали ето на лист бокс второго окна или того же где код?

[JTG]

А какая, собственно, разница?

procedure TForm1.Button1Click(Sender: TObject);
var h, sh: dword;
    s: string;
begin
  s := 'Здравствуй, выпадающий список. Вот тебе строка.';
  Variant(CreateOleObject('Shell.Application')).FileRun;     //uses ..., ComObj
  Sleep(100);
  h := FindWindow(nil, 'Запуск программы');
  sh := FindWindowEx(h, 0, 'ComboBox','');
  SendMessage(sh, CB_ADDSTRING, 0, dword(s));
  SendMessage(sh, CB_SHOWDROPDOWN, dword(true), 0);
end;