|
Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: CopyFile lässt die Anwendung hängen, wie umgehen?
3. Jun 2015, 15:46
Ja, Lazarus macht da nicht mit...  Dann deklariere die API-Funktion in Lazarus doch selbst.
Code:
function CopyFileEx(lpExistingFileName, lpNewFileName: PChar;
lpProgressRoutine: Pointer; lpData: Pointer; pbCancel: PBool;
dwCopyFlags: DWORD): WINBOOL; external 'kernel32' name 'FileCopyExA';
Achtung:
Parameter nicht überprüft.
Eventuell auch noch für 'FileCopyExW' erstellen
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|