Delphi Can

(01-01-2023, Saat: 14:49)ahmet6513 Adlı Kullanıcıdan Alıntı: [ -> ]

(07-11-2022, Saat: 22:58)masteryoda Adlı Kullanıcıdan Alıntı: [ -> ]python ile https://wkhtmltopdf.org/ bunu kullandım 2 yıldır bir sıkıntısını görmedim.
basit de bir kullanımı var wkhtmltopdf c:\temp\html_file_path.html c:\temp\pdf_file_path.pdf

wkhtmltopdf  soylediğiniz gibi kullandım sorunumu çözdü fakat bir dos ekranın da işlem yapıyor bunu gizlememim bir parametresi var mıdır ? parametrelerden bulamadım https://wkhtmltopdf.org/usage/wkhtmltopdf.txt  burada bir liste var ama çoğunu denedim olmadı

Fikir Versin Diye Hesap Makinesinde Test ediniz.

function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..260] of char;
begin
  // Get the first window
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    // retrieve its text
    GetWindowText(NextHandle, NextTitle, 255);
    if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
    begin
      Result := NextHandle;
      Exit;
    end
    else
      // Get the next window
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
  Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  h: hwnd;
begin
  h := FindWindowByTitle('Hesap Makinesi');
  if h <> 0 then
    ShowWindow(h, SW_HIDE)
  else
    ShowMessage('Uygulama Bulunamadı.');
end; 

(02-01-2023, Saat: 11:19)COMMANDX Adlı Kullanıcıdan Alıntı: [ -> ]

(01-01-2023, Saat: 14:49)ahmet6513 Adlı Kullanıcıdan Alıntı: [ -> ]wkhtmltopdf  soylediğiniz gibi kullandım sorunumu çözdü fakat bir dos ekranın da işlem yapıyor bunu gizlememim bir parametresi var mıdır ? parametrelerden bulamadım https://wkhtmltopdf.org/usage/wkhtmltopdf.txt  burada bir liste var ama çoğunu denedim olmadı

Fikir Versin Diye Hesap Makinesinde Test ediniz.

function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..260] of char;
begin
  // Get the first window
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    // retrieve its text
    GetWindowText(NextHandle, NextTitle, 255);
    if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
    begin
      Result := NextHandle;
      Exit;
    end
    else
      // Get the next window
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
  Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  h: hwnd;
begin
  h := FindWindowByTitle('Hesap Makinesi');
  if h <> 0 then
    ShowWindow(h, SW_HIDE)
  else
    ShowMessage('Uygulama Bulunamadı.');
end; 

teşekkürler hocam gerçekten yardımcı oldu özellikle SW_HIDE yi görünce : bazen gözünün önündekini göremiyorsunuz teşekkürler 

 ShellExecute(0,'open',Pchar(AnaF.Prg_Yeri+'pdftool\wkhtmltopdf.exe'),Pchar(P),nil,SW_HIDE)