DateTimeToFileDate
Adam Boduch
DateTimeToFileDate
Moduł: SysUtils
program Foo;
uses Dialogs, SysUtils;
var
S : String;
FileHandle : Integer;
begin
if PromptForFileName(S) then
begin
FileHandle := FileOpen(S, fmOpenWrite);
try
FileSetDate(FileHandle, DateTimeToFileDate(Now));
finally
FileClose(FileHandle);
end;
end;
end.
Zobacz też: