Datakent Forum : Program İçinde Program http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : Program İçinde Program Sun, 03 May 2026 16:17:53 +0000 Tue, 23 Dec 2008 12:19:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=1624 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Program İçinde Program : güzel bir örnek. teşekkürler. http://forum.datakent.com/forum_posts.asp?TID=1624&PID=3486#3486 Yazar: murat turan
Konu: 1624
Gönderim Zamanı: 23.Aralik.2008 Saat 12:19

güzel bir örnek. teşekkürler.]]> Tue, 23 Dec 2008 12:19:10 +0000 http://forum.datakent.com/forum_posts.asp?TID=1624&PID=3486#3486 Program İçinde Program : Bu kodlar sayesinde bir exe programı... http://forum.datakent.com/forum_posts.asp?TID=1624&PID=3484#3484 Yazar: turknetyazilim
Konu: 1624
Gönderim Zamanı: 23.Aralik.2008 Saat 08:46

Bu kodlar sayesinde bir exe programı diğer bir exe program içerisinde MDI Child olarak çalıştırabilirsiniz..
// Kodla bir siteden alıntıdır örnek'te Notepad kullanılmış, ve birçok windows uyguaması için denenmiştir..
// Başka programlar içinse 'Adsız - Not Defteri' kısımı istediğiniz programın Başlık bilgisini yazmanız
//yeterli

procedure TForm1.Button1Click(Sender: TObject);
var
hNotePad, Style: Cardinal;
begin
// button click event
hNotePad := FindWindow(nil, 'Adsız - Not Defteri');
if hNotePad = 0 then
  begin
  ShowMessage('NotePad Çalışmıyor');
  Exit;
  end;
ShowWindow(hNotePad, SW_HIDE);
Style := GetWindowLong(hNotePad, GWL_STYLE);
if Style = 0 then
  begin
  ShowMessage('Sistem Stil verisine ulaşamadı');
  Exit;
  end;
Style := Style  or WS_CHILD; // to be attatched to another window I think u need a ws_child
SetWindowLong(hNotePad, GWL_STYLE, Style);
windows.SetParent(hNotePad, Handle);
MoveWindow(hNotePad, 2,2, Width-10, Height - 56, True);
ShowWindow(hNotePad, SW_SHOW);
end;
 
Alıntıdır
]]> Tue, 23 Dec 2008 08:46:19 +0000 http://forum.datakent.com/forum_posts.asp?TID=1624&PID=3484#3484