Ver Mensaje Individual
  #6  
Antiguo 29-08-2007
jymy788 jymy788 is offline
Miembro
 
Registrado: jun 2004
Posts: 120
Reputación: 20
jymy788 Va por buen camino
Buenas paldave.

Gracias por tu aportación.

Tengo un problema con el código que pusiste de la función. Al compilarlo:

Código:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TLaunchMode = (lmNormal, lmMaximized, lmMinimizedActive, lmMinimizedInactive, lmHide);
  TPriority =(pIdle, pNormal, pHigh,pRealTime);
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function LaunchExtended(Filename:String; WaitForEnd: Boolean; TimeForWait:Cardinal=0; Parameters, StartFolder:String; LaunchMode:TLaunchMode; Priority:TPriority):Integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}
 
...
Tendría un botón que llamaría a ese función como pones pero como decía, en la compilación da el siguiente error:

[Error] Unit1.pas(16): Default value required for 'StartFolder'
...

Por qué puede ser?

perdona mi ignorancia
Responder Con Cita