15-06-2012, 11:51 AM
السلام عليكم
هذه محاولة اتمنى تنال اعجابكم
يدعم جميع انواع الونداوز على ما اضن
![[صورة: 20120615114552.png]](http://img225.imageshack.us/img225/8063/20120615114552.png)
هذه محاولة اتمنى تنال اعجابكم
يدعم جميع انواع الونداوز على ما اضن
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ExtCtrls, StdCtrls,ShellAPI;
type
TForm1 = class(TForm)
tmr1: TTimer;
mmo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function _siz:Integer;
var
Data: TAppBarData;
begin
Result:=31;
Data.hWnd := FindWindow('Shell_TrayWnd', nil);
Data.cbSize := SizeOf(TAppBarData);
if Data.hWnd <> 0 then
if SHAppBarMessage(ABM_GETTASKBARPOS, Data) = 1 then
Result:=Data.rc.Bottom - Data.rc.Top;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
top:=Screen.Height;
Left:=Screen.Width-form1.Width ;
tmr1.Enabled:=True;
mmo1.Visible:=False;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
var i:Integer;
begin
Form1.Height:=0 ;
i:=0;
repeat
inc(i);
top:=Screen.Height-Form1.Height-_siz;
Form1.Height:=Form1.Height+1 ;
if i=235 then
mmo1.Visible:=True;
until i=240;
//
tmr1.Enabled:=False;
end;
end.