ParamStr(i), i>2

[PTyTb32]

всем добра) сделал ассоциацию файлов со своей программой, теперь при открытии файла он передается с помощью ParamStr(1), и запускает программу, а если открыть несколько файлов, то каждый открывает себе программу и передается туда... подскажите пожалуйста, как это исправит?

[Stilet]

Думаю что придется делать запуск единого экземпляра программы, и в уже запущенный передавать новое имя открываемого файла.
Идея выраженна тут:
http://delphiworld.narod.ru/_all_articles_.html раздел Приложение свое - [68]

[min@y™]

я такую шляпу делал. кусок кода (do not copy-paste!):

// Передача командной строки в первую копию программы
procedure SendCommandLine;
var
  PrevMainFormHandle: THandle; // Хэндл формы предыд. копии программы
  FileName: string;
  Len: Integer;
  Data: TCopyDataStruct; // Структура для передачи
  Buffer: array[0..MAX_PATH - 1] of Char; // Буфер для передачи
begin
  FileName:= ParamStr(1);
  Len:= Length(FileName);

  if not FileExists(FileName) or (Len > MAX_PATH)
    then Exit;

  PrevMainFormHandle:= FindWindow('TSourceEditorMainForm', nil);

  if PrevMainFormHandle = 0
    then Exit;

  //Buffer:= FileName;
  FillChar(Buffer, SizeOf(Buffer), #0);
  Move(FileNAme[1], Buffer[0], Len);
  Data.dwData:= 0;
  Data.cbData:= SizeOf(Buffer);
  Data.lpData:= @Buffer;
  SendMessage(PrevMainFormHandle, WM_COPYDATA, 0, Integer(@Data));
end;

[PTyTb32]

большое спасибо)))