Ä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

[venice2]

Wenn es das Paint.net ist das ich meine ist es normal das du kein Handle (HWND) bekommst
denn dein Class Name stimmt nicht und dieser ändert sich mit jeden neuem Start der Anwendung.
Prüfe den Classnamen einfach mal mit einer Spy Anwendung.

Paint.net vers. 4.3.11

1 Start
WindowsForms10.Window.8.app.0.24cbd2a_r3_ad1
2 Start
WindowsForms10.Window.8.app.0.2428e43_r3_ad1

TIP:
Versuche es einfach mal mit dem Window Title.

[DeddyH]

Hast Du es mal mit WinSpy versucht? Damit bekommt man sehr schön heraus, wie man an das Fensterhandle kommt.

[KodeZwerg]

Vielleicht hilft dir mein code schnippsel weiter um ans ziel zu gelangen.

Delphi-Quellcode:

type
  TExec = packed record
    Filename     : string;
    PID          : DWORD;
    WindowHandle : HWND;
  end;

var
  Exec: TExec;

procedure ResetExec;
begin
  Exec.Filename      := '';
  Exec.PID           := 0;
  Exec.WindowHandle  := 0;
end;

function EnumWindowsProc(Wnd : HWND; ProcessID : Cardinal) : Boolean; stdcall;
var
  PID : Cardinal;
begin
  GetWindowThreadProcessId(Wnd, @PID);
  if ProcessID = PID then
    Exec.WindowHandle := Wnd;
  Result := True;
end;

function ExecFile(const AFilename: string): Boolean;
var
  Executable : string;
  Security   : TSecurityAttributes;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
  dummy      : HINST;
begin
  Result := False;
  ResetExec;

  if (not FileExists(AFilename)) then
    Exit;

  SetLength(Executable, MAX_PATH);
  dummy := FindExecutable(PChar(AFilename), nil, PChar(Executable));
  if dummy > 32 then
  begin
    SetLength(Executable, StrLen(PChar(Executable)));
    UniqueString(Executable);

    Security.nLength              := SizeOf(TSecurityAttributes);
    Security.lpSecurityDescriptor := nil;
    Security.bInheritHandle       := False;

    FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
    StartupInfo.cb          := SizeOf(TStartupInfo);
    StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    StartupInfo.wShowWindow := SW_SHOWNORMAL {SW_HIDE};

    Win32Check(CreateProcess(PChar(Executable), PChar(Format('%s %s', [Executable, AFilename])), @Security, @Security, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(Executable)), StartupInfo, ProcessInfo));
    try
      WaitForInputIdle(ProcessInfo.hProcess, INFINITE);
      Exec.Filename := Executable;
      Exec.PID := ProcessInfo.dwProcessId;
      EnumWindows(@EnumWindowsProc, LPARAM(Exec.PID));
    finally
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      Result := True;
    end;
  end;
end;

nach dem aufruf steht in globaler variable Exec.WindowHandle was du brauchst. Ist ein Versuch Wert.

[Delbor]

Hi zusammen

Ich hab mir gestern abend das von DeddyH vorgeschlagene Wynspy mal 'installiert', aber heute morgen nichts davon vorgefunden, ausser dass mir Windows unter 'Zuletzt neu hinzugefügt' Delphi Alexandria meldet. Das hab ich gestartet und hatte bislang den Eindruck eines gewöhnlichen Delphi-Starts, bin allerdings noch nicht alle Menuepunkte durchgegangen.
Den Code von CodeZwerg werd ich mir mal in eine Unit/Klasse packen.

Gruss
Delbor