[Lazarus] Safe temp file name

[Rik van Kekem]

Rik van Kekem wrote:
> (I'm not sure if FPC 2.6.4 also some helpers for creating GUIDs)

This will work in FPC 2.6.4:

var
   GUID : TGUID;
begin
   if CreateGUID(GUID) = 0 then
   begin
     MyFileName := GuiDToString(Guid);
   end;

You could strip the {, } and - if you want.

Grtz,
Rik (rvk)