文件时间修改器
来源:互联网 发布:剑网3天策正太捏脸数据 编辑:程序博客网 时间:2024/04/30 06:32
Delphi代码:
program setTime;
{$APPTYPE CONSOLE}
uses Windows;
procedure usage();
begin
writeln('-------------------------------------------------------'+#10#13+
'setTime Ver 1.0 hnxyy[F.S.T], 2005/6/22'+#10#13+
'http://www.wrsky.com, QQ:19026695 '+#10#13+
' 文件时间修改器 1.0'+#10#13#10#13+
'Usage: setTime OldFile NewFile'+#10#13+
'Example: setTime cmd.exe muma.exe'+#10#13+
'--------------------------------------------------------'
);
exit;
end;
procedure setTimer(srcFile,destFile:PChar);
var
hFileOld,hFileNew :THandle;
CreationTime, LastAccessTime, LastWriteTime :PFileTime;
begin
hFileOld :=createFile(srcFile,generic_read,file_share_read,nil,
open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
if (hFileOld=INVALID_HANDLE_VALUE) then
begin
Writeln('Cannot open '+srcFile+'.');
exit;
end;
hFileNew :=createFile(destFile,generic_write,file_share_write,nil,
open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
if (hFileNew=INVALID_HANDLE_VALUE) then
begin
Writeln('Cannot open '+destFile+'.');
exit;
end;
GetMem(CreationTime,SizeOf(TFileTime));
GetMem(LastAccessTime,SizeOf(TFileTime));
GetMem(LastWriteTime,SizeOf(TFileTime));
GetFileTime(hFileOld,CreationTime,LastAccessTime,LastWriteTime);
SetFileTime(hFileNew,CreationTime,LastAccessTime,LastWriteTime);
FreeMem(CreationTime);
FreeMem(LastAccesstime);
FreeMem(LastWriteTime);
CloseHandle(hFileNew);
CloseHandle(hFileOld);
writeln('All is done! Enjoy yourself.');
end;
begin
if (ParamCount<>2) then
usage()
else
setTimer(PChar(ParamStr(1)),PChar(ParamStr(2)));
end.
c代码:
program setTime;
{$APPTYPE CONSOLE}
uses Windows;
procedure usage();
begin
writeln('-------------------------------------------------------'+#10#13+
'setTime Ver 1.0 hnxyy[F.S.T], 2005/6/22'+#10#13+
'http://www.wrsky.com, QQ:19026695 '+#10#13+
' 文件时间修改器 1.0'+#10#13#10#13+
'Usage: setTime OldFile NewFile'+#10#13+
'Example: setTime cmd.exe muma.exe'+#10#13+
'--------------------------------------------------------'
);
exit;
end;
procedure setTimer(srcFile,destFile:PChar);
var
hFileOld,hFileNew :THandle;
CreationTime, LastAccessTime, LastWriteTime :PFileTime;
begin
hFileOld :=createFile(srcFile,generic_read,file_share_read,nil,
open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
if (hFileOld=INVALID_HANDLE_VALUE) then
begin
Writeln('Cannot open '+srcFile+'.');
exit;
end;
hFileNew :=createFile(destFile,generic_write,file_share_write,nil,
open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
if (hFileNew=INVALID_HANDLE_VALUE) then
begin
Writeln('Cannot open '+destFile+'.');
exit;
end;
GetMem(CreationTime,SizeOf(TFileTime));
GetMem(LastAccessTime,SizeOf(TFileTime));
GetMem(LastWriteTime,SizeOf(TFileTime));
GetFileTime(hFileOld,CreationTime,LastAccessTime,LastWriteTime);
SetFileTime(hFileNew,CreationTime,LastAccessTime,LastWriteTime);
FreeMem(CreationTime);
FreeMem(LastAccesstime);
FreeMem(LastWriteTime);
CloseHandle(hFileNew);
CloseHandle(hFileOld);
writeln('All is done! Enjoy yourself.');
end;
begin
if (ParamCount<>2) then
usage()
else
setTimer(PChar(ParamStr(1)),PChar(ParamStr(2)));
end.
c代码:
- 文件时间修改器
- 修改“文件修改时间”
- 修改文件时间
- 修改文件时间
- linux修改文件时间
- 修改文件时间
- 修改文件时间
- Linux修改文件时间
- utime修改文件时间
- 文件修改时间
- 修改文件时间
- 批量修改文件时间
- 文件最后修改时间
- java修改文件时间
- 修改文件时间
- 修改 linux 文件时间
- nodejs-修改文件访问时间、修改时间
- 文件属修改器!(创建时间、修改时间等属性修改)
- 求助:跪求!帮忙解决一道数据库(信息系统开发)的难题
- 在C#的安全环境下使用指针操作
- 测试
- 测试
- 测试测试
- 文件时间修改器
- 很长时间没写了
- url编码与解码工具代码
- PHP+MYSQL网站注入扫描
- [澄清] 动态语言静态语言 (收藏)
- 令女人感动,男人沉默的事情
- tomcat5.0.x 的配置
- 一个多线程后台扫描的程序和源代码
- 搜集到的LEAD的做法