Ordner Kopiervorgang fertig? Oberfläche sperren.

[freakfly]

Hallo!

Ich nutze zum kopieren von Ordnern folgende Funktion. Wie kann ich jetzt abchecken ob der kopiervorgang schon fertig ist?
Und so lange z.B. die Oberfläche gesperrt lassen?

Delphi-Quellcode:

function f_CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct; 
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Gruß, freakfly

[Luckie]

Er sollte dann fertig sein, wenn die Funktion zurückkehrt.

[sieppl]

Zitat:

Zitat von Luckie

Er sollte dann fertig sein, wenn die Funktion zurückkehrt.

Sorry für's aufwärmen, aber das ist leider nicht der Fall.

Beispiel: (vereinfacht)

Delphi-Quellcode:

case Com of
        MCpaste:
          Command.lpVerb := MakeIntResource('paste');
        MCcopy:
          Command.lpVerb := MakeIntResource('copy');
        MCcut:
          Command.lpVerb := MakeIntResource('cut');
      end;
      if Command.lpVerb <> nil then
      begin
        Check := PConMenu.InvokeCommand(Command);
        if Check = S_OK then
        begin
          if (Com = MCdelete) then
            Self.ClearSelectedItems;
          if (Com = MCpaste) then
            if (FileCount > 0) and (GetFileCountFromFullPIDL(FCurRootPIDL) > FileCount) then
              Self.InsertTransferList; //HIER keine Änderung
        end else
          OleCheck(Check);

Im Fall 'paste', also Einfügen über das IcontextMenü, bekommt CHeck den Wert S_OK und der Delphi-Code wird weiter abgearbeitet. Erst nachdem ich viel weiter unten im Code bin poppt z.B. die MessageBox vom Windows auf und fragt mich ob ich überschreiben möchte oder nicht.
Wie soll man da vernünftig den Vorgang behandeln??

Hat jemand Ideen?

Grüße

Sebastian