Как избавиться от QTINTF70.DLL ?

[Aslan]

Доброго времени...!

Такая вот задача, у меня есть функция в которой используются функции из QTINTF70.DLL, как заменить их, чтобы не таскать эту
библиотеку с программой? Занимает 2 мега. Вот моя функция:

function DateTimeOfFileCreation(FileName : string) : string;

var
FT : TFileTime;
SysTime : TSystemTime;
Sr : TSearchRec;

begin
Result := '';
if FindFirst(FileName, faAnyFile, Sr) = 0 then
begin
FileTimeToLocalFileTime(Sr.FindData .ftCreationTime, FT); { QTINTF70.DLL }
FileTimeToSystemTime(FT, SysTime); { QTINTF70.DLL }
Result := DateTimeToStr(SystemTimeToDateTime( SysTime));
end;
end;

Есть знающие альтернативный код?

[Aslan]

Короче никто не знает :-(

[JTG]

О_о
FileTimeToLocalFileTime
FileTimeToSystemTime

это ж из Kernel32.dll вроде?

[JTG]

А ещё "qtintf.dll & qtintf70.dll: Библиотека, необходимая для запуска программ на Delphi, использующих CLX-компоненты" - не используй CLX

[Aslan]

Я использую из библиотеки только

FileTimeToLocalFileTime
FileTimeToSystemTime

Мне бы их заменить своими функциями...

[Maslan]

Объявих их импортируемыми из "Kernel32.dll", как и писал JTG и всё.
То есть там, где ты пишешь

Function FileTimeToLocalFileTime ... external ... "qtintf.dll"

пиши

Function FileTimeToLocalFileTime ... external ... "kernel32.dll"

[Stilet]

Aslan, а с чего ты взял что эта библа тебе позарез нужна?
Ты какие модули в uses используешь? Есть среди них начинающиеся на Q?

[Aslan]

Сообщение от Stilet

Aslan, а с чего ты взял что эта библа тебе позарез нужна?
Ты какие модули в uses используешь? Есть среди них начинающиеся на Q?

На Q ничего не использую, эти функции из юнита Windows

[Maslan]

Это как??
В первом сообщении:

у меня есть функция в которой используются функции из QTINTF70.DLL

В последнем (№7)

эти функции из юнита Windows

[Aslan]

Вот так и есть :-(