[Savant]

Можно так (используя WinAPI):

Код:

program Project_test;

uses Windows, SysUtils; // Необходимые модули

var
  CreateTime,   // Дата создания
  LastAccess,   // Дата последнего доступа
  LastWrite     // Дата последней записи в файл
  : PFileTime;

  SystemTime: _SystemTime;

  FileHandle: THandle;

begin
  New(CreateTime);  // Создаем переменную под хранение даты/времени
  LastAccess:=nil;  // Не изменять эту дату/времени
  LastWrite:=nil;   // Не изменять эту дату/времени
  // Открываем некоторый файл
  FileHandle:=FileOpen('Project_test.dpr', fmOpenWrite or fmShareDenyNone);
  // Произошла ошибка - выводим диагностическое сообщение
  if FileHandle < 1 then MessageBox(0,'Не могу открыть файл','Ошибка',0);
  try
    GetSystemTime(SystemTime); // Получаем текущее системное время
    // Преобразовываем переменную к сжатому виду
    SystemTimeToFileTime(SystemTime,CreateTime^);
    // Устанавливаем дату и время для файла FileHandle
    SetFileTime(FileHandle,CreateTime,LastAccess,LastWrite);
  finally
    FileClose(FileHandle); // Закрываем дескриптор (файл)
    Dispose(LastWrite);    // Уничтожаем переменную под хранение даты/времени
  end;
end.

[DillerInc]

Savant
...хм...хм...ну,ничего себе...в любом случае спасибо - попробую .

[Savant]

DillerInc
Я тут сижу и думаю: какая идиллия!.. Я помогаю тебе осваивать Obj. Pascal , а frizzn по сути так же хелпает мне с Си/Си++
Нет, ну просто умора

[DillerInc]

Savant
Взяв в пример код,приведённый тобой выше(который я,кстати,так и не компилировал,т.к. толку создавать программу,если я не до конца понимаю алгоритма её работы)...в общем,решил я залесть в дебри функций WinAPI(типа те,в модуле Windows.pas)и окончательно потерялся .

Во-первых,правильно ли,что...
PFileTime = ^TFileTime
...и можно ли так объявлять эти типизированные указатели,т.е. ...
CreationTime : ^TFileTime;

Во-вторых,как понимать запись:
_SystemTime
...т.е. именно это подчёркивание впереди?

