1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Procedure TForm1.BRegDistante(ServerName:String);
Const
CleMachineDistante ='\SOFTWARE\Microsoft\Windows\CurrentVersion';
CleRecherchee ='GSM';
Var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\'+CleMachineDistante+'\'+CleRecherchee,true);
Try
if not Reg.RegistryConnect('\\'+ServerName) then
begin
MessageDlg('Ne peut se connecter sur :'#13#10+ServerName, mtWarning,[mbOk], 0);
Exit;
end;
if Not (Reg.ValueExists('Server')) then
begin
Reg.WriteString('Server','aaaa');//le message sur cette ligne
showMessage('Ok')
end
else
MessageDlg('Erreur clé absente:'#13#10+CleRecherchee, mtWarning,[mbOk], 0);
Finally
Reg.Free;
End;
end; |
Partager