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

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

كود:

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)