دخول

nabilkeb · 09-09-2009, 08:10 PM

1- عرض أو استخراج اسم قارئ الأقراص المضغوطة :

كود :
function GetFirstCdRomDrive: string;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: pchar;
begin
  Result := '';
  r := GetLogicalDriveStrings(sizeof(Drives), Drives);
  if r = 0 then exit;
  if r > sizeof(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;  
  while pDrive^ <> #0 do begin
    if GetDriveType(pDrive) = DRIVE_CDROM then begin
      Result := pDrive;
      exit;
    end;
    inc(pDrive, 4); 
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=(GetFirstCdRomDrive);
end;

2- إضافة DateTimePicker إلى DBGrid ____ مرفق

3- تغيير شكل الأزرار Btn1: TBitBtn - Btn2: TBitBtn

كود :
Function Shape_Bounds(Btn: TButton; Polygon_Elliptic: Byte): Integer;
var
  P: array[1..4]of TPoint;
begin
  with Btn do
  begin
    case Polygon_Elliptic of
      0:
         begin
           P[1].X := Round(ClientWidth / 2);
           P[1].Y := 0;

           P[2].X := 0;
           P[2].Y := Round(ClientHeight / 2);

           P[3].X := Round(ClientWidth / 2);
           P[3].Y := ClientHeight;

           P[4].X := ClientWidth;
           P[4].Y := Round(ClientHeight / 2);

           Result := CreatePolygonRgn(P, 4, POLYFILL_LAST);
         end;
      1: Result := CreateEllipticRgn(0, 0, Width, Height);
    end;
    SetWindowRgn(Handle, Result, True);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Shape_Bounds(btn1, 0);  
  Shape_Bounds(btn2, 1); 
end;

4- فورم هزاز مثل الياهوووو (Buzzzzz)

كود :
var
  Form1: TForm1;

implementation
procedure hzaz (no:integer);
var
 i,ix:Integer;
 begin
 ix:=Form1.Left;
   i:=0;
   repeat
     if Form1.Left=ix-4 then begin
         i:=i+1;
         repeat
           Form1.Left:=Form1.Left+1;
           Form1.Top:=Form1.Top-1;
         until Form1.Left=ix
       end
     else
       repeat
         Form1.Left:=Form1.Left-1;
         Form1.Top:=Form1.Top+1;
       until Form1.Left=ix-4;
   until i=no;
 end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 hzaz(20);
end;

5- اخفاء البرنامج عن مدير المهام Gestionaire des taches و شريط المهام Bare des taches

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_SHOW);
end;

6- طريقة جمبلة في اخفاء برنامج عن مدير المهام Gestionaire des taches(Processus)p
______ مرفق

7- تغيير اسم الزر ابدأ ___ مرفق

8- تغيير تاريخ و وقت النظام ___ مرفق

9- تغيير اللغة _____ مرفق

..../ ...... يتبع ..../.....

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة