GetTempFileName with FileExt

[himitsu]

OK, soweit bin ich jetzt gekommen (und alles ohne Delphi).

Wenn es funktioniert, dann braucht man nur noch einen Dateienamen anzugeben und die gewünschte Datei wird erstellt.
Also einfach 'nen Dateinamen mit einem * an der Stelle, wo die "UniqueID" eingefügt werden soll übergeben.
Und wenn man kein Verzeichnis mit dem Dateinamen übergibt, dann wird die Datei auch noch im termporären Verzeichnis vom Windows erstellt.

Delphi-Quellcode:

Function GetTempFileName(FileName): String;
  Var i, i2: Integer;
    F: THandle;

  Begin
    If Pos('\', FileName) = 0 Then Begin
      SetLength(Result, MAX_PATH);
      i := GetTempPath(MAX_PATH, @Result[1]);
      SetLength(Result, i);
      If (Result = '') or (Result[i] = '\') Then FileName := Result + FileName
      Else FileName := Result + '\' + FileName;
    End;
    If Pos('*', FileName) = 0 Then
      FileName := ChangeFileExt(FileName, '*.' + Copy(ExtractFileExt(FileName), 1, MAX_PATH));
    i := GetTickCount;
    i2 := i;
    Repeat
      If i - i2 > 10000 Then
        Raise Exception.CreateFmt('Temporäre Datei "%s" konnte nicht erstellt werden.', [StringReplace(FileName, '*', '{UniqueID}', [])]);
      Result := StringReplace(FileName, '*', IntToHex(i)), []);
      H := CreateFile(PChar(Result), GENERIC_WRITE, 0, nil, CREATE_NEW,
        FILE_ATTRIBUTE_NOT_CONTENT_INDEXED or FILE_ATTRIBUTE_TEMPORARY, 0);
      Inc(i);
    Until H <> INVALID_HANDLE_VALUE;
    CloseHandle(H);
  End;

Ich hoffe mal 10.000 Versuche reichen aus, weiß ja nicht wielange es GetTempFileName probiert, oder ob/wie's überhaupt abbricht?

[edit]
so, erster Fehler behoben, jetzt nur noch sehn was mein Compiler am Wochenende dazu meint