чем заменить TPath.GetTempFileName() в Delphi7

[beegl]

подскажите пожалуйста, чем заменить TPath.GetTempFileName() в Delphi7
XE-XE5 понимает, а Delphi7 не знает TPath.GetTempFileName(), чем заменить можно?

const
     FImageFileName: String;
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Caption := 'ICQ-Checker';
  FImageFileName := TPath.GetTempFileName() + '.gif'; // Delphi7 don't know TPath.GetTempFileName
end;

[Stilet]

Залезь в исходник этого метода - что там внутри?

[beegl]

function GetTempFileName(lpPathName, lpPrefixString: PChar;
  uUnique: UINT; lpTempFileName: PChar): UINT; stdcall;

не получается сформулировать пример

все заменил, а эту строчку на знает

unit uApp.Main.Form;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    ButtonCheck: TButton;
    ButtonReset: TButton;
    EditUIN: TEdit;
    ImagePanel: TPanel;
    Inputs: TGroupBox;
    StateImage: TImage;
    procedure ButtonCheckClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonResetClick(Sender: TObject);
  private
    FImageFileName: string;
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  System.IOUtils,
  System.Win.ComObj,
  Vcl.Imaging.GIFImg,
  Winapi.Urlmon;

{ TMainForm }

procedure TMainForm.ButtonCheckClick(Sender: TObject);
const
  CUrlString = 'http://status.icq.com/online.gif?uin=%s&img=5';
var
  UIN: string;
  URL: string;
begin
  UIN := Trim(EditUIN.Text);
  if (UIN = String.Empty) then
    Exit;

  StateImage.Picture := nil;

  URL := Format(CUrlString, [UIN]);
  OleCheck(URLDownloadToFile(nil, PChar(URL), PChar(FImageFileName), 0, nil));

  StateImage.Picture.LoadFromFile(FImageFileName);
end;

procedure TMainForm.ButtonResetClick(Sender: TObject);
begin
  EditUIN.Clear();
  EditUIN.SetFocus();
  StateImage.Picture := nil;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Caption := 'ICQ-Checker';
  FImageFileName := TPath.GetTempFileName() + '.gif'; // это не понимает Delphi7 чем это заменить?
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  DeleteFile(FImageFileName);
end;

end.

[Аватар]

GetTempFileName из юнита Windows в Д7 чем не подходит?

[beegl]

жду ответ, напишите, как верно подкоректировать строчку?)

[Stilet]

не получается сформулировать пример

Это оебртка на функу WinAPI. Там что-то еще должно быть

var buf:array[1..255] of char;
GetTempFileName('d:\1\','pref',1,buf);
FImageFileName :=buf;

[Аватар]

В Delphi7 просто GetTempFileName
В uses должен быть Windows
Читайте #4 и этот пост до прояснения

[beegl]

написал:

procedure TForm1.FormCreate(Sender: TObject);
var
   buf:array[1..255] of char;
begin
  Caption := 'ICQ Checker';
  GetTempFileName('d:\','pref',1,buf);
  FImageFileName := buf;
end;

ошибка

[Error] ICQCheckerUnit.pas(66): Incompatible types: 'Array' and 'PAnsiChar'
[Fatal Error] ICQChecker.dpr(5): Could not compile used unit 'ICQCheckerUnit.pas'[Error] ICQCheckerUnit.pas(66): Incompatible types: 'Array' and 'PAnsiChar'
[Fatal Error] ICQChecker.dpr(5): Could not compile used unit 'ICQCheckerUnit.pas'

[Аватар]

var Buf: String;

SetLength(Buf,MAX_PATH+1);
GetTempFileName('d:\','pref',1,PAnsiChar(Buf));
FImageFileName:=Buf;

[beegl]

такая ошибка, что может быть?