Entwickler-Ecke

Windows API - Problem mit ShFileOperation / DeleteFileWithUndo


AScomp - Mo 05.04.10 00:47
Titel: Problem mit ShFileOperation / DeleteFileWithUndo
Hallo,

folgende Funktion verwende ich, um eine Datei in den Papierkorb zu verschieben:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
 
function DeleteFileWithUndo(sFileName: String): boolean;
var
  fos: TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos), 0);
  with fos do begin
    wFunc  := FO_DELETE;
    pFrom  := PChar(sFileName);
    fFlags := FOF_ALLOWUNDO
              or FOF_NOCONFIRMATION
              or FOF_SILENT;
  end;
  Result := (0 = ShFileOperation(fos));
end;


Das funktionierte bisher einwandfrei, aber seit Delphi 2010 scheint das nicht mehr zu funktionieren. Result ist immer false, manchmal hängt das Programm auch sekundenlang beim Aufruf von ShFileOperation(fos). Die Dateien werden nicht in den Papierkorb verschoben.

sFileName kommt korrekt als Unicode-String an, die Dateien existieren also.

Danke schonmal für jeden Tipp!

Gruß

Andy


AScomp - Mo 05.04.10 00:54
Hab's rausgefunden: pFrom muss ein nullterminierter String sein.


Delete - Mo 05.04.10 01:36
Doppelt nullterminierend. Siehe Hilfe.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!