[Merch7]

Вот код, по которому я переименовываю файл и сопоставленную ему картинку(.png). Работает почему-то только с маленькими картинками, если отключить try, то выпадет сообщение об ошибке - файл картинки, дескать, занят дугим процесом, каким - неизветно. Проверял картинку через Unlocker - не блокируется. В чем дело? Другие картинки не мешают

Код:

procedure MainForm.OKRename_Click(sender: System.Object; e: System.EventArgs);
var sw1, sw2: FileInfo;
begin
try
  sw1:=FileInfo.Create(CurrentDir+'\'+OldName.Text);
  sw1.MoveTo(CurrentDir+'\'+NewName.Text);
if fileExists(CurrentDir+'\Screenshots\'+ChangeFileExt(OldName.Text,'png')) then begin
  sw2:=FileInfo.Create(CurrentDir+'\Screenshots\'+ChangeFileExt(OldName.Text,'png'));
  sw2.MoveTo(CurrentDir+'\Screenshots\'+ChangeFileExt(NewName.Text,'png'));

  end;
  end;
except
end;
RenameBox.Hide;
end;

Используй теги!!!!

[AMD]

Сообщение от Merch7

Вот код, по которому я переименовываю файл и сопоставленную ему картинку(.png). Работает почему-то только с маленькими картинками, если отключить try, то выпадет сообщение об ошибке - файл картинки, дескать, занят дугим процесом, каким - неизветно. Проверял картинку через Unlocker - не блокируется. В чем дело? Другие картинки не мешают

Код:

procedure MainForm.OKRename_Click(sender: System.Object; e: System.EventArgs);
var sw1, sw2: FileInfo;
begin
try
  sw1:=FileInfo.Create(CurrentDir+'\'+OldName.Text);
  sw1.MoveTo(CurrentDir+'\'+NewName.Text);
if fileExists(CurrentDir+'\Screenshots\'+ChangeFileExt(OldName.Text,'png')) then begin
  sw2:=FileInfo.Create(CurrentDir+'\Screenshots\'+ChangeFileExt(OldName.Text,'png'));
  sw2.MoveTo(CurrentDir+'\Screenshots\'+ChangeFileExt(NewName.Text,'png'));

  end;
  end;
except
end;
RenameBox.Hide;
end;

Используй теги!!!!

Видимо это глюк