home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / Chip_2002-02_cd1.bin / zkuste / delphi / kolekce / d45 / delfi_components.exe / Delfi_setdatetime.pas < prev    next >
Pascal/Delphi Source File  |  2001-11-20  |  2KB  |  68 lines
  1. // unit Delfi_setdatetime
  2. //
  3. // component that can set system date and time . I seen component like this
  4. // but it was only dcu for D3 so i needed to make my own that vorks in D4 !
  5. //
  6. // version 1.0  2001 Delfi
  7. //
  8. // this component is freeware for non-commercial applications you use it on your own responsibility !
  9. // you may modify this unit only for non-commercial applications
  10. // you may not change the AUTHOR you must leave this comment here !
  11. //
  12. // if you improved this component add your comment after this line
  13.  
  14. unit Delfi_setdatetime;
  15.  
  16. interface
  17.  
  18. uses
  19.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  20.  
  21. type
  22.   TDelfi_setdatetime = class(TComponent)
  23.   private
  24.     { Private declarations }
  25.   protected
  26.     { Protected declarations }
  27.   public
  28.     { Public declarations }
  29.     procedure settime(h,m,s,ms: byte);
  30.     procedure SetDate(y:word; m,d: byte);
  31.   published
  32.     { Published declarations }
  33.   end;
  34.  
  35. procedure Register;
  36.  
  37. implementation
  38.  
  39. // simple ? i needed 2 years to write these 9 lines of code for each function !!!
  40.  
  41. procedure TDelfi_setdatetime.SetDate(y:word; m,d: byte);
  42. var systime : TSystemTime;
  43. begin
  44. GetLocalTime(systime);
  45. systime.wday := d;
  46. systime.wmonth := m;
  47. systime.wyear := y;
  48. SetLocalTime(systime);
  49. end;
  50.  
  51. procedure TDelfi_setdatetime.SetTime(h,m,s,ms: byte);
  52. var systime : TSystemTime;
  53. begin
  54. GetLocalTime(systime);
  55. systime.whour := h;
  56. systime.wminute := m;
  57. systime.wsecond := s;
  58. systime.wmilliseconds := ms;
  59. SetLocalTime(systime);
  60. end;
  61.  
  62. procedure Register;
  63. begin
  64.   RegisterComponents('Delfi', [TDelfi_setdatetime]);
  65. end;
  66.  
  67. end.
  68.