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.

[himitsu]

Zitat von t.roller:

So geht's:

Aber nur wenn der Dialog auch schnell genug angezeigt wird und du ihn auch wirklich erwischst.

GetForegroundWindow gibt "irgendein" Fenster zurück, das muß nicht der Fortschrittsdialog sein.
Der Dialog kommt nicht sofort, sondert wartet etwas ... falls wenig kopiert wird, dann taucht der nicht auf, da das Kopieren vorher fertig ist
oder er ist schon weg, da das Kopieren keine 2 Sekunden dauerte
oder ...
oder ...
und wenn der PC "überlastet" ist, dann kann sich das alles unvorhersehbar verschieben

Zitat von ScharfeMietze:

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

Dann könnte man auch genau das machen, was man "eigentlich" machen will.
* Dialog nicht anzeigen
* sich in den Copy-Callvack hängen
* und den Fortschritt selber dort anzeigen, wo man es haben will
Windows bietet einen Zugriff auf diesen Taskleisteneintrag, wo man dann diese ProgressBar einblenden und steuern kann.

https://www.youtube.com/watch?v=CtGFinfHeIE
http://www.delphipraxis.net/155079-p...askleiste.html
http://blog.delphi-jedi.net/2010/08/...ia-components/
http://stackoverflow.com/questions/5...using-delphi-7

[t.roller]

"Sichere" Lösung gefunden:

Delphi-Quellcode:

//   var Handle: THandle;
Handle:=  FindWindow(PChar('OperationStatusWindow'), nil);
if Handle <> 0 then ShowWindow(Handle, SW_MINIMIZE);

[DeddyH]

Und wenn gerade mehrere Kopiervorgänge gleichzeitig laufen? Dann ist es reine Glückssache, ob man das richtige Fenster erwischt oder nicht.

[ScharfeMietze]

uff
* sich in den Copy-Callvack hängen
wie geht das?
Ist das mit einfachen mitteln möglich? Kann man sich dort entweder die fertigen Prozente oder Geschwindigkeit abholen?


Gibt es eine andere Möglichkeit das Handle von dem vom Thread gestarteten Copy-Fensters zu erhalten?
Könnte man einen anonymen Subthread erstellen und auf neue Copy Fenster prüfen? Wenn Ja, wie?

Sonnigen Montag
Gruß
SM