Ver Mensaje Individual
  #2  
Antiguo 03-02-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola lucila89.

Te hice un ejemplo básico donde se utilizan las funciones que solicitas:
Código Delphi [-]
...
const
  FILE_NAME = 'C:\PRUEBA.TXT';
var
  Hnd: Integer;
  stToRead, stToWrite: string;
  NR,NW: LongWord;
begin
  Hnd:= CreateFile(FILE_NAME, GENERIC_WRITE, FILE_SHARE_DELETE,
                    nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
  if Hnd = INVALID_HANDLE_VALUE then
   raise Exception.Create('Error creando archivo')
  else
  begin
    Readfile(Hnd, stToRead, Length(stToRead), NR, nil); // leer
    stToWrite:= 'PRUEBA_DE_ESCRITURA_CON_WINDOWS_API';
    WriteFile(Hnd, stToWrite[1], Length(stToWrite), NW, nil);
    CloseHandle(Hnd);
    if MessageBox(Handle,'¿ BORRA EL ARCHIVO ?','',MB_ICONQUESTION + MB_YESNO) = IDYES then
      Windows.DeleteFile(FILE_NAME)
  end;
end;
Es sólo un código trivial que crea/abre, lee, escribe, cierra y borra. Si querés más detalles sobre el uso de las funciones,
te dejo los enlaces con la información: CreateFile Function , CloseHandle Function , DeleteFile Function , ReadFile Function , WriteFile Function

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 03-02-2011 a las 07:11:14.
Responder Con Cita