procedure TForm1.Timer1Timer(Sender: TObject);
var
MuWindow: HWND;
WindowText: array[0..255] of char;
ClassText: array[0..255] of char;
begin
MuWindow := GetForegroundWindow;
GetClassName(MuWindow, ClassText, 255);
if ClassText = 'MU' then
begin
Windows.SetParent(MuWindow, Handle);
Timer1.Enabled := False;
end;
end;