Subversion Repositories musikbox

Rev

Rev 6 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6 Rev 7
Line 116... Line 116...
116 
 
 116 
 
117 
procedure TInfoForm.Button1Click(Sender: TObject);
 117 
procedure TInfoForm.Button1Click(Sender: TObject);
118 
var
 118 
var
119 
  temp: RawByteString;
 119 
  temp: RawByteString;
120 
begin
 120 
begin
121 
  temp := GetHTML('http://www.viathinksoft.de/update/?id=musikbox');
 121 
  temp := GetHTML('https://www.viathinksoft.de/update/?id=musikbox');
122 
  if copy(temp, 0, 7) = 'Status:' then
 122 
  if copy(temp, 0, 7) = 'Status:' then
123 
  begin
 123 
  begin
124 
    Application.MessageBox('Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.', 'Fehler', MB_OK + MB_ICONERROR)
 124 
    Application.MessageBox('Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.', 'Fehler', MB_OK + MB_ICONERROR)
125 
  end
 125 
  end
126 
  else
 126 
  else
127 
  begin
 127 
  begin
128 
    if GetHTML('http://www.viathinksoft.de/update/?id=musikbox') <> ProgrammVersion then
 128 
    if GetHTML('https://www.viathinksoft.de/update/?id=musikbox') <> ProgrammVersion then
129 
    begin
 129 
    begin
130 
      if Application.MessageBox('Eine neue Programmversion ist vorhanden. Möchten Sie diese jetzt herunterladen?', 'Information', MB_YESNO + MB_ICONASTERISK) = ID_YES then
 130 
      if Application.MessageBox('Eine neue Programmversion ist vorhanden. Möchten Sie diese jetzt herunterladen?', 'Information', MB_YESNO + MB_ICONASTERISK) = ID_YES then
131 
        shellexecute(application.handle, 'open', pchar('http://www.viathinksoft.de/update/?id=@musikbox'), '', '', sw_normal);
 131 
        shellexecute(application.handle, 'open', pchar('https://www.viathinksoft.de/update/?id=@musikbox'), '', '', sw_normal);
132 
    end
 132 
    end
133 
    else
 133 
    else
134 
    begin
 134 
    begin
135 
      Application.MessageBox('Es ist keine neue Programmversion vorhanden.', 'Information', MB_OK + MB_ICONASTERISK);
 135 
      Application.MessageBox('Es ist keine neue Programmversion vorhanden.', 'Information', MB_OK + MB_ICONASTERISK);
136 
    end;
 136 
    end;
Line 142... Line 142...
142 
  close;
 142 
  close;
143 
end;
 143 
end;
144 
 
 144 
 
145 
procedure TInfoForm.lblWeb1Click(Sender: TObject);
 145 
procedure TInfoForm.lblWeb1Click(Sender: TObject);
146 
begin
 146 
begin
147 
  ShellExecute(Handle, 'open', 'http://www.daniel-marschall.de/', nil, nil, SW_SHOWNORMAL);
 147 
  ShellExecute(Handle, 'open', 'https://www.daniel-marschall.de/', nil, nil, SW_SHOWNORMAL);
148 
end;
 148 
end;
149 
 
 149 
 
150 
procedure TInfoForm.lblWeb2Click(Sender: TObject);
 150 
procedure TInfoForm.lblWeb2Click(Sender: TObject);
151 
begin
 151 
begin
152 
  ShellExecute(Handle, 'open', 'http://www.viathinksoft.de/', nil, nil, SW_SHOWNORMAL);
 152 
  ShellExecute(Handle, 'open', 'https://www.viathinksoft.de/', nil, nil, SW_SHOWNORMAL);
153 
end;
 153 
end;
154 
 
 154 
 
155 
end.
 155 
end.