Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
683 Beiträge
 
Delphi 10.3 Rio
 
#17

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 2. Aug 2019, 12:23
Hallo Zusammen,

vielen Dank für die Hilfe. Ich konnte es damit lösen.
Die Zeile ExcelApp.DisplayAlerts:=False; brachte den gewünschten Erfolg.

So sieht die ganze Procedure aus:
Delphi-Quellcode:
procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var h: hwnd;
begin
   OpenTemp;
   FWorkBook :=FExcelApp.Workbooks.open(pfad);
   if Drucken then begin
      FExcelApp.Worksheets.PrintOut;
      FExcelApp.DisplayAlerts:=False;
      h := FindWindowByTitle(copy(pfad, Length(pfad)-25,21));
      if h <> 0 then
         SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)
      else
         ShowMessage('not found.');
   end
   else begin
      FExcelApp.Visible := True;
   end;
end;
Vielen Dank
Patrick
Patrick
  Mit Zitat antworten Zitat