Utilizacion archivo con api win32

[lucila89]

tengo un problema para leer el archivo o no lo entendí bien, osea en el readFile del ejemplo usaste un string como salida, en el link vi que la salida seria el buffer.
por ejemplo este código no me anda.

Código Delphi [-]
program Mayuscula;
uses windows,sysutils;
var
archivo,archivo2: LPCTSTR;
entrada, salida: Integer; 
stRead, stWrite:string;
NR, NW: LongWord;
begin
archivo:= 'D:\texto.txt';
archivo2:= 'D:\texto2.txt';
entrada:= CreateFile(archivo, GENERIC_READ + GENERIC_WRITE, FILE_SHARE_WRITE, NIL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
salida:= CreateFile(archivo2, GENERIC_READ + GENERIC_WRITE, FILE_SHARE_WRITE, NIL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
ReadFile(entrada, stRead, length(stRead), NR, NIL);
  stWrite:= uPcase(stRead);
  WriteFile(salida, stWrite[1], Length(stWrite), NW, NIL);
CloseHandle(entrada);
CloseHandle(salida);
end.

que esta mal en el codigo?

[ecfisa]

Hola lucila89.

Probá de esta forma:

Código Delphi [-]
...
const
  FILE_NAME = 'C:\PRUEBA.TXT';
var
  Hnd: Integer;
  stToRead: shortString;
  NR: LongWord;
begin
  Hnd:= CreateFile(FILE_NAME, GENERIC_READ + GENERIC_WRITE,
                   FILE_SHARE_READ + FILE_SHARE_WRITE, 0,
                   OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Readfile(Hnd, stToRead, SizeOf(stToRead), NR, nil);
  CloseHandle(Hnd);
  ShowMessage(stToRead);
end;

Un saludo.

[lucila89]

muchas gracias cariño, anduvo de diez y pude terminar mi programa.

[ecfisa]

Hola de nuevo lucila89.

Me alegra haberte servido de ayuda.

Un saludo.