// Nachdem ich zum zweiten Mal eine Anfrage zu diesem Thema
// erhalten habe, schreibe ich es eben hier auf.
// Siehe dazu auch:
// einen global eindeutigen Bezeichner (GUID) erstellen

// Getestet mit RS 10.4 unter Win11
var 
  CLSID_NULL: TGuid; 
 
Procedure Make0Guid; 
begin 
  CLSID_NULL := StringToGUID('{00000000-0000-0000-0000-000000000000}'); 
end; 
 
// Beispiel 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Make0Guid; 
  ShowMessage(GUIDToString(CLSID_NULL)); 
end;
Zugriffe seit 6.9.2001 auf Delphi-Ecke