home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP4TUT2B.ZIP / SETTIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  695 b   |  29 lines
  1. program Set_Date_On_Disk_File;
  2.  
  3. uses Dos;
  4.  
  5. var Time_To_Set : longint;
  6.     Date_And_Time   : DateTime;
  7.     File_To_Change  : TEXT;
  8.     Filename        : string[40];
  9.  
  10. begin
  11.    if ParamCount = 1 then
  12.       Filename := ParamStr(1)
  13.    else begin
  14.       Write('Enter filename ----> ');
  15.       Readln(FileName);
  16.    end;
  17.    Assign(File_To_Change,Filename);
  18.    Reset(File_To_Change);
  19.    Date_And_Time.Year  := 1988;
  20.    Date_And_Time.Month := 1;
  21.    Date_And_Time.Day   := 15;
  22.    Date_And_Time.Hour  := 12;
  23.    Date_And_Time.Min   := 0;
  24.    Date_And_Time.Sec   := 0;
  25.    PackTime(Date_And_Time, Time_To_Set);
  26.    SetFTime(File_To_Change, Time_To_Set);
  27.    Close(File_To_Change);
  28. end.
  29.