/ Published in: Delphi
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
function GetTempFile: TFileName; // Creates a temporal file and returns its path name var TempFileName: array [0..MAX_PATH-1] of char; begin if GetTempFileName(PChar(GetTempDirectory), '~', 0, TempFileName) = 0 then raise Exception.Create(SysErrorMessage(GetLastError)); Result := TempFileName; end;