delphi 自动生成目录的问题(100分)

我想做一个程序生成这样的目录名称为“{3CB93D3B-CD59-44BA-9385-AF05B716240A}”，<br>好象是用的win的一个技术，我见过一个这样的程序，<br>它每次生成的字符串都不一样！各位帮忙呀给一个语句模式吧

这个好象是在注册表中写的

uses<br>&nbsp; SysUtils;<br><br>CreateGUID函数.

能不能写一个完整一点的，这api的东东没有接触过！

uses FileCtrl;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; sTempPath: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;array[0..255] of char;<br>&nbsp; dir: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;string;<br>&nbsp; guid: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TGuid;<br>begin<br>&nbsp; &nbsp; //在临时目录下生成一个临时文件夹<br>&nbsp; GetTempPath( 255, sTempPath);<br>&nbsp; Filename := sPath;<br>&nbsp; CreateGUID(Guid);<br>&nbsp; dir := dir + '/' + GuidToString(Guid);<br>&nbsp; if not DirectoryExists(dir) then<br>&nbsp; &nbsp; if not CreateDir('C:/temp') then<br>&nbsp; &nbsp; &nbsp; raise Exception.Create('Cannot create ' + dir);<br>end;<br>

接受答案了.