home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / SETTIME.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  761b  |  30 lines
  1.                                      (* Chapter 16 - Program 8 *)
  2. program Set_Date_On_Disk_File;
  3.  
  4. uses Dos;
  5.  
  6. var Time_To_Set : longint;
  7.     Date_And_Time   : DateTime;
  8.     File_To_Change  : TEXT;
  9.     Filename        : string[40];
  10.  
  11. begin
  12.    if ParamCount = 1 then
  13.       Filename := ParamStr(1)
  14.    else begin
  15.       Write('Enter filename ----> ');
  16.       Readln(FileName);
  17.    end;
  18.    Assign(File_To_Change,Filename);
  19.    Reset(File_To_Change);
  20.    Date_And_Time.Year  := 1991;
  21.    Date_And_Time.Month := 2;
  22.    Date_And_Time.Day   := 4;
  23.    Date_And_Time.Hour  := 12;
  24.    Date_And_Time.Min   := 0;
  25.    Date_And_Time.Sec   := 0;
  26.    PackTime(Date_And_Time, Time_To_Set);
  27.    SetFTime(File_To_Change, Time_To_Set);
  28.    Close(File_To_Change);
  29. end.
  30.