Delphi Steam

[DomiNick]

Вот пример, игра вобще не как не связаная со стимом. Добавил в стиме игру не стима, и дальше смотрите скрины:

Не знаю что за "стим" (хоть бы ссылку дали), но на скринах скорее всего обычные дочерние окна...

Пример:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.BorderStyle:=bsNone;
End;

Procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var Point: TPoint;
Begin
Windows.GetCursorPos(Point);
Windows.SetParent(Form1.Handle, Windows.WindowFromPoint(Point));
Windows.SetWindowPos(Form1.Handle, 0, 0, 0, 200, 200, SWP_SHOWWINDOW);
End;

Нажимаем мышкой на форму и держим... Переводим курсор на какое-нибудь окно и отпускаем кнопку...

[mihali4]

Сообщение от DomiNick

Не знаю что за "стим" (хоть бы ссылку дали), но на скринах скорее всего обычные дочерние окна...

Я тоже не знаю.
Похоже, "игруны" нас доставать начинают со своими мелкими "промблемами".
Посмотрю, да и грохну эту тему... Или отдам на растерзание в раздел игр...