Имеется код:
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
SHFILEOPSTRUCT sh;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
sh.wFunc = toCopy ? FO_COPY : FO_MOVE;
sh.pFrom = slSourceDir.c_str();
sh.pTo = slTargetDir.c_str();
sh.hNameMappings = NULL;
sh.lpszProgressTitle = NULL;
return SHFileOperation ( &sh );
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption="Копирую!";
MoveFiles("c:\Project1.exe", "c:\Temp");
}
Смотрел пример здесь: http://www.realcoding.net/article/view/1868#r10
Проблема в том, что он не работает. Стоит задача просто переместить или копировать файл. Если кто может помочь кодом, то буду очень благодарен. Спасибо.
int MoveFiles( AnsiString slSourceDir, AnsiString slTargetDir, bool toCopy = true )
{
SHFILEOPSTRUCT sh;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT | FOF_FILESONLY;
sh.wFunc = toCopy ? FO_COPY : FO_MOVE;
sh.pFrom = slSourceDir.c_str();
sh.pTo = slTargetDir.c_str();
sh.hNameMappings = NULL;
sh.lpszProgressTitle = NULL;
return SHFileOperation ( &sh );
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption="Копирую!";
MoveFiles("c:\Project1.exe", "c:\Temp");
}
Смотрел пример здесь: http://www.realcoding.net/article/view/1868#r10
Проблема в том, что он не работает. Стоит задача просто переместить или копировать файл. Если кто может помочь кодом, то буду очень благодарен. Спасибо.
