1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TFrmCTWCrack.FormCreate(Sender: TObject);
var
  neu     : TSystemTime;
  sd, sda : String;
begin
  // Altes Datum Zwischenspeichern.
  sda := DateToStr(Date);
  // Zeit zwischenspeichern.
  sd := TimeToStr(Time);

  neu.wyear := 1998;
  neu.wmonth := 1;
  neu.wday := 1;

  neu.whour   := StrToInt(copy(sd, 1, 2));
  neu.wminute := StrToInt(copy(sd, 4, 2));
  neu.wsecond := StrToInt(copy(sd, 7, 2));
  SetLocalTime(neu);

  Sleep(5000);
  Try
    ShellExecute(0, 'open', 'Ctwpp.exe', nil, '', SW_SHOWNORMAL);
  finally
    // Altes Datum wieder setzten.
    neu.wday    := StrToInt(copy(sda, 1, 2));
    neu.wmonth  := StrToInt(copy(sda, 4, 2));
    neu.wyear   := StrToInt(copy(sda, 7, 4));

    neu.whour   := StrToInt(copy(sd, 1, 2));
    neu.wminute := StrToInt(copy(sd, 4, 2));
    neu.wsecond := StrToInt(copy(sd, 7, 2));
    SetLocalTime(neu);
  end
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;