كيفية وضع نافذة بجانب الساعة في شريط المهام

كود :

procedure TNxAlertWindow.DoPopupTimer(Sender: TObject);
var
	Delta, h, Y, Sound: Integer;
  TaskbarRect: TRect;
  TaskbarPosition: Integer;
begin
  Delta := 0;
  TaskbarPosition := FindTaskbar(TaskbarRect);
  case TaskbarPosition of
    ABE_BOTTOM, ABE_TOP: Delta := TaskbarRect.Bottom - TaskbarRect.Top;
    ABE_LEFT, ABE_RIGHT: Delta := TaskbarRect.Right - TaskbarRect.Left;
  end;

  case FAlertDirection of
    adUp:
      if Height + 5 >= FRealHeight then { full open }
      begin
        case TaskbarPosition of
          ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
          begin
            SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft,
              (Screen.Height - delta) - FRealHeight - FIndent, Width, FRealHeight, SWP_SHOWWINDOW);
          end;
          ABE_TOP:
          begin
            SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft,
              TaskbarRect.Bottom + FIndent, Width, FRealHeight, SWP_SHOWWINDOW);
          end;
        end;

        FPopupTimer.Enabled := False;
        FDelayTimer.Enabled := FCloseDelay <> -1;
        FFullOpen := True;
        DoPopup;
        if FPopupSound <> msNone then { play sound }
        begin
          Sound := 0;
          case FPopupSound of
            msIconAsterisk: Sound := MB_ICONASTERISK;
            msIconExclamation: Sound := MB_ICONEXCLAMATION;
            msIconHand: Sound := MB_ICONHAND;
            msIconQuestion: Sound := MB_ICONQUESTION;
            msOk: Sound := MB_OK;
          end;
          MessageBeep(Sound);
        end;
      end else
      begin { in progress }
        case TaskbarPosition of
          ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
          begin
            h := Height + 5;
            Y := TaskbarRect.Top - h - FIndent;
          end;
          else {ABE_TOP}
          begin
            h := Height + 5;
            Y := TaskbarRect.Bottom + FIndent;
          end
        end;
        SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft, Y,
          Width, h, SWP_SHOWWINDOW);
      end;
    adDown:
      if Height <= 0 then
      begin
        DoClosed;
      end else
      begin
        case TaskbarPosition of
          ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
          begin
            h := Height - 5;
            Y := TaskbarRect.Top - h - FIndent;
          end;
          else {ABE_TOP}
          begin
            h := Height - 5;
            Y := TaskbarRect.Bottom + FIndent;
          end;
        end;
        SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft, Y,
          Width, h, SWP_SHOWWINDOW);
      end;
  end; { case }
end;

كود :

http://www.youtube.com/watch?v=FNWcy8S2k4Y

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  Ident: Integer;
  MyLang: PChar;
const
  Size: Integer = 250;  
begin
  GetMem(MyLang, Size);
  Ident:=GetSystemDefaultLangID;
  VerLanguageName(Ident, MyLang, Size);
  Label1.Caption:=StrPas(MyLang);
  FreeMem(MyLang);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If label1.Caption='Français (France)' then
showmessage('France')
//change la position de form
else if Label1.Caption='Arabic (Algérie)' then
ShowMessage('Algérie')
//change la position de la form
else
ShowMessage('Anglais');
end;

كود :

//لقراءة ارتفاع شريط المهام function TaskBarHeight: integer;var  hTB: HWND; // taskbar handle  TBRect: TRect; // taskbar rectanglebegin  hTB:= FindWindow('Shell_TrayWnd', '');  if hTB = 0 then    Result := 0  else begin    GetWindowRect(hTB, TBRect);    Result := TBRect.Bottom - TBRect.Top;  end;end;procedure TForm1.FormCreate(Sender: TObject);beginForm1.Left:=Screen.Width-Form1.Width;Form1.Top:=Screen.Height-TaskBarHeight-Form1.Height;end;//هذا للنسخ الأجنبية (فرنسي إنجليزي ) والأخر للعربية procedure TForm1.FormCreate(Sender: TObject);beginForm1.Left:=0;Form1.Top:=Screen.Height-TaskBarHeight-Form1.Height;end;