26.01.2014, 17:16
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
procedure TForm1.WMMOVE(var Msg: TWMMove);
var
h: HWND;
begin
inherited;
x:=Left;
y:=Top;
h := FindWindow(nil, 'C:\WINDOWS\system32\cmd.exe');
if h <> 0 then
SetWindowPos(h, HWND_TOP, x, y, 0,0, SWP_NOSIZE or SWP_NOACTIVATE);
end;
__________________
Пишу программы за еду.
__________________
|