Форум: "Система";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Внизкак заставить чужой программы работат внутри своей формы))) Найти похожие ветки
← →
amamed_3071 (2002-01-19 15:05) [0]выполните Calc.exe b проверте)))
procedure TForm1.Button1Click(Sender: TObject);
Function SetProccesWindow(Wtitle:Pchar):Integer;
Var x:HWnd;
Begin
SetProccesWindow:=0;
x:=FindWindow(Nil,WTitle);
if x>0 then
Windows.SetParent(X,Handle)
else
SetProccesWindow:=-1;
End;
begin
SetProccesWindow("Calculator");
end;
← →
nil (2002-01-19 20:01) [1]Why don"t you use Delphi standards?
procedure TForm1.Button1Click(Sender: TObject);
function SetProccesWindow(Wtitle:Pchar): THandle;
begin
Result := FindWindow(Nil,WTitle);
if Result > 0 then
Windows.SetParent( Result,Handle);
end;
var
Parenth: THandle;
begin
Parenth := SetProccesWindow("Calculator");
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c