Hallo,
die unten stehende Prozedur soll die Werte in die Registry schreiben.
Funktioniert aber nicht, warum auch immer.
Delphi-Quellcode:
procedure WriteRegistry;
var
Reg: TRegistry;
line: String;
begin
if (FMyProxy = '') or (FMyProxyPort = '') then
MessageDlg('Sie müssen einen Proxyserver angeben, über den Sie' + #13#10 + 'eine korrekte Internetverbindung herstellen können!', mtWarning, [mbOK], 0)
else
if (FMyProxy <> FCheckProxy) or (FMyProxyPort <> FCheckProxyPort) then
begin
line := FMyProxy + ':' + FMyProxyPort;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Tisy Zeitermittlung\',True);
if FProxyArt = 2 then
Reg.WriteString('ProxyServer',line);
Reg.WriteInteger('ProxyEnable',FProxyArt);
Reg.WriteInteger('Synctime',FSynctime);
Reg.CloseKey;
Reg.Free;
end;
end;
Diese wird aufgerufen, wenn man beim Speichern die Option "Ja" gewählt hat.