http://wiki.techtic.pro/ 2026-05-09T16:33:23+0200 http://wiki.techtic.pro/ http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.ico text/html 2023-04-11T16:42:42+0200 Anonymous (anonymous@undisclosed.example.com) http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:disks:deviceiocontrol&rev=1681224162&do=diff DeviceIOControl en Pascal Commandes SMART_SEND_DRIVE_COMMAND CreateFile(PChar(AFile), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0) Types utiles TSendCmdInParams _SENDCMDINPARAMS = packed record cBufferSize: DWORD; // Buffer size in bytes irDriveRegs: IDEREGS; // Structure with drive register values. bDriveNumber: BYTE; // Physical drive number to send // command to (0,1,2,3). bReser… text/html 2023-05-23T14:58:16+0200 Anonymous (anonymous@undisclosed.example.com) http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:disks:disk_uniq_id&rev=1684846696&do=diff Identifier de manière unique un disque dur Préambule Le but est d'identifié de manière unique un disque dur physique, quelque soit son contenu ou formatage et quelque soit la machine sur laquelle il est connecté. J'entends par disque dur, un DiskDrive, un disque SATA, SSD une clé USB. text/html 2021-04-09T16:30:53+0200 Anonymous (anonymous@undisclosed.example.com) http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:disks:disks&rev=1617978653&do=diff Travailler avec les Disques A voir... * DeviceIOControl en Pascal * <https://stackoverflow.com/questions/24295534/detecting-bad-sectors-using-delphi-or-freepascal/24313825#24313825> * <https://stackoverflow.com/questions/8506767/how-do-i-use-createfile-to-access-a-physical-disk> * <https://forum.lazarus.freepascal.org/index.php?topic=12230.0> * <https://stackoverflow.com/questions/8519658/how-to-call-a-list-of-the-physically-attached-hard-disks-using-free-pascal-or> * RawDiskAccess… text/html 2021-04-26T19:18:40+0200 Anonymous (anonymous@undisclosed.example.com) http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:disks:diskstream&rev=1619457520&do=diff DiskStream PB: Ouvrir un disque dans un TStream ??? Apparement le code ci dessous ne fonctionne pas, car il renvois DiskStream.size = -1 DiskStream := TFileStream.Create('\\.\PhysicalDrive0', fmOpenRead); Infos sur les disques * Les Disques durs Liens a voir text/html 2021-04-26T19:19:02+0200 Anonymous (anonymous@undisclosed.example.com) http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:disks:recupdisks&rev=1619457542&do=diff Récupérer la liste des disques sur le système * récuperer via WMI et SetupAPI : <https://stackoverflow.com/questions/8519658/how-to-call-a-list-of-the-physically-attached-hard-disks-using-free-pascal-or> * <https://stackoverflow.com/questions/327718/how-to-list-physical-disks>