Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Легко ли найти нужную информацию на сайте?
Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)
Результаты
Другие опросы
Всего голосов:
589
Комментарии:
0
Наши партнеры
Статистика
Форум
-
Программирование под Windows
-
Delphi
-
Дата создания/изменения файла
admin
Дата:
27.05.2009, 05:54
Сообщение №:
1
Группа: Администрация
Регистрация: 20.11.2008
Пользователь №: 1
Сообщений: 6
Пол: Мужчина
Спасибо сказали:
5
раз(а)
Предупреждений: 0
---------------------------
Как изменить дату создания/изменения файла (желательно приведите фрагмент кода)?
EverD
Дата:
28.05.2009, 15:42
Сообщение №:
2
Группа: Новичок
Регистрация: 28.05.2009
Пользователь №: 81
Сообщений: 3
Пол:
Нет информации
Спасибо сказали:
0
раз(а)
Предупреждений: 0
---------------------------
Можно так.
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
Const
setinCreate = $01;
setinAccess = $02;
setinWrite = $04;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Label5: TLabel;
Edit6: TEdit;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function GetFileTime(handle:longint; var cTime, laTime, lwTime: FILETIME):longint; stdcall;
function SetFileTime(handle:longint; var cTime, laTime, lwTime: FILETIME):longint; stdcall;
var
Form1: TForm1;
NameF : AnsiString;
implementation
uses Math;
function SetFileTime; external 'kernel32.dll' name 'SetFileTime';
function GetFileTime; external 'kernel32.dll' name 'GetFileTime';
{$R *.dfm}
function changeFileTime(f: PChar; sys: SYSTEMTIME; setin: byte):boolean;
var
hf: integer;
time: FILETIME;
last: array [1..3] of FILETIME;
begin
hF:=_lopen(f, OF_READWRITE);
if(hF<0)
then begin
Result:=false;
exit;
end;
GetFileTime(hF, last[1], last[2], last[3]);
SystemTimeToFileTime(sys, time);
case setin of
$01:Result:=SetFileTime(hF, time , last[2], last[3])>0;
$02:Result:=SetFileTime(hF, last[1], time , last[3])>0;
$03:Result:=SetFileTime(hF, time , time , last[3])>0;
$04:Result:=SetFileTime(hF, last[1], last[2], time )>0;
$05:Result:=SetFileTime(hF, time , last[2], time )>0;
$06:Result:=SetFileTime(hF, last[1], time , time )>0;
$07:Result:=SetFileTime(hF, time , time , time )>0;
else Result:=false;
end;
_lclose(hF);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sys: SYSTEMTIME;
begin
sys.wYear:=StrToInt(Edit1.Text);
sys.wMonth:=StrToInt(Edit2.Text);
sys.wDay:=StrToInt(Edit4.Text);
sys.wHour:= StrToInt(Edit4.Text);
sys.wMinute:=StrToInt(Edit5.Text);
sys.wSecond:=StrToInt(Edit6.Text);
if OpenDialog1.Execute then
begin
NameF := OpenDialog1.FileName;
changeFileTime(PChar(NameF), sys, $07);
end;
end;
Тему читают 0 чел.
Пользователи(0):
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
книги
по
программированию
исходники
компоненты
шаблоны
сайтов
C++
PHP
Delphi
скачать