Спасибо Павлу!

[neznayka-na-lune]

Последнее обновление очень порадовало!

минимальное изменение в листинге функции дает отличный результат в плане удобства пользования:

Код: Выделить всё

function EX_EXEC(const FileName, Params: Variant): String;
begin
  Result := '';
  if (FileName = Null) or (Params = Null) then Exit;
//  ShellExecute('open', '"' + FileName + '"', Params, ExtractFilePath(FileName), 5);
    FileExecute('"' + FileName + '"', Params, ExtractFilePath(FileName));
end;

[neznayka-na-lune]

Вот, не могу еще раз не сказать СПАСИБО!
прокрутка колесом мыши стала гораздо удобнее.