Ругаемся, говорим неизвестный идентификатор, хотя работало.

[Alex Cones]

В общем вот код:

With OpStruc Do
      Begin
       Wnd := Handle; wFunc := FO_COPY;
       pFrom := @FromBuf; pTo := @ToBuf;
       fFlags := FOF_NOCONFIRMATION or
                 FOF_RENAMEONCOLLISION or
                 FOF_SILENT or
                 FOF_NOCONFIRMATION;
       fAnyOperationsAborted := False;
       hNameMappings := Nil;
       lpszProgressTitle := Nil;
      End;

На выделенном слове начинает меня ругать, начем свет стоит!

P.S.

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellApi;

P.S.S.

 Var
  OpStruc: TSHFileOpStruct;
  FromBuf, ToBuf: Array [0..128] of Char;

[]Wowan[]

Увожаемый приведите текст ошибки.

[Alex Cones]

Мне проще сбросить скриншот

[]Wowan[]

Видимо пытаетесь взят Handle объекта OpStruc?

[Alex Cones]

Вроде бы, но раньше работало!

[]Wowan[]

Используя суфлер кода по пробуйте проверить имеет ли этот объект Handle.

[spamer]

Попробуй так :

var
DC: HDC;

Begin
DC: = GetDC (Handle);  //Ссылка на объект. В скобках, указывай свой объект.
ReleaseDC (Window, DC); // Освобождение ссылки
DeleteDC (DC); // Удаление ссылки
end;

P.S. Вот тут почитай про нужные тебе типы.