короче мне надо сделать форму которая запускалася поверх игр я сделал чтобы она вставала поверх всех окон но при появление формы кидает из игры помогите пожалуста !

Мне прилали ответ на 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

Цитата(Guest @ 17.12.2004, 11:32)

Помогите пожалуйста! Как загнать иконку проекта в трэй(справа внизу экрана, где время)?

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;
begin
case 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;