Abrir archivo de texto con el bloc de notas

[noob]

Empezado por dec

Hola,

Comprueba el error de "ShellExecute()", si existe: intenta con la función "GetLastError()", porque es muy raro eso que ocurre... ¿igual es que no existe "notepad.exe" en tu sistema?

Jeje, si, si que existe notepad.exe en mi sistema.

Empezado por seoane

Siguiendo el consejo de dec, coloca esto justo despues del ShellExecute:

Código Delphi [-]
ShowMessage(SysErrorMessage(GetLastError));

He he hecho esto y obtengo el mensaje "La operación se ha completado correctamente" eso si, no se abre el notepad con el archivo de texto. Esto es mazo de raro.

Este es el código que tengo:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    Archivo: Text;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  linea: string;
  St: Array[0..255] of char;
  SW_SHOW: longint;
begin
  SW_SHOW := 0;
  // Archivo está declarado como atributo privado del formulario --> Archivo: Text;
  System.Assign(Archivo,'C:\a\b.txt');
  System.Rewrite(Archivo);
  System.Writeln(Archivo,'Hola');
  System.Close(Archivo);
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Formulario creado.');
  Memo1.Lines.Add('Archivo creado.');
  System.Reset(Archivo);
  System.Readln(Archivo,linea);
  Memo1.Lines.Add(linea);
  System.Close(Archivo);
  // Pongo en el uses ShellAPi para que reconozca ShellExecute
  ShellExecute(Handle,'open','notepad.exe','C:\a\b.txt','',SW_SHOW);
  ShowMessage(SysErrorMessage(GetLastError));
end;

end.

[dec]

Hola,

Lo raro es que no te funcionara "a la primera". Yo quitaría el "notepad.exe", o bien proporcionaría la ruta completa al "notepad.exe", pero,... desde luego es algo raro esto. ¿No puedes ver siquiera el proceso del "bloc de notas" funcionando? Quizá se esté ejecutando, pero, no se esté terminando de mostrar...

[noob]

Empezado por dec

Hola,

Lo raro es que no te funcionara "a la primera". Yo quitaría el "notepad.exe", o bien proporcionaría la ruta completa al "notepad.exe", pero,... desde luego es algo raro esto. ¿No puedes ver siquiera el proceso del "bloc de notas" funcionando? Quizá se esté ejecutando, pero, no se esté terminando de mostrar...

Ahora que lo dices he hecho Ctrl + Alt + Supr y me he ido a Administrador de tareas / Procesos para ver los procesos que están corriendo y hay como más de veinte procesos notepad.exe corriendo, ¿esto es malo verdad?

[dec]

Hola,

Se ve que algo ha ido mal en un momento dado, y a partir de ahí todos los "notepad" que se ejecutaban quedaban ahí... como "muertos"... Así que comienza de nuevo: cierra todos los "notepad" (claro, guarda el que sea si estás trabajando con el mismo) y vuelve a probar a ver...

[noob]

He matado todos los procesos notepad.exe desde el Administrador de tareas / Procesos, he vuelto a probar y nada, sigue sin abrirse el archivo de texto mediante el block de notas y si me voy a Administrador de tareas / Procesos para ver los procesos que están corriendo veo que hay un proceso notepad.exe que antes no estaba.

[*Caro*]

Hola noob, comenta estas dos líneas de tu codigo.

Código Delphi [-]
  ............
  //SW_SHOW: longint; esta
begin
  //SW_SHOW := 0; y esta
  // Archivo está declarado como atributo privado del formulario --> Archivo: Text;
  System.Assign(Archivo,'C:\a\b.txt');
  .....................
  .....................

Saluditos

[dec]

Hola,

Ahí está a buen seguro el problema (?) Caro, muy bien visto.

[noob]

Empezado por Caro

Hola noob, comenta estas dos líneas de tu codigo.

Código Delphi [-]
  
  ............   
  //SW_SHOW: longint; esta 
begin   
  //SW_SHOW := 0; y esta   
  // Archivo está declarado como atributo privado del formulario --> Archivo: Text;   
  System.Assign(Archivo,'C:\a\b.txt');   
  .....................   
  .....................

Saluditos

Ahora si que funciona, gracias a todos.

Saluditos.