запуск программы, окно было возле трея

[beegl]

Доброго времени суток! Подскажи, как с помощью этой фкнкции:

var
  HTaskbar, HTrayWnd: HWND;
begin
  HTaskbar := FindWindow('Shell_TrayWnd', nil);
  if HTaskbar <> 0 then
  begin
    HTrayWnd := FindWindowEx(HTaskbar, 0, 'TrayNotifyWnd', nil);
    if HTrayWnd <> 0 then
SetWindowPos(GetActiveWindow,?,?,?,?,?);

реализовать, чтоб при запуске программы окно было возле трея, как трейконтрол AIMP3 при первом запуске, .... или как правильно реализовать?

[DelhiProgramer]

Типа в углу экрана или в самом трее?

[beegl]

в углу экрана:

[DelhiProgramer]

var
 HTaskbar, HTrayWnd: HWND;
 pzrect: TRect;
 hh: integer;
begin
hh:=FindWindow('Shell_TrayWnd',''); //ищем панель задач чтобы получить ширину
GetWindowRect(hh,pzrect);
  HTaskbar := FindWindow('Shell_TrayWnd', nil);  //Это твой код
  if HTaskbar <> 0 then
  begin
    HTrayWnd := FindWindowEx(HTaskbar, 0, 'TrayNotifyWnd', nil);
    if HTrayWnd <> 0 then
SetWindowPos(GetActiveWindow,HWND_BOTTOM,Screen.Width-200,Screen.Height-200-(pzrect.Bottom-pzrect.Top),200,200,SWP_SHOWWINDOW);//Здесь за размеры формы взял 200х200, отнял 200 от ширины экрана, и 200 + ширина панели задач от высоты экрана
end;
end;

[dolphin705]

Можно так

procedure TForm1.FormCreate(Sender: TObject);
var
AppBarData : TAppBarData;
R : TRect;
begin
AppBarData.hWnd := FindWindow('Shell_TrayWnd', nil);
AppBarData.cbSize := SizeOf(AppBarData);
GetWindowRect(AppBarData.hWnd, R);
Form1.Left := Screen.Width-Form1.Width;
Form1.Top := R.Top-Form1.Height;
end;

[beegl]

dolphin705, DelhiProgramer спасибо, вот что получилось)

[beegl]

а как такое реализовать?

вот пример, ....... а как укротить код, или есть такой компонент?

[DelhiProgramer]

Написал криво и не помню как определить что мышка вне окна
var
Form1: TForm1;
b: boolean;
l: TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if b=true then timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Left<=screen.Width-form1.Width then exit;
form1.Left:=form1.Left-10;
if form1.Left=screen.Width-form1.Width then begin timer1.Enabled:=false; b:=false; end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
getcursorpos(l);
if {определить что мышка не на форме} then begin timer1.Enabled:=false; b:=true; end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (b=true) and (form1.Left<screen.width-80) then form1.Left:=form1.Left+10;
end;

[beegl]

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

Написал криво и не помню как определить что мышка вне окна
var
  Form1: TForm1;
  b: boolean;
  l: TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if b=true then timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Left<=screen.Width-form1.Width then exit;
form1.Left:=form1.Left-10;
if form1.Left=screen.Width-form1.Width then begin timer1.Enabled:=false; b:=false; end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
getcursorpos(l);
if {определить что мышка не на форме} then begin timer1.Enabled:=false; b:=true; end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (b=true) and (form1.Left<screen.width-80) then form1.Left:=form1.Left+10;
end;

хороший пример, есть ещё варианты?

[Человек_Борща]

а ваши варианты где? Вы только чужой код берете.
Далее с библой BilleniumEffects все получится.