delphi编程获得独一无二的文件名

时间:2010-02-05 17:12:23  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:ATH] OFChar;aFile : string;begin  GetTempPath(Sizeof(Buffer)-1Buffer);  GetTempFileName(Buffer  '~'  0Buffer);  result := StrPas(Buffer);end;procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(GetTempFile('.tmp'));...
  正文:
function GetTempFile(const Extension: string): string;
var
Buffer: array[0..MAX_PATH] OFChar;
aFile : string;
begin
  GetTempPath(Sizeof(Buffer)-1Buffer);
  GetTempFileName(Buffer
  '~'
  0Buffer);
  result := StrPas(Buffer);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetTempFile('.tmp'));
  // The temp. file looks like C:WINDOWSTEMP~61D5.TMP
end;

Note:
The GetTempFile function just returns a unique filename but
doesn't create the file.
Bemerkung:
Die GetTempFile Funktion liefert nur den Namen der temp.
Datei aber erstellt sie nicht.

"delphi编程获得独一无二的文件名"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12787.html


关键字:

关于《delphi编程获得独一无二的文件名》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td