• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

khalmoh1971

اعضاء
  • عدد المشاركات

    50
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن khalmoh1971

  • الرتبة
    عضو
  • تاريخ الميلاد 10/13/1971

طرق الإتصال

  • MSN khalmoh1971@hotmail.com
  • Yahoo khalmoh1971@yahoo.com
  • Facebook khalmoh1971@hotmail.com

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر
  1. شكرا جدا جدا
  2. //هذا هو رقم التسجيل للبرنامج   T := (M - 12345) / 5; end;
  3. procedure ConverteSerNemb; var N, I: integer; B: char; S, R: string; begin   s := trim(AnsiUpperCase(Form1.Edit8.Text));   N := length(s);   R := '';   for I := 1 to 15 do     begin       b := S;       case b of         'A': R := r + '1';         'B': R := r + '2';         'C': R := r + '3';         'D': R := r + '4';         'E': R := r + '5';         'F': R := r + '6';         'G': R := r + '7';         'H': R := r + '8';         'I': R := r + '9';         'J': R := r + '1';         'K': R := r + '2';         'L': R := r + '3';           'M': R := r + '4';         'N': R := r + '5';         'O': R := r + '6';         'P': R := r + '7';         'Q': R := r + '8';         'R': R := r + '9';         'S': R := r + '0';         'T': R := r + '1';         'U': R := r + '2';         'V': R := r + '3';         'W': R := r + '4';         'X': R := r + '5';          'Y': R := r + '6';         'Z': R := r + '7';      //   '-': R := r + '8'         else R := R + S;       end;     end; // تعليمة تشفير رقم الهارديسك // هذا هو رقم المنتوج   M := StrToFloat® * 5 + 12345; // تعليمة استرجاع رقم الهاردي //هذا هو رقم التسجيل للبرنامج  
  4. ضع حق مشفر داخل قاعدة البيانات هذا الحقل تشفير خاص للتاريخ
  5. الرقم التسلسلي للهارد ديسك

    ممكن تغير الرقم عن طريق برنامج اسمة PBDownForce
  6. برنامج عرض كاميرا ويب

    تفضل اخى العزيز ارفقت ملف لوحدة تعمل على الدولفن و delphitwain.rar
  7. الرقم التسلسلي للهارد ديسك

    دة الرقم الفيزيائى   function GetIdeSerialNumber0 ():string; const IDENTIFY_BUFFER_SIZE = 512; type   TIDERegs = packed record     bFeaturesReg     : BYTE; // Used for specifying SMART "commands".     bSectorCountReg  : BYTE; // IDE sector count register     bSectorNumberReg : BYTE; // IDE sector number register     bCylLowReg       : BYTE; // IDE low order cylinder value     bCylHighReg      : BYTE; // IDE high order cylinder value     bDriveHeadReg    : BYTE; // IDE drive/head register     bCommandReg      : BYTE; // Actual IDE command.     bReserved        : BYTE; // reserved for future use.  Must be zero.   end;   TSendCmdInParams = packed record     cBufferSize  : DWORD;     irDriveRegs  : TIDERegs;     bDriveNumber : BYTE;     bReserved    : Array[0..2] of Byte;     dwReserved   : Array[0..3] of DWORD;     bBuffer      : Array[0..0] of Byte;  // Input buffer.   end;   TIdSector = packed record     wGenConfig                 : Word;     wNumCyls                   : Word;     wReserved                  : Word;     wNumHeads                  : Word;     wBytesPerTrack             : Word;     wBytesPerSector            : Word;     wSectorsPerTrack           : Word;     wVendorUnique              : Array[0..2] of Word;     sSerialNumber              : Array[0..19] of CHAR;     wBufferType                : Word;     wBufferSize                : Word;     wECCSize                   : Word;     sFirmwareRev               : Array[0..7] of Char;     sModelNumber               : Array[0..39] of Char;     wMoreVendorUnique          : Word;     wDoubleWordIO              : Word;     wCapabilities              : Word;     wReserved1                 : Word;     wPIOTiming                 : Word;     wDMATiming                 : Word;     wBS                        : Word;     wNumCurrentCyls            : Word;     wNumCurrentHeads           : Word;     wNumCurrentSectorsPerTrack : Word;     ulCurrentSectorCapacity    : DWORD;     wMultSectorStuff           : Word;     ulTotalAddressableSectors  : DWORD;     wSingleWordDMA             : Word;     wMultiWordDMA              : Word;     bReserved                  : Array[0..127] of BYTE;   end;   PIdSector = ^TIdSector;   TDriverStatus = packed record     bDriverError : Byte;     bIDEStatus   : Byte;     bReserved    : Array[0..1] of Byte;     dwReserved   : Array[0..1] of DWORD;   end;   TSendCmdOutParams = packed record     cBufferSize  : DWORD;     DriverStatus : TDriverStatus;     bBuffer      : Array[0..0] of BYTE;   end;   var     hDevice : THandle;     cbBytesReturned : DWORD;     ptr : PChar;     SCIP : TSendCmdInParams;     aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;     IdOutCmd  : TSendCmdOutParams absolute aIdOutCmd;   procedure ChangeByteOrder( var Data; Size : Integer );   var ptr : PChar;       i : Integer;       c : Char;    begin     ptr := @Data;     for i := 0 to (Size shr 1)-1 do     begin       c := ptr^;       ptr^ := (ptr+1)^;       (ptr+1)^ := c;       Inc(ptr,2);     end;   end; begin   Result := ''; // return empty string on error   if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000 begin //???? ???? PhysicalDrive0 ??? PhysicalDrive1 ?? PhysicalDrive2    hDevice := CreateFile( '\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,   FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );   end   else // Version Windows 95 OSR2, Windows 98   hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );   if hDevice=INVALID_HANDLE_VALUE then Exit;   try     FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0);     FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0);     cbBytesReturned := 0;     with SCIP do     begin     cBufferSize  := IDENTIFY_BUFFER_SIZE;   bDriveNumber := 0;    with irDriveRegs do    begin    bSectorCountReg  := 1;    bSectorNumberReg := 1;    bDriveHeadReg    := $A0;    bCommandReg      := $EC;     end;     end;     if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1,       @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit;   finally     CloseHandle(hDevice);   end;   with PIdSector(@IdOutCmd.bBuffer)^ do   begin     ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) );     (PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0;     Result := PChar(@sSerialNumber);   end; end;
  8. الرقم التسلسلي للهارد ديسك

    دة بالنسبة لمشغل مثل سى او دى او .....    Function InternalGetHardwareID2: String;var  pdw: pDWord;  mc, fl: dword;  SerialNum:DWord; Begin  Result := '';  New( pdw );  GetVolumeInformation( PChar( 'd:\' ), Nil, 0, pdw, mc, fl, Nil, 0 );  SerialNum := pdw^;  Result:= IntToStr(Serialnum); End;    و فى  Label1.Caption:= (InternalGetHardwareID2);
  9. faceRecognition

    دة كود لزيادة التاريخ الى الغد var   myDate : TDateTime; begin myDate:=(DateTimePicker1.Date); Edit1.Text :=DateToStr(myDate); myDate := IncDay(myDate, 1);  DateTimePicker2.Date:=myDate; //myDate:= EndOfAMonth((myDate));     // مطلوب تحويل التاريخ Edit3.Text :=DateToStr(myDate); end;
  10. حساب عمود في Dbgrid و إظهار النتيجة في Edit

    تفضل اخى الفاضل   procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet); var   bm: TBookmark;   Total: real; begin   bm := IBDataSet1.GetBookmark;   IBDataSet1.DisableControls;   try     Total := 0.0;     IBDataSet1.First;     while not IBDataSet1.Eof do     begin       Total := Total + IBDataSet1COST.AsCurrency;       IBDataSet1.Next;     end;   //   Total:= format     Edit1.Text := (FormatFloat('0.000  جنية', Total))   ;   finally     IBDataSet1.GotoBookmark(bm);     IBDataSet1.EnableControls;   end;
  11. Bar Code

    البار كود عبارة عن فنط اى نوع من الخطوط وليس اداء
  12. ضغط قاعدة البيانات

    يوجد ادوات للضعط مثل zip , rar