Ärger mit Shellexecute

[Delbor]

Hi zusammen

In meinem OpenfileFrame möchte ich PDF-Dateien direkt in einem entsprechenden Programm öffnen, bearbeiten und wieder schliessen Zudem soll das fremde Programm auf einem Container als Parent platziert werden. Dazu verwende ich vorerstfolgendes Codeschnipsel, noch ohne die beabsichtigte Platzierung:

Delphi-Quellcode:

procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var AnItem: TTreeNode; P: TPoint; LSelectItem, ext : String;
  begin
    AnItem := TVFilesExplorer.GetNodeAt(X, Y);
    if Button =(mbLeft) then
    begin
      LSelectItem := PNameRec(AnItem.Data)^.RealName;
      ext := ExtractFileExt(LSelectItem);
      if ext = '.pdf' then
      begin
        ShellExecute(handle, 'open', PChar('F:\Externer Programmordner\Ashampoo\Ashampoo PDF Free\Ashampoo PDF.exe', PChar(LSelectItem), nil, SW_SHOWNORMAL));

      end;
    end;
...
...

Sorgen macht mir die Zeile mit Shellexecute.Die Fehlermeldung :

Zitat:

[dcc32 Fehler] AlexOpenfileFrameUnit.pas(691): E2029 ')' erwartet, aber ',' gefunden

Dabei ist schon vorher die letzte Klammer rot markiert. Und was soll das mit dem Komma? Da ist weit und breit keines. Einzig LSelectItem könnte der Übeltäter sein - der enthält den kompletten Pfad. Aber auch das wird mW. so erwartet.

Gruss
Delbor

[DeddyH]

Zähl doch einfach mal die öffnenden und die schließenden Klammern, dann wirst Du merken, dass nach dem ersten Cast zu PChar die Klammer nicht geschlossen ist. Soviel Eigeninitiative könnte man aber IMO schon erwarten.

[edit] Ah, das hast Du scheinbar bereits gemacht und dann wohl einfach mal eine Klammer ganz ans Ende gesetzt. Kann man machen, aber das muss nicht funktionieren. [/edit]

[Delbor]

Hi DeddyH

Zitat:

Ah, das hast Du scheinbar bereits gemacht ...

Deine Antwort liess mich genauer hingucken - und da wurde auch die Sache mit dem Komma klar. Von wem stammt der Spruch:
"Wer Augen hat zu sehen...", oder ist der schon abgewandelt?
Vielen Dank und schönes restliches Wochenende!

Gruss
Delbor

[Delbor]

Hi zusammen

Nachdem ich nun die Klammer richtig gesetzt habe, lässt sich nun das fremde Programm starten. Nun will ich es noch auf ein Tabsheet einpassen Es soll da bis zur Beendigung des "Mutterprogramms" bleiben, so dass es jederzeit erneut zur Verfügung steht.
Das soll vorerst mal mit diesem Code geschehen:

Delphi-Quellcode:

procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var AnItem: TTreeNode; P: TPoint; LSelectItem, ext : String;
  begin
    FCodeReportlist.Add('procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown');
    FCodeReportlist.Add('--------------------------------------');
    AnItem := TVFilesExplorer.GetNodeAt(X, Y);
    if Button =(mbLeft) then
    begin
      LSelectItem := PNameRec(AnItem.Data)^.RealName;
      ext := ExtractFileExt(LSelectItem);
      if ext = '.pdf' then
      begin
        ShellExecute(handle, 'open', PChar('F:\Externer Programmordner\Ashampoo\Ashampoo PDF Free\Ashampoo PDF.exe'),
                                     PChar(LSelectItem), nil, SW_SHOWNORMAL);
        SetAppParent(Application.Name);
      end;
    end;
    if Button =(mbRight) then
    begin

und

Delphi-Quellcode:

procedure TAlexOpenfileFrame.SetAppParent(Application : String);
 var aWnd : Hwnd; WPM : TWindowPlacement; Rect : TRect;
begin
  aWnd:=Findwindow(PChar(Application),nil);
  if aWnd<>0 then
  begin
    Winapi.Windows.SetParent(awnd,OfficerAlexMain.tbsAppParent.Handle);

    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(awnd,@WPM);
    Rect.Top :=0;
    Rect.Left :=0;
    Rect.Right :=OfficerAlexMain.tbsAppParent.Width;
    Rect.Bottom:=OfficerAlexMain.tbsAppParent.Height;
    wpm.rcNormalPosition:=Rect;
    SetWindowPlacement(awnd,@WPM);
  end;

end;

Zur Zeit habe ich einen Breakpoint beim Aufruf 'SetAppParent'gesetzt, Delphi hält da an,und zur gleichen Zeit wird die App gestartet. Allerdings nicht auf dem Tabsheet, sondern Solo.

Der letzte Parameter von Shellexecute ist hier SW_SHOWNORMAL - der könnte wohl in SW_Hide geändert werden und erst bei/nach Rückkehr aus SetAppParent auf SW_SHOWNORMAL gesetzt werden - ob das allerdings so einfach ist, wie das in Pascal wohl wäre...
Hat jemand eine bessere Idee?

Gruss
Delbor

[himitsu]

Natürlich nicht.

Du setzt die Platzierung (Position/Placement) über die Position,
aber du setzt nicht den Parent, also die Form in dein Panel.

SetParent

[Delbor]

Hi zusammen

Im Moment ist vor allem das eine Handle nil(0):

Delphi-Quellcode:

        aWnd:=FindWindow(PChar('Ashampoo PDF'), nil);
          if aWnd<>0 then
          begin
            Winapi.Windows.SetParent(awnd,OfficerAlexMain.tbsAppParent.Handle);
          end;

Ich hab bisher noch weiter gesucht und mit verscchiedenen Codeversionne gearbeitet - wenn aWnd 0 ist, nützt das alles nichts.
Ich habe auch eine

Delphi-Quellcode:

procedure TOfficerAlexMain.FindPaint;
var aWnd : Hwnd;
    WPM : TWindowPlacement;
    Rect : TRect;
begin
  aWnd:=Findwindow('paint.net',nil);
  if aWnd<>0 then begin
    Winapi.Windows.SetParent(awnd,OfficerAlexMain.tbsAppParent.Handle);
    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(awnd,@WPM);
    Rect.Top :=0;
    Rect.Left :=0;
    Rect.Right :=Panel1.Width;
    Rect.Bottom:=Panel1.Height;
    wpm.rcNormalPosition:=Rect;
    SetWindowPlacement(awnd,@WPM);
    end;
end;

von zwei ähnlichen Prozeduren mal separat als Reaktion auf einen Button nachgebaut:

Delphi-Quellcode:

procedure TOfficerAlexMain.FindPaint;
var aWnd : Hwnd;
    WPM : TWindowPlacement;
    Rect : TRect;
begin
  aWnd:=Findwindow('paint.net',nil);
  if aWnd<>0 then begin
    Winapi.Windows.SetParent(awnd,OfficerAlexMain.tbsAppParent.Handle);
    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(awnd,@WPM);
    Rect.Top :=0;
    Rect.Left :=0;
    Rect.Right :=Panel1.Width;
    Rect.Bottom:=Panel1.Height;
    wpm.rcNormalPosition:=Rect;
    SetWindowPlacement(awnd,@WPM);
    end;
end;

Hier und in meinen bisherigen Umsetzungen ist die Variable aWnd immer 0, womit der darunter folgende Code nicht ausgeführt wird.

Wieso das?

Gruss
Delbor