Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 4. Jun 2022
  Hi zusammen
  
  Mein dringlichstes 'Problem', nämlich die Anzeige eines fremden Programmws in meinem, habe ich nun 'gelöst'. Bei MausDown in meinem TAlexOpenfileFrame:
  if Button =(mbLeft) then
  begin
  LSelectItem := PNameRec(AnItem.Data)^.RealName;
  ext := ExtractFileExt(LSelectItem);
  if ext = '.pdf' then
  begin
  ShellExecAndWait('F:\Externer...
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 1. Jun 2022
  Hi zusammen
  
  
  
  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....
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 1. Jun 2022
  Hi zusammen
  
  
  
  Ein Ordner mit Reissverschluss?
  
  Nach dem entpacken und "installieren":
  
  und der Taskmanager
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 1. Jun 2022
  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,...
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 1. Jun 2022
  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...
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 31. Mai 2022
  Hi zusammen
  
  Im Moment ist vor allem das eine Handle nil(0):
  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.
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 30. Mai 2022
  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:
  
  procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown(Sender: TObject;
  ...
• Forum: Object-Pascal / Delphi-Language

  AW: Ärger mit Shellexecute

    Delphi
    by Delbor, 29. Mai 2022
  Hi DeddyH
  
  
  
  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
• Forum: Object-Pascal / Delphi-Language

  Ärger mit Shellexecute

    Delphi
    by Delbor, 29. Mai 2022
  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:
  
  procedure TAlexOpenfileFrame.TVFilesExplorerMouseDown(Sender: TObject;
  ...