Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
DosProgram, Style: Cardinal;
begin
DosProgram := FindWindow(nil, 'Dos Penceresi Başlığı');
if DosProgram = 0 then
begin
ShowMessage('Program Çalışmıyor');
Exit;
end;
ShowWindow(DosProgram, SW_HIDE);
Style := GetWindowLong(DosProgram, GWL_STYLE);
if Style = 0 then
begin
ShowMessage('Sistem Stil verisine ulaşamadı');
Exit;
end;
Style := Style or WS_CHILD;
SetWindowLong(DosProgram, GWL_STYLE, Style);
windows.SetParent(DosProgram, Handle);
MoveWindow(DosProgram, 2,2, Width-10, Height - 56, True);
ShowWindow(DosProgram, SW_SHOW);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); // her zaman üstte
end;