[[egostar]]

Hola

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var 
   Id: TextFile;
begin
   //Llamando la funcion en el text del edit
   edtId.Text:=GetVolumeID('C');
   //Crear Archivo
   AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos'); 
   Rewrite(Id);
   Writeln(Id,edtId.Text);
   CloseFile(Id);
end;

Aunque sigo pensando que el path donde quieres crearlo no deberia ser estático, porque en este caso en específico si no tiene una partición D la maquina donde se ejecute el programa te va a dar un error.

Salud OS