Далее имеется API-функция:
function GetFileTime(hFile: THandle;
lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall;
Хотелось бы уточнить,что представляют из себя буквы lp,например: lpCreationTime ?

Результатом этой функции является значение логического типа BOOL,спрашивается: как я могу использовать это логиское значение,если я хочу вывести,к примеру,вывести дату создания файла в Label1.Caption?И ведь,по-моему,в модулях SysUtils.pas и Windows.pas нету какой-нибудь функции типа FileTimeToDateTime,или...?

Заранее прошу прощения,если уж очень пристаю со своими вопросами .

[Savant]

Во-первых,правильно ли,что... PFileTime = ^TFileTime

Правильно. PFileType = pointer of variable of type FileTime, а TFileTime = variable of type FileTime.

...и можно ли так объявлять эти типизированные указатели,т.е. ... CreationTime : ^TFileTime;

Объявлять можно, а вот использовать вместо PFileTime... Теоретически должна вылезти ошибка о несовместимости типов, хотя не пробовал.

Во-вторых,как понимать запись: _SystemTime ...т.е. именно это подчёркивание впереди?

Просто название типа переменной. Введено в Делфи для избежание путаницы с системными типами SYSTEMTIME, FILETIME. Это в принципе не должно тебя волновать, т.к. меж собой эти типы фактически равны.

Далее имеется API-функция: function GetFileTime(hFile: THandle; lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall; Хотелось бы уточнить,что представляют из себя буквы lp,например: lpCreationTime ?

Опять же, это просто сокращенное для удобства название типа переменной. h*, например, = handle, lp* = long pointer (т.е. "расширенно" можно было написать long_pointer_CreationTime и программисту сразу становится ясно, что требуется передать в функцию указатель на переменную). В си (C/C++) это действительно нужно/полезно, в Делфи - не очень, хотя иногда обращаешь внимание.

Результатом этой функции является значение логического типа BOOL,спрашивается: как я могу использовать это логиское значение,если я хочу вывести,к примеру,вывести дату создания файла в Label1.Caption?

Логическое значение отражает лишь факт выполнения функции (0 или отрицательное значение обычно говорит об ошибке, положительное обычно об успехе, в Делфи это соответствует False и True). Все необходимые значение переменных (в данном случае различные времена файла) записываются в соотв. переменные.

И ведь,по-моему,в модулях SysUtils.pas и Windows.pas нету какой-нибудь функции типа FileTimeToDateTime,или...?

Нету. А что?
Кстати есть FileTimeToSystemTime();

[DillerInc]

Savant
В общем,насчёт функции GetFileTime - в одном месте подсмотрел :

Код:

Procedure A;
var
 FileHandle : THandle;
 FileTime, LocalFileTime : TFileTime;
 SystemTime : TSystemTime;
 Date1 : String;
begin
 FileHandle := FileOpen(OpenDialog1.FileName, fmOpenWrite or fmShareDenyNone);
 GetFileTime(FileHandle, @FileTime,NIL,NIL);
 FileTimeToLocalFileTime(FileTime, LocalFileTime);
 FileTimeToSystemTime(LocalFileTime, SystemTime);
 Date1 := DateTimeToStr(SystemTimeToDateTime(SystemTime));
 Label1.Caption := Date1;

На основании этого хочется спросить,насколько в Delphi вообще актуально использование указателей на адреса в динамической памяти?Т.е. здесь(в представленном коде)вместо типа PFileTime используется простой TFileTime;процедура New для выделения памяти динамической переменной не используется;в месте,где необходимо использование lpпеременной используется знак @,который как я понял возвращает адрес данной переменной в памяти.Или всё-таки...?

[Savant]

DillerInc
При использовании маленьких переменных - практически все равно, что использовать - динамическое создание/уничтожение переменных ( New(), Dispose() ) или статическое. Мне просто уже привычно работать с динамическим выделением буфера и поэтому я привёл свой пример в том виде в каком привёл . В данном случае я действительно немного переборщил, можно было обойтись одной "собачкой", которая возвращает адрес элемента, стоящего за ней (причем не только переменной, но также функции). Процедура New необходима, когда используются буферы (переменные) по несколько МБайт.

[frizzn]

Savant

Опять же, это просто сокращенное для удобства название типа переменной. h*, например, = handle, lp* = long pointer (т.е. "расширенно" можно было написать long_pointer_CreationTime и программисту сразу становится ясно, что требуется передать в функцию указатель на переменную). В си (C/C++) это действительно нужно/полезно, в Делфи - не очень, хотя иногда обращаешь внимание.

В Си ( и в C++) от этих lp*, sz* и dw* имхо пользы не больше, чем в Delphi.

[DillerInc]

Для начала - с челобитной к ув. Модераторам: с какой стати тему окрестили как Флейм?По-моему,здесь идёт самый настоящий процесс разгрызания гранита науки ,т.е. на мой взгляд точнее было бы назвать тему *Практика*|Delphi. Синтаксис или что-то наподобие.

Далее...помогите,господа,пожалуйста по следующему делу:
хочу вставить в программу возможность показа сообщения типа mtConfirmation(ну,если пользователь сделал какие-то изменения в открытом документе и хочет выйти из программы,не сохранив эти изменения.Т.к. подобного компонента-диалога в среде Delphi вроде нету,я написал пробный обработчик события нажатия кнопки:

Код:

procedure TfmExample.bbRunClick(Sender: TObject);
const
 Msg : String = 'Changes you made are not saved yet.Would you like to save them?';
 DlgType : TMsgDlgType = mtConfirmation;
 Buttons : TMsgDlgButtons = mbYesNoCancel;
var
 d : Integer;
begin
   d := CreateMessageDialog(Msg, DlgType, Buttons).ShowModal;
case d of
 mrYes : SaveDialog1.Execute;
 mrNo  : fmExample.Close;
 mrCancel : Abort;
end

end;

Проблема же заключается в том,что я почему-то не могу нормально вызвать данный диалог в самой программе,т.е. когда сделаны изменения в файле и когда пользователь выходит,не сохранившись.
Насколько я понимаю,необходимо сделать обработчик события OnCloseQuery основной формы и,применяя условные операторы,вывести в нужный момент на экран диалоговое сообщение...а вот как это сделать логически правильно?

[Savant]

Объяснять долговато, лучше на примере.
Вот, наклепал по-быстрому, но хоть понятно что-то...