Bir MS-DOS Programını Her Zaman Üstte Yapmak (Kod)

[kafkasyali]

Çalışan bir programı child olarak delphi'de açma ve delphi'nin her zaman üstte kodlarının birleşimi ile oluşmaktadır. Bu iki parça kodda alıntıdır. Excel'e manuel olarak aktarmam gereken veriler için çok yardımcı oldu. Belki birilerinin işine yarar.

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;

[Shou]

Çok teşekkür ederiz =)