我不确定我是否是第一个注意到这一点的人,但是(大声笑,这有点有趣......)每当我打电话时(我调试应用程序以验证这一点) GetTempFileName (来自 Windows.pas 单元),它会在我的 D:\ (不知道为什么存在)驱动器中创建一个空(0 字节)文件...
我有 2 个逻辑驱动器... C:\(主)和 D:\(逻辑),现在只有当我调用它时第一个参数(arg0)只是一个点('.')时才会发生这种情况,这很奇怪对我来说,它在 D:\ 中创建它,因为父目录是 2 个点('..')。
无论如何,对此的虚拟绕过就是删除新创建的文件...-_-,我需要的只是文件名,而不是文件系统本身...
Edit1:我的问题是,为什么会这样?有没有办法避免调用创建一个新的空文件?
// Creates a name for a temporary file.
Function GetTempFileName(const ext: string): string;
var
// This buffer should be MAX_PATH characters to accommodate the path plus the terminating null character.
lpTempFileName: Array[0..MAX_PATH] of char;
begin
// If uUnique is zero, GetTempFileName creates an empty file and closes it.
// If uUnique is not zero, you must create the file yourself. Only a file name is created
Windows.GetTempFileName('.', nil, 0, lpTempFileName);
DeleteFile(lpTempFileName); // delete created file
Result := ChangeFileExt(lpTempFileName, ext);
Delete(Result, 1, 2); // ".\"
end;