Código Delphi [-]function TempFilename : string; var AName, ADir : array[0..255] of char; begin GetTempPath(255, adir); GetTempFilename(aDir, PChar('QRP'), 0, aName); result := StrPas(aName); end;
function TempFilename : string; var AName, ADir : array[0..255] of char; begin GetTempPath(255, adir); GetTempFilename(aDir, PChar('QRP'), 0, aName); result := StrPas(aName); end;