como modificar este codigo

[[kurono]]

hola amigos del foro me gustaria modificar este codigo q le muestro pues se trata de un codigo que hiso nuestro amigo hackall en donde el muestra como identificar sectores dañado de un disco pues bien el codigo funciona de maravilla pero el incombeniente es que la unidad a comprobar estaria por defecto al ejecutarse y me gustaria poder elegir una unidad para comprobar pues ni mas ni menos le muestro el codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
var
 hDevice, Dummy, Sectors, Sector: Cardinal;
 Buffer: array [0..$FFFF] of Byte;
 Geometry: record
  Cylinders: Int64;
  MediaType,
  TracksPerCylinder,
  SectorsPerTrack,
  BytesPerSector: Cardinal;
 end;
 
begin
 SetErrorMode(SEM_FAILCRITICALERRORS);
 hDevice := CreateFile('\\.\g:', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
 if hDevice <> INVALID_HANDLE_VALUE then
  begin
   DeviceIoControl(hDevice, $70000{IOCTL_DISK_GET_DRIVE_GEOMETRY}, nil, 0, @Geometry, SizeOf(Geometry), Dummy, nil);
   Sectors := Geometry.SectorsPerTrack * Geometry.TracksPerCylinder * Geometry.Cylinders;
   for Sector := 0 to Sectors - 1 do
    begin
     Label1.Caption := 'Leyendo el sector #' + IntToStr(Sector) + '...';
     Application.ProcessMessages; // Use a thread !!!
     if not ReadFile(hDevice, Buffer, Geometry.BytesPerSector, Dummy, nil) then
      ShowMessage('El sector #' + IntToStr(Sector) + ' esta dañado !');
    end;
   CloseHandle(hDevice);
  end;
end;
end.

[[coso]]

Bueno, parece ser que lo unico que deberias hacer es cambiar la g: por la unidad en cuestion no? cambia la str a la que quieras y ya esta

[[kurono]]

me disculpo si no me explique bien lo que quiero hacer es poder cambiar la unidad a comprobar en modo de ejecucion

[[egostar]]

Empezado por kurono

me disculpo si no me explique bien lo que quiero hacer es poder cambiar la unidad a comprobar en modo de ejecucion

Hola kurono

Pues es exactamente lo que te comento coso, debes de reemplazar la unidad con una variable, no es mal rollo pero en un poco mas de año que llevas inscrito en el club ya deberias de tener claro como incluir variables en una cadena.

Salud OS

[[kurono]]

ok es verdad disculpa mi inorancia eso mismo hare luego les cuento

[[coso]]

disculpas aceptadas

[cmm07]

si quieres cambiarlo en tiempo de ejecucion podria ser así una funcion:

Código Delphi [-]
function verifica(Unidad: Char): PAnsiChar;
var
 hDevice, Dummy, Sectors, Sector: Cardinal;
 Buffer: array [0..$FFFF] of Byte;
 Geometry: record
  Cylinders: Int64;
  MediaType,
  TracksPerCylinder,
  SectorsPerTrack,
  BytesPerSector: Cardinal;
 end;

begin
 SetErrorMode(SEM_FAILCRITICALERRORS);
 hDevice := CreateFile(PChar('\\.\'+Unidad+':'), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
 if hDevice <> INVALID_HANDLE_VALUE then
  begin
   DeviceIoControl(hDevice, $70000{IOCTL_DISK_GET_DRIVE_GEOMETRY}, nil, 0, @Geometry, SizeOf(Geometry), Dummy, nil);
   Sectors := Geometry.SectorsPerTrack * Geometry.TracksPerCylinder * Geometry.Cylinders;
   for Sector := 0 to Sectors - 1 do
    begin
     Form1.Label1.Caption := 'Leyendo el sector #' + IntToStr(Sector) + '...';
     Application.ProcessMessages; // Use a thread !!!
     if not ReadFile(hDevice, Buffer, Geometry.BytesPerSector, Dummy, nil) then
      ShowMessage('El sector #' + IntToStr(Sector) + ' esta dañado !');
    end;
   CloseHandle(hDevice);
  end;
end;

Para usarlo:

Código Delphi [-]
Verifica('C');

bueno espero poder ayudar, este codigo esta creado sin comprobarse...



54LU2

[[kurono]]

Gracia amigo cmm07 por tu ayuda pues el codigo ya me funciona aunque me daba error al principio pero ya lo resolvi pues en la linea de la funcion en ves de declararlo como char yPAnsiChar lo declare como string y con eso ya me funciona perfectamente gracia

[User_Baja_2]

Otra idea,

Si quieres, para que quede un poco mejor, en tiempo de ejecucción en el formulario puedes poner el componente: TDriveComboBox y cargar la variable del código que hay en el post anterior con la unidad que quede marcada aqui y el aspecto quedará mejor :-)

Un saludo

Nuppy

[[kurono]]

ok gracias