| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с датой [D5, Win95/98, WinME, Win2k, WinXP]

antonioxxx ©   (2002-09-16 23:21:00) 

Уважаемые программисты! Подскажите, пожалуйста, как мне проделать следующее:
1) Определить системную дату;
2) Сделать системную дату датой создания указанного файла.
Если можно, то расскажите более подробно о возможных функциях и входящих в них параметрах. Спасибо!

---

antonioxxx   (2002-09-19 23:10:00) [1]

А можно ли таким же образом, как предложил Koster установить дату создания файла?

---

Koster   (2002-09-18 05:32:00) [2]


var
FileName: string;
FileAttr: WIN32_FILE_ATTRIBUTE_DATA;
FileSystemTime: TSystemTime;
fFileDate: TDateTime;

........
if GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @FileAttr) then begin
FileTimeToSystemTime(FileAttr.ftCreationTime, FileSystemTime);
fFileDate := SystemTimeToDateTime(FileSystemTime);
end else
fFileDate := -1;


Можно и через Win API.

---

antonioxxx   (2002-09-17 22:20:00) [3]

И ещё один вопросик в тему. Как получить дату создания файла?
Заранее благодарю за помощь! :о)))

---

antonioxxx   (2002-09-17 22:19:00) [4]

И ещё один маленький вопросик в тему:"Как получить дату создания файла?" Заранее благодарю всех, кто откликнится! :-)))

---

antonioxxx   (2002-09-17 19:01:00) [5]

Благодарю всех за оказанную помощь!

---

gek   (2002-09-17 12:52:00) [6]

> Zemal © (17.09.02 11:28)
Может проще посмотреть на структуру SYSTEMTIME

---

REA   (2002-09-17 12:49:00) [7]

type TDateTime = type Double;
Че то ты гонишь про поля и методы. Функции есть работы с датой и временем.

---

Zemal   (2002-09-17 11:31:00) [8]

Будут вопросы по коду - можешь мылить на zemal@fronda.ru

---

Zemal   (2002-09-17 11:28:00) [9]

gek > Тебя о дате спрашивают, а ты в дебри загоняешь... минуты какие-то приплетаешь :)
antonioxxx > Есть функция Date без параметров, использовать просто:

var
d : TDateTime; // переменная для хранения даты и времени
f : Integer; // дескриптор файла
begin
d := Date; // получение даты и времени в переменную
Label1.Caption := DateTimeToStr(d);
if FileExists(Edit1.Text) then // проверка существования файла
begin
f := FileOpen(Edit1.Text); // открытие файла
end
else
begin
f := FileCreate(Edit1.Text); // создание файла
end;
{запись даты и времени создания}
FileSetDate(f, DateTimeToFileDate(d));
{закрытие файла}
FileClose(f);
end;
Можешь подробности посмотреть в хелпе делфи по этим функциям, а если хочешь с датой поработать, то ищи класс TDateTime. У этого класса есть поля и методы, при помощи которых можно и день недели прописью вытащить :). Удачи.

---

gek   (2002-09-17 07:06:00) [10]

var
sys_tim:SystemTime;
begin
GetSystemTime(sys_tim);
sys_tim.wMinute:=11;
SetSystemTime(sys_tim);

---

Наверх