Ärger mit Shellexecute

[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

[KodeZwerg]

Zitat von Delbor:

Den Code von CodeZwerg werd ich mir mal in eine Unit/Klasse packen.

Bin gespannt was dabei rauskommt, bei meiner Variante ist der ClassName völlig egal da ich über die erzeugte ProcessID das Fensterhandle versuche zu holen.
Diese Methodik funktioniert zu 100% immer zuverlässig solange das "ExecFile" kein "Wrapper" für andere Executables ist (Programm A lädt beim start Programm B oder Fenster wird in DLL erzeugt... etc) bzw solange die ProcessID ein Fenster besitzt.

Wenn Du noch Fragen dazu haben solltest, ich hoffe ich kann Dir weiterhelfen.

[Delphi.Narium]

Muss es unbedingt Ashampo zur Anzeige von PDF-Dateien sein?

Wenn nein: Bei mir ist seit 'ner Weile Sumatra im Einsatz. Klappt so gut, dass es mir nicht mher auffällt, dass ich da "was fremdes" in meine Programme einbette.

Zuerst wird geprüft, ob Sumatra vorhanden ist, wenn ja, wird es genutzt. Sollte es nicht gefunden werden, wird es mit dem AcrobatReader versucht. Den Teil kann man aber auch entfernen, wenn die Nutzung vom Acrobat ausgeschlossen werden soll.

Da ich nur Delphi 7 habe, wirst Du im folgenden Quelltext vermutlich einige Anpassungen vornehmen müssen.

Zuerst die DFM:

Delphi-Quellcode:

object fmPDFVorschau: TfmPDFVorschau
  Left = 476
  Top = 60
  Width = 249
  Height = 138
  Caption = 'PDF-Vorschau'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object pnPDF: TPanel
    Left = 0
    Top = 0
    Width = 241
    Height = 111
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
  end
end

und dann die dazugehörige Unit:

Delphi-Quellcode:

unit uPDFVorschau;

interface

uses
  AcroPDFLib_TLB, 
  Forms,
  Classes,
  Controls,
  ExtCtrls;

type
  TfmPDFVorschau = class(TForm)
    pnPDF: TPanel;
    procedure FormResize(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  protected
    procedure CreateParams(var Params: TCreateParams) ; override;
  private
    { Private-Deklarationen }
    fAcroPDF       : TAcroPDF;
    fPDFFile       : String;
    fUseSumatraPDF : Boolean;
  public
    { Public-Deklarationen }
    procedure LoadPDF(APdfFile : String);
    procedure LoadArcoPDF;
    procedure LoadSumatraPdF;
    property  PDFFile : String read fPDFFile;
    property  UseSumatraPDF : Boolean read fUseSumatraPDF write fUseSumatraPDF default false;
  end;

var
  fmPDFVorschau: TfmPDFVorschau;

implementation

{$R *.dfm}

uses
  Windows,
  SysUtils,
  ShellAPI;

const
  csCaption = 'PDF-Vorschau - %s';

// Eigenen Button in die Taskbar machen, damit man per STRG+TAB zwischen den
// Fenstern wechseln kann. Der eingebettet Acrobat nimmt sich leider das Recht
// heraus alle Tastaturkürzel zu ignorieren, wenn sie vom Programm sind und
// sich selbst so in den Focus zu setzen, dass man nicht per Mausklick ...
// problemlos mit dem Programm arbeiten kann.
procedure TfmPDFVorschau.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle   := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;
end;

procedure TfmPDFVorschau.FormCreate(Sender: TObject);
begin
  // Das muss ggfls. angepasst werden.
  fUseSumatraPDF := FileExists('.\Lib\SumatraPDF.exe');
end;

procedure TfmPDFVorschau.FormResize(Sender: TObject);
begin
  if not fUseSumatraPDF then begin
    if Assigned(fAcroPDF) then begin
      if fAcroPDF.Visible then begin
        fAcroPDF.LoadFile(fPDFFile);
        fAcroPDF.Update;
      end;
    end;
  end else
  if Assigned(pnPDF) then begin
    pnPDF.Align := alTop;
    Application.ProcessMessages;
    pnPDF.Align := alClient;
  end;
end;

procedure TfmPDFVorschau.LoadPDF(APDFFile : String);
begin
  fPDFFile          := APDFFile;
  Caption           := Format(csCaption,[ChangeFileExt(ExtractFileName(fPDFFile),'')]);
  case fUseSumatraPDF of
    true  : LoadSumatraPDF;
    false : LoadArcoPDF;
  end;
end;

procedure TfmPDFVorschau.LoadArcoPDF;
begin
  Screen.Cursor := crHourGlass;
  if Assigned(pnPDF) then pnPDF.Visible := False;
  if not Assigned(fAcroPDF) then begin
    fAcroPDF                := TAcroPDF.Create(Self);
    fAcroPDF.Parent         := Self;
    fAcroPDF.Left           := 0;
    fAcroPDF.Top            := 0;
    fAcroPDF.Width          := Width;
    fAcroPDF.Height         := Height;
    fAcroPDF.TabStop        := False;
    fAcroPDF.Align          := alClient;
    fAcroPDF.ParentShowHint := False;
    fAcroPDF.ShowHint       := True;
    fAcroPDF.TabOrder       := 0;
    fAcroPDF.Visible        := True;
  end;
  fAcroPDF.src  := fPDFFile;
  fAcroPDF.LoadFile(fPDFFile);
  Screen.Cursor := crDefault;
  Show;
end;

procedure TfmPDFVorschau.LoadSumatraPDF;
var
  sParam : String;
begin
  Screen.Cursor := crHourGlass;
  if Assigned(fAcroPDF) then fAcroPDF.Visible := False;
  // Caption       := Format(csCaption,[fPDFFile]);
  // -reuse-instance funktioniert nur, wenn immer die gleiche Datei geladen wird,
  // andernfalls entsteht für jede PDF-Datei eine neue Instanz von SumatraPDF.
  // Die Instanzen von SumatraPDF werden beendet, wenn man das Programm beendet.
  // Bei diesem Vorgehen entsteht aber nur eine Instanz von SumatraPDF.
  pnPDF.Free;
  Sleep(1000); // Warten, bis sich SumatraPDF beendet hat.
  pnPDF            := TPanel.Create(Self);
  pnPDF.Parent     := Self;
  pnPDF.Left       := 0;
  pnPDF.Top        := 0;
  pnPDF.Width      := Width;
  pnPDF.Height     := Height;
  pnPDF.BevelOuter := bvNone;
  pnPDF.TabOrder   := 1;
  pnPDF.Align      := alClient;
  pnPDF.Visible    := True;
  sParam           := Format('-lang de -reuse-instance -plugin %d "%s"',[pnPDF.Handle,fPDFFile]);
  ShellExecute(Self.Handle,'open',PAnsiChar('SumatraPDF.exe'),PAnsiChar(sParam),'',sw_normal);
  Screen.Cursor    := crDefault;
  Show;
end;

procedure TfmPDFVorschau.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case key of 27 : Close; end;
end;

end.

[Delbor]

Hi zusammen

@ Delphi.Narium: Nebst einem kostenpflichtigen Programm, das ich mir schon vor Jahr(-zehnt)en zugelegt habe, habe ich mir noch Ashampo PDF Free zugelegt, womit ich PDFs ausfüllen und sie mit beliebigen, auch benutzerdefinierten Stempeln versehen kann - und die Internethilfe ist in normalem Deutsch ohne jegliches Fachchinesisch abgehalten (..). Das ist für mich der Hauptgrund, warum ich vorerst bei Ashompoo bleiben will.
Für mein Programm hingegen muss es völlig gleichgültig sein, mit welchen fremden Programmen es arbeitet.

@Turbomagic:

Zitat:

Ich glaube nicht, das WinSpy was in der Delphi IDE ist.

Ich dachte auch erst an ein eigenständiges Programm, hab dann aber nichts gefunden ausser eben Delphi Alexandria, das ganz zuoberst in der Startleiste als neu hinzugefügt aufgeführt war/ist. Wenn das die letzte vorgenommenen Installation gewesen wäre... War sie aber nicht: das war Winspy. Und davor mindestens CNPack und GEXPERTS.


Gruss
Delbor

[DeddyH]

Der Download ist ein Zip-Archiv, da wird nichts installiert. Du musst also den Ordner öffnen, in den Du entpackt hast und dort die WinSpy.exe starten.

[venice2]

Hier!

[Andreas13]

Hier ist eine deutlich jüngere Version von Winspy aus dem Jahr 2018: https://sourceforge.net/projects/winspyex/
VirusTotal https://www.virustotal.com meldet allerdings eine Handvoll von Trojanern...
Bestimmt nur ein Fehlalarm?
Gruß, Andreas

[Delbor]

Hi zusammen

Zitat:

Der Download ist ein Zip-Archiv, da wird nichts installiert. Du musst also den Ordner öffnen, in den Du entpackt hast und dort die WinSpy.exe starten.

Ein Ordner mit Reissverschluss?
14_35_25-Window.jpg
Nach dem entpacken und "installieren":
Programme.jpg
und der Taskmanager
Tasks.jpg

Wie ich den wieder anzeige, ist mir ein Rätsel. Auch das menü des Taskmanagers weiss es nicht:
TaskMan-Menü.jpg
Zumindest, wenn ich richtig gelesen habe.

Was mache ich falsch?

@Andreas13 Habe deinen Beitag eben jetzt gesehen. Danke! Allerdings von wegen Viruse - ich arbeite mit dem windowseigenen Defender.

Gruss
Delbor

[KodeZwerg]

Zitat von Delbor:

@ Delphi.Narium: Nebst einem kostenpflichtigen Programm, das ich mir schon vor Jahr(-zehnt)en zugelegt habe, habe ich mir noch Ashampo PDF Free zugelegt, womit ich PDFs ausfüllen und sie mit beliebigen, auch benutzerdefinierten Stempeln versehen kann - und die Internethilfe ist in normalem Deutsch ohne jegliches Fachchinesisch abgehalten (..). Das ist für mich der Hauptgrund, warum ich vorerst bei Ashompoo bleiben will.

Der Unterschied ist, Delphi.Narium's varianten sind darauf ausgelegt eingebettet zu werden (sie haben anscheinend Child-Windows), dein Wunsch-Programm anscheinend nicht (bzw ich habs nicht zum testen, lese nicht dessen webseite etc....)

Idr. muss man per "AttachThreadInput()" die beiden seperaten prozesse vereinen, aber nichts desto trotz, generisch betrachtet ist es das schlimmste an was man überhaupt denken kann, da du keine Ahnung von den inneren Message-Ketten hast, die bei solch einem vorhaben schlichtweg zerschossen werden könnten.

[Delbor]

Hi zusammen

Zitat von KodeZwerg:

Der Unterschied ist, Delphi.Narium's varianten sind darauf ausgelegt eingebettet zu werden (sie haben anscheinend Child-Windows), dein Wunsch-Programm anscheinend nicht (bzw ich habs nicht zum testen, lese nicht dessen webseite etc....)

Idr. muss man per "AttachThreadInput()" die beiden seperaten prozesse vereinen, aber nichts desto trotz, generisch betrachtet ist es das schlimmste an was man überhaupt denken kann, da du keine Ahnung von den inneren Message-Ketten hast, die bei solch einem vorhaben schlichtweg zerschossen werden könnten.

Dein erster Abschnitt ist hochinteressant - Absicht ist oder wäre, ein bestimmtes PdF anzuzeigen und nach dessen Inhalt einen Datenbankeintrag zu generieren. Das funktioniert soweit, als dass ich Ashampoo und das PDF starten kann. Allerdings nicht als dem Tabsheet untergeaordnet, sondern solo über meinem Programm liegend. Positiv: die beiden Programme sind beide bearbeitbar. Negativ ist: Wenn ich Asampoo instinktiv über die rechte obere Ecke schliesse, friert mein Programm ein.
Ich werde noch einen Versuch mit Createprozess und warten auf das Ende probieren - aber ich fürchte, dass ich dann entweder das eine oder andere Programm bearbeiten kann, nicht jedoch beide.

Dein zweiter Abschnitt, und besonders dein letzter Satz, habensaber in sich!

Gruss
Delbor