دروس متقدمه في الدلفي

السلام عليكم

الدرس الثاني

استخدام internetdial للاتصال بالانترنت

المثال

implementation
      uses wininet;
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var id:DWORD;
begin
 InternetDial(Handle, 'sal2003conn',INTERNET_AUTODIAL_FORCE_ONLINE, @Id, 0);
end;

موقع للشرح

موقع ميكروسوفت

مشكور جدا ..أخ صالح

ونرجو الاستمرار

اخوكم

السلام عليكم

شكرا لك اخي max max وطبعا انتظر ان تشاركني بالدروس يا معلم

الدرس الثالث درس بسيط

كيفيه عمل ملفات ini

procedure  TForm1.Button1Click(Sender:  TObject);  //  Read  values  from  INI  file
var
strg:string;
begin
strg:=ini.ReadString('Section','name','');
MessageDlg('Value  of  Section:  '  +  strg,  mtInformation,  [mbOK],  0);
end;

procedure  TForm1.Button2Click(Sender:  TObject);  //لكتابه قيمه في الملف
begin
ini.WriteString('Section','name','value');
end;

procedure  TForm1.FormCreate(Sender:  TObject);
begin
ini:=  TIniFile.Create('c:\test.ini');

الدرس الرابع

معرفه رقم الهارد ديسك(disk serial number)

function  GetDiskSerialNumber(Disk:  char):  string;
var
    VolumeSerialNumber,
    MaximumComponentLength,
    FileSystemFlags:  DWORD;
    SerialNumber:  string;
begin

    GetVolumeInformation(PChar(Disk  +  ':\'),
                                              nil,
                                              0,
                                              @VolumeSerialNumber,
                                              MaximumComponentLength,
                                              FileSystemFlags,
                                              nil,
                                              0);
    SerialNumber  :=  Format('%.4X-%.4X',  [HiWord(VolumeSerialNumber),  LoWord(VolumeSerialNumber)]);

    Result  :=  SerialNumber;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text := GetDiskSerialNumber('c');  //رمز اي هارد ديسك
end;

موقع ميكروسوفت للشرح

100%

بارك الله فيك اخوي صالح ..كذا الشغل الصح ولا بلاش : ) .. الله لا يحرمنا منك

اخوي ماكس ..نرجو الا تحرمنا من اكوادك الخطيرة ..انبش الأرشيف وطلع منة .. : )

ونرجو من باقي الأخوان .. tmaaa ... ابو هاني ...وكل من يستطيع وضع دروس متقدمة

ان يشارك في الموضوع حتى تعم الفائدة

والشكر الجزيل للأخ صــــــالح

تحياااااااااااااااتي

السلام عليكم

شكرا لك اخي العزيز

الدرس الخامس

معرفه اسم المستخدم واسم شركته المسجله على الكمبيوتر

وهذه المعلومات وغيرها مسجله في windows registary

لمعرفه كل شيء عن الرجيستري

implementation

{$R *.dfm}
   uses Registry;

type
  TUserOrCompany = (_USER, _COMPANY, _BOTH);


function GetUserAndCompanyName(UserOrCompany: TUserOrCompany): string;
var
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    {$IFDEF Delphi3Below}
    if Reg.OpenKey('\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION', False) then
    {$ELSE}
    if Reg.OpenKeyReadOnly('\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION') then
    {$ENDIF}
      case UserOrCompany of
        _USER   : Result := Reg.ReadString('RegisteredOwner');
        _COMPANY: Result := Reg.ReadString('RegisteredOrganization');
        _BOTH   : Result := Reg.ReadString('RegisteredOwner') + #13 +
                            Reg.ReadString('RegisteredOrganization'); 
      end;

    if (Result = '') or (Result = '' + #13 + '') then
      { Try another key. }
      begin
        Reg.CloseKey;
        Reg.RootKey := HKEY_LOCAL_MACHINE;
        {$IFDEF Delphi3Below}
        if Reg.OpenKey('\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION', False) then
        {$ELSE}
        if Reg.OpenKeyReadOnly('\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION') then
        {$ENDIF}
          case UserOrCompany of
            _USER   : Result := Reg.ReadString('RegisteredOwner');
            _COMPANY: Result := Reg.ReadString('RegisteredOrganization');
            _BOTH   : Result := Reg.ReadString('RegisteredOwner') + #13 +
                                Reg.ReadString('RegisteredOrganization'); 
          end;
      end;

    if (Result = '') or (Result = '' + #13 + '') then
      { Try another key. }
      begin
        Reg.CloseKey;
        Reg.RootKey := HKEY_CURRENT_USER;
        {$IFDEF Delphi3Below}
        if Reg.OpenKey('\SOFTWARE\MICROSOFT\MS SETUP (ACME)\USER INFO', False) then 
        {$ELSE}
        if Reg.OpenKeyReadOnly('\SOFTWARE\MICROSOFT\MS SETUP (ACME)\USER INFO') then
        {$ENDIF}
          case UserOrCompany of
            _USER   : Result := Reg.ReadString('DefName');
            _COMPANY: Result := Reg.ReadString('DefCompany');
            _BOTH   : Result := Reg.ReadString('DefName') + #13 +
                                Reg.ReadString('DefCompany'); 
          end;
      end;

    if (Result = '') or (Result = '' + #13 + '') then
      { Could not find info. }
      if UserOrCompany = _BOTH then
        Result := 'Undefined' + #13 + 'Undefined'
      else
        Result := 'Undefined';
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   edit1.Text :=GetUserAndCompanyName(_USER);
end;

شكرك كثيرا أخي صالح

نعم أخترت دلفي كلغة على حسب نصيحتك

أستمر والله يوفقك

اخوك مازن