delphi ile windows uygulamalarını minimize etmek

[emrahozten]

Mesela notepadi simge durumuna küçültme kodu var mı?

[qamyoncu]

Tabii ki

Pencere handle numarası almak (notepad'inkini)
SendMessage komutu


Hatta o kadar şanslısınız ki, genelde sitelerde verilen örnekler hep notepad üzerinden gider

[ByDeniS]

Geçenlerde buradaki bir makalede şöyle bir örnek kod verilmişti bir dene istersen !

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow(nil, 'program pencere başlığı '); //programın handle numarasını buluyoruz
if h <> 0 then PostMessage(h, WM_MAXIMIZE, 0, 0); //büyük hale alıyoruz

[emrahozten]

notepadi örnek olarak söylemiştim ve yaptım, hatta o olursa internet explorerda olur dedim ama o olmadı Asıl amacım oydu aslında internet explorer sayfasını minimize etmek.

[RamazanG]

Bu uygulama edit1'e adı girilen uygulamayı taskbar'a küçültür

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 Indicador:Hwnd;
begin
        {Sınıf adıyla pencereyi bul}
    Indicador := FindWindowByTitle(Edit1.Text);
    {Eğer bulunmuşsa}
    if (Indicador <> 0) then
    begin
        // Minimize
        ShowWindow(Indicador,SW_MINIMIZE); //SW_HIDE gibi diğer seçenekleride kullanabilirsin

end;
end;

function TForm1.FindWindowByTitle(WindowTitle: string): Hwnd;
    var
      NextHandle: Hwnd;
      NextTitle: array[0..260] of char;
begin
      {İlk pencereyi algıla}
      NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
      while NextHandle > 0 do
      begin
        {Pencerenin adını algıla}
        GetWindowText(NextHandle, NextTitle, 255);
        if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
        begin
          Result := NextHandle;
          Exit;
        end
        else
          {Sonraki pencereyi algıla}
          NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
      end;
      Result := 0;
end;
end.

[emrahozten]

çok teşekkür ederimi işe yaradı ))