Форум: "Система";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Вниз

Работа с датой   Найти похожие ветки 

← →
antonioxxx   (2002-09-16 23:21) [0]

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

---

← →
gek   (2002-09-17 07:06) [1]

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

---

← →
Zemal   (2002-09-17 11:28) [2]

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. У этого класса есть поля и методы, при помощи которых можно и день недели прописью вытащить :). Удачи.

---

← →
Zemal   (2002-09-17 11:31) [3]

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

---

← →
REA   (2002-09-17 12:49) [4]

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

---

← →
gek   (2002-09-17 12:52) [5]

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

---

← →
antonioxxx   (2002-09-17 19:01) [6]

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

---

← →
antonioxxx   (2002-09-17 22:19) [7]

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

---

← →
antonioxxx   (2002-09-17 22:20) [8]

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

---

← →
Koster   (2002-09-18 05:32) [9]


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-19 23:10) [10]

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

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c