Re: [delphi-br] Paralizar o sistema

2006-05-04 Por tôpico Leonardo Ladeira Casemiro
Eu uso uma preocedure que tem que copiar um arquivo p/ procedure TFRMEXPORTA.BitBtn3Click(Sender: TObject); var LL : integer; startupinfo: Tstartupinfo; ProcessInfo: TprocessInformation; begin     FillChar(startupinfo,sizeof(Tstartupinfo),0);     startupinfo.cb:=sizeof(Tstartupinfo);     i

Re: [delphi-br] Chamar executável através de outro executavel"

2006-05-03 Por tôpico Leonardo Ladeira Casemiro
Eu testo para ver se o programa existe antes . if FileExists('c:\Desenv\AgendaEletronica\Agenda.exe') then     ShellExecute(Handle,pchar('open'), pchar('c:\Desenv\AgendaEletronica\Agenda.exe'),nil,nil,SW_SHOWNORMAL) else   Application.MessageBox('O programa não pod