Subversion Repositories spacemission

Rev

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

Rev 4 Rev 15
Line 47... Line 47...
47 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
 47 
  image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
48 
end;
 48 
end;
49 
 
 49 
 
50 
procedure TInfoForm.WebsiteClick(Sender: TObject);
 50 
procedure TInfoForm.WebsiteClick(Sender: TObject);
51 
begin
 51 
begin
52 
  ShellExecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
 52 
  ShellExecute(application.Handle, 'open', pchar('https://'+url2.caption+'/'), nil, nil, SW_SHOW);
53 
end;
 53 
end;
54 
 
 54 
 
55 
procedure TInfoForm.EMailClick(Sender: TObject);
 55 
procedure TInfoForm.EMailClick(Sender: TObject);
56 
begin
 56 
begin
57 
  ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
 57 
  ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);