[DUG-DB]: creating at temp filename

[Darren J Gilbertson]

I am creating a temporary filename using:

function gettemporaryfilename:string;
const
  MAX_PATH=144;
var
  lppathbuffer:pchar;
  lpbuffer:pchar;
begin;
  getmem(lpbuffer, MAX_PATH);
  getmem(lppathbuffer,MAX_PATH);
  gettemppath(MAX_PATH,lppathbuffer);
  gettempfilename(lppathbuffer,'tmp',0,lpbuffer);
  freemem(lppathbuffer,MAX_PATH);
  gettempfilename(gettempdrive('C'),0,lpbuffer);
  result:=strpas(lpbuffer);
  freemem(lpbuffer,MAX_PATH);
end;

but the gettempdrive part does not work

any suggestions


Darren
---------------------------------------------------------------------------
  New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz