المكتبة الاقتصادية بحوث ومذكرات تخرج

مرحبا بك اخي الزائر الكريم في مكتبتك ويسعدنا انظمامك الينا
المكتبة الاقتصادية بحوث ومذكرات تخرج

بحوث اقتصادية ومذكرات تخرج


    مجموعة من أكواد رائعة لدلفي

    شاطر
    avatar
    BilalDZ
    Admin

    ذكر عدد الرسائل : 484
    العمر : 28
    أعلام الدول :
    الاوسمة :
    السٌّمعَة : 104
    تاريخ التسجيل : 07/12/2008

    مجموعة من أكواد رائعة لدلفي

    مُساهمة من طرف BilalDZ في الجمعة أبريل 16, 2010 11:16 pm

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

    كود:

    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- تغيير اللغة _____ مرفق


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















    الملفات المرفقة للتحميل يجب الاشتراك في موقع
    http://www.delphi4arab.com


    Ajoute_DatetimePicker_DBGrid&Mouse.rar‏ (483.6 كيلوبايت, المشاهدات 397)
    ClassicMethod_CacherProcessus.rar‏ (164.5 كيلوبايت, المشاهدات 262)
    Chang_Name_B_Star.rar‏ (163.9 كيلوبايت, المشاهدات 264)
    ChangerDateTemp.rar‏ (163.8 كيلوبايت, المشاهدات 235)
    ChangerLangue.rar‏ (163.4 كيلوبايت, المشاهدات 281)



























    _________________

    create logo

      الوقت/التاريخ الآن هو الجمعة نوفمبر 24, 2017 2:05 pm