Also ich habs so gemacht:
Delphi-Quellcode:
procedure MoveFiles(DirFrom, DirTo: string);
var
shellinfo: TSHFileOpStruct;
begin
with shellinfo do
begin
Wnd := 0;
wFunc := FO_MOVE;
pFrom := PChar(DirFrom);
pTo := PChar(DirTo);
fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_MULTIDESTFILES or FOF_SILENT;
end;
SHFileOperation(shellinfo);
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
SetCurrentDir('x:\');
MoveFiles('test'+#0, 'x:\test2\blah'+#0)
end;
mit FO_RENAME gehts auch nicht.
mit findfirst, findnext + movefile dauerts noch länger.
wenn ich die daten per drag&drop im explorer verschiebe wird garnix auf den stick geschrieben, wird da auf die datei tabelle zugegriffen und nur der name geändert?
Zitat:
Ach, das ist doch dieser Sicherheitsschnee...
sicher ist das sicher nicht, was die da machen. ich will nur wissen wie die die daten so schnell verschieben.
das programm gibs hier:
http://www.newsoftwares.net/usb-secure/
edit:
ok die lösung des problems ist mal wieder sehr einfach.
movefilew funktioniert auch mit ordnern. so machts das programm und auch der explorer.