Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #13  
Antiguo 14-07-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.561
Poder: 25
egostar Va camino a la fama
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 14-07-2008 a las 21:20:45. Razón: cambie casi por caso
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
llamar un archivo asi '192.168.1.1:\ruta\archivo.frf' IVAND Varios 5 12-04-2008 16:18:54
Ruta absoluta de un archivo Alexis De la Cr PHP 3 17-06-2006 23:41:22
ruta de un archivo ddd_ddd Varios 1 07-06-2006 23:08:34
Escribir la ruta seleccionada en un fichero de texto tortelini Varios 1 19-03-2005 17:03:07
Darle ruta a un archivo Kaesbu API de Windows 1 24-09-2003 17:47:09


La franja horaria es GMT +2. Ahora son las 11:37:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi