GUID を生成する

IDE 上で GUID を生成するには、エディタで [Ctrl] + [Shift] + [G] を押せば簡単に生成できました。では、プログラムで GUID を生成するにはどうしたらいいのでしょうか。CreateClassID 関数を使えば簡単に生成できます。 CreateClassID 関数は生成した GUID を文字列で返します。

■ GUID の生成例 
// uses ComObj;
procedure TMainForm.actNewGUIDExecute(Sender: TObject);  
var
  S : string;
begin
  S :=  CreateClassID;
end;