uses
ComObj, ActiveX;
function CreateGuid: string;
var
ID: TGUID;
begin
Result := '';
if CoCreateGuid(ID) = S_OK then
Result := GUIDToString(ID);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := CreateGuid;
end;
'APP' 카테고리의 다른 글
| TListView 스크롤바 없애기 (0) | 2012.10.23 |
|---|---|
| 바탕화면, 즐겨찾기, 내 문서 등의 경로얻기 (0) | 2012.10.23 |
| 현재 떠있는 모든 창 캡션 구하기 (0) | 2012.10.23 |
| 파일명으로 아이콘 구하기 (0) | 2012.10.23 |
| TEXT 파일 제어 (0) | 2012.10.23 |