2010-02-20 2 views

답변

54
program Guid; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 

var 

Uid: TGuid; 
Result: HResult; 

begin 
Result := CreateGuid(Uid); 
if Result = S_OK then 
    WriteLn(GuidToString(Uid)); 
end. 

는 인터페이스 선언에 대한 GUID를 필요로하는 경우에 코드 편집기에서 Ctrl 키를 + 변화 + 그램 충돌, CoCreateGuid().

27

또한 Windows API 함수를 호출 캐럿에 GUID를 삽입하십시오.

1

최신 버전의 델파이를 사용하는 경우 새 TGUiD를 생성하는 TGuidHelper.NewGuid를 호출하여 TGuidHelper 클래스를 사용할 수 있습니다.