|
Платные хостинги
Раскрутка сайта
Книги по программированию
Помогите
- короче мне надо сделать форму которая запускалася поверх игр я сделал чтобы она вставала поверх всех окон но при появление формы кидает из игры помогите пожалуста ! Мне прилали ответ на delphi.mastak.ru/chat/ вот но я немогу его релиозовать Приветствую! //LogoShow - сколько мс. показывать LogoStart:=GetTickCount; LogoBitmap:=TBitmap.Create; //LogoBitmap - тут то, что надо вывести! ScreenDC := GetDC(0); {получить контекст экрана} repeat BitBlt(ScreenDC, (Screen.Width-LogoBitmap.Width)div 2, (Screen.Height-LogoBitmap.Height)div 2, LogoBitmap.Width, LogoBitmap.Height, LogoBitmap.canvas.Handle, 0, 0, SRCCOPY);{нарисовать} until GetTickCount-LogoStart >= LogoShow; ReleaseDC(0,ScreenDC); {освободить контекст} LogoBitmap.Free; Удачи! VEG, автор лучшего в интернете "Счастливчика" (О, счастливчик! Millennium) Помогите пожалуста
- Положи здесь полный юнит с этим примером....набирать лень(мы вообще программисты люди ленивые....;-)))
- Идея отрывка ясна, как день. Но можете не париться, так не поможет, потому что игра работает через Direct Draw.
- DRKB
- RTFM
- А если программно нажать клавишу Windows (с флагом которая)? обычно из любой игрушки выкидывает. :-)
- иконка в системный трейuses ShellAPI;... private { Private declarations } procedure MTIcon(var a: TMessage); message MyTrayIcon;...var NID: TNotifyIconData;procedure TForm2.MTIcon(var a: TMessage);var P:TPoint;begincase a.LParam of WM_LBUTTONDBLCLK : begin Show; end; WM_RBUTTONDOWN : begin GetCursorPos(P); PopupMenu1.Popup(P.X,P.Y); end; end;end;// процесс создания формыprocedure TForm2.FormCreate(Sender: TObject);var D,DD:TDate; i:integer;begin// невидимая формаApplication.ShowMainForm:=false;// параметры иконкиwith NID do begin cbSize:= SizeOf(TNotifyIconData); Wnd:=Handle; uID:=1; uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallbackMessage:=MyTrayIcon; hIcon:=Application.Icon.Handle; szTip:='Дайте задание!!!'; end;// добавляем иконкуShell_NotifyIcon(NIM_ADD,@NID);end;
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
