Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Система";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

SetFileTime Знайти схожі гілки


antonioxxx   (2002-10-18 16:17) [0]

Увжаемие програмісти! Поясніть, будь ласка, чому не працює наступна процедура по установці часу створення файлу - начебто писалася строго по довідці ... Заранее спасибо!

Procedure SetFileDateEx (FileName: String; fFileDate: TDateTime);
Кожен
F: Cardinal;
FileTime: TFileTime;
SystemTime: TSystemTime;
Починати
If FileExists (FileName) Then
Починати
F: = FileOpen (FileName, GENERIC_WRITE);
DateTimeToSystemTime (fFileDate, SystemTime);
SystemTimeToFileTime (SystemTime, FileTime);
SetFileTime (F, @ FileTime, nil, nil);
FileClose (F);
ZeroMemory (@ FileTime, SizeOf (@FileTime));
кінець
Ще
MessageBoxEx (0, "Файл за вказаною адресою не найден", "Помилка", MB_IconError, 0);
Кінець;



apay   (2002-10-21 02:23) [1]

во первых, попробуй SetFileTime(F,@FileTime,@FileTime,@FileTime);
во вторых я не понял смысл строки
ZeroMemory (@ FileTime, SizeOf (@FileTime));
зачем ее обнулять и если обнулять, то почему только первые 4 байта



сторінки: 1 вся гілка

Форум: "Система";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.029 c
7-75002
лід
2002-10-08 22:39
2002.12.23
Читання запис сектора диска


14-74976
DanIQ
2002-11-30 07:30
2002.12.23
Scroll Lock


4-75040
Ерік
2002-11-07 23:01
2002.12.23
Вікно на самому верху


1-74663
Alexander Vasjuk
2002-12-10 18:04
2002.12.23
як дізнатися скільки і які іконки в файлі * .ico?


7-75000
саф
2002-10-17 18:51
2002.12.23
принтер





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська