Fehler beim Dateien kopieren

[markus lemcke]

Hallo,

mit dieser Funktion:
<pre>

function DateiKopieren(sQuelle, sZiel : String) : Integer;
var SHFileOp : TSHFileOpStruct;
begin
Result := -1;
with SHFileOp do
begin
wnd := Application.Handle;
wfunc := FO_COPY;
pfrom := PChar(sQuelle);
pto := PChar(sZiel);
fFlags := FOF_NOCONFIRMATION + FOF_NOERRORUI;
Result := SHFileOperation(SHFileOp);
end;
end;
</pre>
kopieren wir dateien!
Bei Dateien mit unterstrichen zum beispiel Form_Copy.dcu kommt ein Fehler 1026
und sie werden nicht kopiert. woran kann das liegen?


Gruß

Markus