[~ SaM ~]

Проблема следующего характера:

Есть прога. Но грабли в том, что она почему-то работает только на тех машинах где стоит Delphi. Матерится при запуске, что не найден компонет qtinft70.dll! Во вложении ПринСкрин ошибки! В чем проблема не понимаю....

Помогите пожалуйста!

[Yurk@]

Сообщение от ~ SaM ~

... она почему-то работает только на тех машинах где стоит Delphi.

У меня Делфи 7, и я у себя такого файла не обнаружил!
Попробуй найти этот файл и включить его в установочный дистрибутив!

[~ SaM ~]

Поиск по всему винту не обнаружил такого файла! Даже при поисе *.dll - такой файл отсутствует в системе! У меня тупо его нет!! Пробовал в InstallShield сделать дистрибутив - не помагло! Че за херня не знаю! Сам пользуюсь Delphi 7, да и работает при любых версиях Delphi, а без него не работет!

Как быть???просто не могу понять че это такое!?

Помогите плиз.............

[Yurk@]

http://www.pavel.hut1.ru/questions.html
http://www.sql.ru/forum/actualthread.aspx?tid=241048
Посмотри здесь !!!!

[~ SaM ~]

<b>to Yurk@</b>

Как избавиться от библиотеки-паразита qtinft70.dll в программе на Delphi?

Путь решения этой проблемы следующий: ни в коем случае не следует включать в проект модуль QPrinters, так как это приводит к невозможности запуска такого приложения без использования библиотеки времени выполнения qtinft70.dll, размером более трёх МБайт, которая при этом может не выполнять абсолютно никаких полезных функций, а также увеличивает размер файла EXE на несколько сот КБайт.

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

И что получается????????!!!! У меня прога работет с Office приложениями и мне необходимо печатать эти документы! Как с этим бороться?? Ниже код:

Код:

Function  PrintPreview:boolean;
begin
PrintPreview:=true;
try
E.ActiveWindow.SelectedSheets.PrintPreview;
except
PrintPreview:=false;
end;
End;



Function  PrintPreviewEx:boolean;
begin
PrintPreviewEx:=true;
try
E.Dialogs.Item[xlDialogPrintPreview].Show;
except
PrintPreviewEx:=false;
end;
End;



Function  ShowPrintDialog:boolean;
begin
ShowPrintDialog:=true;
try
E.Dialogs.Item[xlDialogPrint].Show;
except
ShowPrintDialog:=false;
end;
End;

Для использования этих процедур используется юнит Printers!! Блин....Мне полюбому надо с с эти юнитом работать!!! Как быть???Можно чем-то заменить?

[Yurk@]

Если ты используешь unit Printers то ты должен работать с файлом Printers.pas.
Разве не так?