Forum: Win32/Win64 API (native code)
Delphi
by FriFra,
13. Dez 2006
Ich habe es jetzt mit einem Thread gelöst ;)
Aufruf:...
ThreadRunning := True;
AppExiting := False;
TFindWnd.Create(False);
CopyDir(DataDir + '*', 'C:\Test');
AppExiting := True;
while ThreadRunning = True do
Forum: Win32/Win64 API (native code)
Delphi
by FriFra,
12. Dez 2006
In der ShellAPI.h vom visualStudio 2003 hab ich das hier gefunden:////
//// Shell File Operations
////
#ifndef FO_MOVE //these need to be kept in sync with the ones in shlobj.h
#define FO_MOVE 0x0001
#define FO_COPY 0x0002
#define FO_DELETE 0x0003
#define FO_RENAME 0x0004
Forum: Win32/Win64 API (native code)
Delphi
by FriFra,
12. Dez 2006
Zum kopieren eines kompletten Ordners verwende ich eine Funktion von den Schweizern (leicht abgewandelt):function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_NOERRORUI + FOF_SIMPLEPROGRESS + FOF_NOCONFIRMATION +
FOF_NOCONFIRMMKDIR;