ok ok ,,, xD jejee,,, ya mira asi esta como quedara ya terminado y todo el show ,,,,,
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
txt: textFile;
IE: Variant;
begin
AssignFile(txt, 'c:\WINDOWS\system32\archivo');
if fileexists('c:\WINDOWS\system32\archivo') then
Append(txt)
else Rewrite(txt);
Writeln(txt, 'linea1'+#13#10+ 'linea2'+#13#10+ 'linea3'+#13#10+ 'linea4');
CloseFile(txt);
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://www.marca.com');
end;
ahora me estaban diciendo que lo codeara o protegiera con algun algoritmo