Copy Windowsfenster minimiert starten

[ScharfeMietze]

Guten Morgen

Delphi-Quellcode:

TThread.CreateAnonymousThread(procedure()
var
  sh: TSHFileOpStruct;
  Rezult: Boolean;
  begin
    sh.Wnd := Application.Handle;
    sh.wFunc := FO_COPY;
    sh.pFrom := PChar(ASource + #0#0);
    sh.pTo := PChar(ADest + #0#0);
    sh.fFlags := FOF_NOCONFIRMATION or fof_MultiDestFiles or FOF_NOCONFIRMMKDIR;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;

    Rezult:=ShFileOperation(sh)=0;
    end);
  end).Start;

Erzeugt mir ein Windows-Copy Fenster. Das ist auch so gewollt. Ich hätte gerne das es minimiert startet.
Ist das machbar?

Gruß
SM

[t.roller]

If you put a zero in the Wnd field, it tells the shell that there is no parent. In this case you will be able to click on your form and bring it to the foreground on top of the dialog.

[ScharfeMietze]

sh.Wnd := 0; Es poppt trozdem weiterhin das Copyfenster unter Windows 10 auf.


edit:
Meine Idee war nun mit
PostThreadMessage(TThread.CurrentThread.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); das Fenster zu minimieren.

Hat aber leider nicht funktioniert.

Ideen?

[himitsu]

Man kann in den Flags sagen, daß dieser Fortschirttsdialog garnicht angezeit werden soll

oder man verwendet eine andere API, welche keinen Dialog anzeigt.

[ScharfeMietze]

Wenn es rein ums abschalten geht mit
or FOF_SILENT bräuchte ich keine hilfe.

Der Fortschritsbalken soll vorhanden sein, da es in der Taskleiste dann den Fortschritt schön anzeigt.

Bei einer langsamen Internetverbindung und eimem gemountetem Laufwerk, sollte schon was angezeigt werden.

Das permanente aufpoppen des Copy-Fensters soll am besten minimiert passieren.

[t.roller]

So geht's:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Winapi.ShellAPI, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    cbSHOW: TCheckBox;
    ASource: TEdit;
    ADest: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Status: TLabel;
    lbERROR: TLabel;
    ARenameCheck: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CopyInThread(ASource, ADest : String);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  myThread: TThread;

implementation

{$R *.dfm}

procedure TForm1.CopyInThread(ASource, ADest : String);
var aThread : TThread;
  sh: TSHFileOpStruct;
  Err : Integer;
begin
  aThread :=
    TThread.CreateAnonymousThread(
      procedure
      begin
        sh.lpszProgressTitle:= PChar('MyCopier');
        sh.Wnd := 0;// Application.Handle;
        sh.wFunc := FO_COPY;
        sh.pFrom := PChar(ASource + #0#0);
        sh.pTo := PChar(ADest + #0#0);
        sh.fFlags := FOF_NOCONFIRMATION or fof_MultiDestFiles or FOF_NOCONFIRMMKDIR;
        if ARenameCheck.Checked then
        sh.fFlags := sh.fFlags or fof_RenameOnCollision;
        Err:=ShFileOperation(sh);
        if Err <> 0 then
          begin
          ShowMessage('Error: ' + inttostr(Err) + ' '  + SysErrorMessage(GetLastError));
          end;
      end);

  aThread.FreeOnTerminate := True;
//  aThread.OnTerminate :=  ...
  aThread.Start;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Handle: THandle;
    strSource, strDest : String;
begin
strSource:= ASource.text;
strDest:= ADest.text;
CopyInThread(strSource, strDest);
if NOT cbSHOW.Checked then  // CheckBox
BEGIN
  Sleep(2000);  // Wichtig!!! Warten bis COPY-WINDOW vorhanden ist.
  Application.ProcessMessages;
  Handle:=  FindWindow(PChar('OperationStatusWindow'), nil);
  if Handle <> 0 then ShowWindow(Handle, SW_MINIMIZE);
  Self.SetFocus;
END;
  Winapi.Windows.Beep(1500,200);
end;

end.