Ver Mensaje Individual
  #14  
Antiguo 17-10-2012
wcbs wcbs is offline
Miembro
NULL
 
Registrado: sep 2012
Posts: 27
Reputación: 0
wcbs Va por buen camino
Gracias amigo cancun por ayudarme

mira ahora ya no da los errores pero te pongo por acá como tengo el código de seguro encontraras mis errores de por que no trabaja, este es como lo tengo y asta ahora estoy probando por abrir
el notepad para probar.

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses  ShellApi, SysUtils, Forms, DBTables, Windows, Printers, WinSpool, Classes;
function Ejecutar(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;
    Info:TStartupInfo;

begin
  ShellExecute(0,'open', 'notepad.exe','','C:\windows',0);

FillChar(Info,SizeOF(Info),0);
  Info.cb:=SizeOf(Info);
  Info.dwFlags:=STARTF_USESHOWWINDOW;
  Info.wShowWindow:=SW_SHOWNORMAL;
  Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
  if Esperar then
    while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

  { TODO -oUser -cConsole Main : Insert code here }
end.

dale un vistazo e indicame donde esta mi error... por favor..
Responder Con Cita