Subversion Repositories decoder

Compare Revisions

Regard whitespace Rev 8 → Rev 9

/trunk/Quelltext/Main.pas
332,12 → 332,12
 
procedure TMainForm.m_web_dm_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.daniel-marschall.de/', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.daniel-marschall.de/', '', '', sw_normal);
end;
 
procedure TMainForm.m_web_project_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/index.php?page=projektanzeige&seite=projekt-18', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/index.php?page=projektanzeige&seite=projekt-18', '', '', sw_normal);
end;
 
procedure TMainForm.Decompress(InputFileName, OutputFileName: string);
2100,7 → 2100,7
 
procedure TMainForm.m_web_vts_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/', '', '', sw_normal);
end;
 
procedure TMainForm.mm_actions_execute(Sender: TObject);
2120,12 → 2120,12
 
procedure TMainForm.m_web_infopages_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/info/decoder/', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/info/decoder/', '', '', sw_normal);
end;
 
procedure TMainForm.m_web_forum_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/devboard/viewforum.php?f=32', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/devboard/viewforum.php?f=32', '', '', sw_normal);
end;
 
procedure TMainForm.m_help_execute(Sender: TObject);
2676,7 → 2676,7
ttimer(self).tag := 2;
tmp_progressdurchlauf.Enabled := true;
 
temp := GetHTML('http://www.viathinksoft.de/update/?id='+updateid);
temp := GetHTML('https://www.viathinksoft.de/update/?id='+updateid);
if copy(temp, 0, 7) = 'Status:' then
begin
tmp_progressdurchlauf.Enabled := false;
2687,7 → 2687,7
end
else
begin
if GetHTML('http://www.viathinksoft.de/update/?id='+updateid) <> DC4Ver then
if GetHTML('https://www.viathinksoft.de/update/?id='+updateid) <> DC4Ver then
begin
tmp_progressdurchlauf.Enabled := false;
zeige_wartenform(false);
2694,7 → 2694,7
steuerelementesperren(false);
 
if Application.MessageBox(pchar(MainForm.GetLangEntry('update_yes')), pchar(MainForm.GetLangEntry('information')), MB_YESNO + MB_ICONASTERISK) = ID_YES then
shellexecute(application.handle, 'open', pchar('http://www.viathinksoft.de/update/?id=@'+updateid), '', '', sw_normal);
shellexecute(application.handle, 'open', pchar('https://www.viathinksoft.de/update/?id=@'+updateid), '', '', sw_normal);
end
else
begin
3328,7 → 3328,7
 
procedure TMainForm.m_web_keytransmitter_click(Sender: TObject);
begin
shellexecute(application.Handle, 'open', 'http://www.viathinksoft.de/keytransmitter/', '', '', sw_normal);
shellexecute(application.Handle, 'open', 'https://www.viathinksoft.de/keytransmitter/', '', '', sw_normal);
end;
 
{ Allgemeine Funktion zum Verarbeiten der Kommandozeilenparameter }