getwindowtext setwindowtext

[Sawyer]

Merhaba arkadaşlar

Setwindowtext ile istediğimiz programın handle'ından title'ını değiştirebiliyoruz, ben mesala bi programın title X Programı iken asdasd yaptım.

Onu eski haline gerçek title'ına nasıl çevirebilirim. Yani setwindowtext(handle, 'X Programı') yapmadan otomatik eski haline nasıl döndürebilirim ?

Yardımlarınız için teşekkürler.

[sabanakman]

SetWindowText ile o başlığı değiştirmeden önce okuyarak bir değişkene yedekleyin. Zira text'i değişmiş başlığın eski değeri ayrı olarak başka bir yerde tutulmamaktadır.

Kod: Tümünü seç

var EskiBaslikDegeri:String; Baslik:array[1..300]of Char;
//önce text değeri okunur ve değiştirilir
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetWindowText(handle,@Baslik,MAX_PATH);
  EskiBaslikDegeri:=Baslik;
  SetWindowText(handle,'asdasd');
end;
//sonra ilk text değeri tekrar yazılır
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetWindowText(handle,PChar(EskiBaslikDegeri));
end;

[Shou]

Merhabalar benim'de şöyle bir problemim var diyelim yaz.exe adlı program 3 defa açarsak hepsi bir birine yazıyor setwindowtext'leri ben,

Kod: Tümünü seç

prochwnd:=findwindow('Deneme',nil);

olarak kullanıyorum hepsi tek kendisine yazması için ne yapmam gerekıyor yardımcı olursanız sevinirim.

[Lord_Ares]

her birinin handle numarası farklıdır. Buna bakarak handle nosu şu olana şu gibi yapabilirsin.