[<<D>>]

Как не допустить открытия второй копии программы, и при этом, если
в ней paramcount > 0, то ети файлы запустились в уже открытой проге.

[moo2k]

Зайди в Project->>View Source и пропиши там:

Код:

в uses
  Forms,
  Windows,
  SysUtils;
...

const
 MemFileSize = 1024;
 MemFileName = 'Имя твоей проги полностью';

var
 MemHnd : HWND;

{$R *.RES}

begin
MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MemFileSize, MemFileName);
if GetLastError <> ERROR_ALREADY_EXISTS
then begin
Application.Initialize
end
else begin
Application.MessageBox('Данная программа уже выполняется.', 'Ошибка');
halt;
end;

[<<D>>]

Да Спасибо ОГРОМНОЕ Тебе. Я Добавил тебе отзыв.
А вот как еще файлы перекачивать на открытую?

[moo2k]

Уточни свой вопрос.

[moo2k]

if FileExists(ParamStr(1)) then ListBox1.Items.Add(ParamStr(1));

[<<D>>]

Не нето. Знаешь как в винампе: Кликаешь 2раза по файлу в Тотале и, если винамп уже открыт, то открывается в етом же винампе.