Folgende Funktionen wurden aus der JCL kopiert.
Also ich benütze die JCL
in allen meinen Programm, denn sie enthält fast alles, was Borland
in der
RTL/
VCL vergessen hat.
function PathGetTempPath:
string;
var
BufSize: Cardinal;
begin
BufSize := Windows.GetTempPath(0,
nil);
SetLength(Result, BufSize);
Windows.GetTempPath(BufSize, PChar(Result));
//StrResetLength(Result);
Result := PChar(Result);
end;
function FileGetTempName(
const Prefix:
string):
string;
var
TempPath, TempFile:
string;
R: Cardinal;
begin
Result := '
';
TempPath := PathGetTempPath;
if TempPath <> '
'
then
begin
SetLength(TempFile, MAX_PATH);
R := GetTempFileName(PChar(TempPath), PChar(Prefix), 0, PChar(TempFile));
if R <> 0
then
begin
StrResetLength(TempFile);
Result := TempFile;
end;
end;
end;