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