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

[Аватар]

А причем здесь GetTempFileName? Нужно смотреть какое расширение

[beegl]

расширение GIF

что- то здесь не верно наверное, или где ошибка?

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

код всей программы

[Stilet]

var fn:array[1..255] of char;
begin
  windows.GetTempFileName(pchar('d:\1'),PChar('pref'),10,@fn[1]);
  Caption:=fn;
end;

Выдало d:\1\prefA.tmp
Вроде все правильно.

[Аватар]

Здесь неверно вообще использование GetTempFileName для имен файлов с расширением отличным от tmp. Заменить его можно, например функцией ChangeFileExt, но после этого не факт, что файл с новым расширением не будет существовать. Нужно в цикле генерировать имя файла с нужным расширением и проверять, есть ли такой в заданном каталоге

[beegl]

оформте пример. и отправте на какой-то обменник исходник

[Аватар]

А вы, что цикл не в состоянии написать для динамического формирования строки? Типа такого. Для обменника этому исходнику слишком много чести

i:=0;
while True do begin
  Inc(i);
  s:=Format('%s\Prefix%d.gif',[MyCatalog,i]);
  if not FileExists(s) then Break;
end;

[Человек_Борща]

//offtop
наглость некоторых людей пугающе-завораживает.

[beegl]

а как это записать

Сообщение от Аватар

i:=0;
while True do begin
  Inc(i);
  s:=Format('%s\Prefix%d.gif',[MyCatalog,i]);
  if not FileExists(s) then Break;
end;

и подставить заместить этой строчки?

FImageFileName:=GetTempFileName('D:\'+'.gif',0,0,PAnsiChar(Buf));

[Аватар]

s это и есть ваш сформированній FImageFileName. Ну я надеюсь, что не в лоб мой код будете использовать, по крайней мере значения для i рандомно можно да и нужно создавать, иначе могут задержки, если этих файлов слишком много. Да и в префикс не мешало бы засунуть например дату создания