Subversion Repositories spacemission

Rev

Rev 1 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 2
Line 30... Line 30...
30 
var
 30 
var
31 
  CheatForm: TCheatForm;
 31 
  CheatForm: TCheatForm;
32 
 
 32 
 
33 
implementation
 33 
implementation
34 
 
 34 
 
35 
uses SplMain, SplInfo;
 35 
uses SplMain, Global;
36 
 
 36 
 
37 
{$R *.DFM}
 37 
{$R *.DFM}
38 
 
 38 
 
39 
const
 39 
const
40 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
 40 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
Line 123... Line 123...
123 
  end;
 123 
  end;
124 
end;
 124 
end;
125 
 
 125 
 
126 
procedure TCheatForm.Label3Click(Sender: TObject);
 126 
procedure TCheatForm.Label3Click(Sender: TObject);
127 
begin
 127 
begin
128 
  shellexecute(handle, 'open', pchar('mailto:daniel.marschall@surfeu.de?subject=Cheats für SpaceMission '+MainForm.FEngineVersion), '', '', 1);
 128 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1);
129 
end;
 129 
end;
130 
 
 130 
 
131 
end.
 131 
end.
132 
 
 132