Traducir código delphi a vb

[monaguillo]

buenas quisiera una ayuda porfavor

resulta q quisiera pasar un codigo de delphi a visual basic 6.0 , y hay algunas funciones api de delphi q no entiendo aver si me ayudan a pasar este codigo de delphi please




procedure TForm1.byClick(Sender: TObject);
const
URL = 'http://www.web.com';
var F: TextFile;
begin
ShellExecute(Handle,'open',URL,nil,nil,SW_SHOWNORMAL);
FileSetReadOnly('C:\WINDOWS\txt', false);
AssignFile(F, 'C:\WINDOWS\txt');
Rewrite(F);
Writeln(F, 'x..xx.xx.x.x web.com');
Writeln(F, 'x.x.x.x.xx. web.com');
FileSetReadOnly('C:\WINDOWS\txt', true);
CloseFile(F);

end;


aver si me ayudan a pasar el codigo de delphi a visual basic y me explikan algunas funciones como assifnfile o FilesetReadOnly

gracias de ante mano

[jachguate]

Muevo el tema a varios, pues la pregunta nada tiene que ver con el API de windows.

Aportando a la pregunta, el procedimiento AssignFile realiza la asignación de un nombre de archivo a una variable de tipo archivo, cómo es el caso de F, que en este es un archivo de texto.

Dicho en otras palabras, las operaciones que se realicen sobre dicha variable afectan al archivo 'c:\windows\txt'.

FileSetReadonly, cómo su nombre lo indica, establece el atributo de solo lectura de un archivo.

Ambos procedimientos están bien documentados en la ayuda => F1

Sobre cómo expresar eso en vb... ni idea.. nunca he caído tan bajo... :D

Hasta luego.

;)

[Robert01]

Hola
Aquí (http://www.vbaccelerator.com/codelib/shell/shellex.htm) y aquí (http://www.elguille.info/vb/VB_API02.HTM) explican como usar shellexecute.

Para abrir un archivo usas

manejador = freefile
open "nombredearchivo" for output as #manejador

para escribir la variable datos por ejemplo usas

writeln #manejador, datos

Aquí (http://www.rosettacode.org/rosettacode/w/index.php?title=File_I/O) hay una comparación de lenguajes.

Ya no recuerdo casi como era dado que desde hace bastante tiempo trato de inundarme con la luz de delphi.

Saludos