Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Program İçinde Program
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Program İçinde Program

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Program İçinde Program
    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
Yukarı Dön
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 23.Aralik.2008 Saat 12:19
güzel bir örnek. teşekkürler.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,195 Saniyede Yüklendi. [power by : WebWiz]