[NumLock]

Код:

uses
  ShellAPI,
...
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  ZeroMemory(@SHFileOpStruct, SizeOf(TSHFileOpStruct));
  SHFileOpStruct.Wnd:=Handle;
  SHFileOpStruct.wFunc:=FO_COPY;
  SHFileOpStruct.pFrom:='d:\HDD\Sw.vdi'#0;
  SHFileOpStruct.pTo:='d:\CommonFiles';
  SHFileOpStruct.fFlags:=0;
  SHFileOpStruct.lpszProgressTitle:='CommonFiles';
  SHFileOperation(SHFileOpStruct);
end;