Try Uses Classes, Process, SysUtils;
:-) On Sun, Mar 14, 2010 at 14:16, Terry A. Haimann <te...@haimannonline.com> wrote: > This may seem like a stupid question, but is there an easy way to do this? > Since these directories that all of these include files reside in arn't in > my path statement and they arn't all in the same directory. > > Aleksa Todorovic wrote: >> >> Try including SysUtils in FreePascal version - it initializes >> exception handling, so maybe there are some exceptions internally >> happening which are not properly handled. Just a guess... >> >> >> On Sun, Mar 14, 2010 at 04:04, Terry A. Haimann <te...@haimannonline.com> >> wrote: >> >>> >>> I tried to write a little utility to submit a command to the At Facility. >>> >>> The code to do this is as follows: >>> >>> StdStrLst := TStringlist.Create; >>> ErrorStrLst := TStringlist.Create; >>> MyProcess := TProcess.Create(nil); >>> MyProcess.CommandLine := 'at now'; >>> MyProcess.Options := MyProcess.Options + [poUsePipes]; >>> MyProcess.Execute; >>> StdStrLst.Clear; >>> StdStrLst.Add('awk -F":" ''{print $1"\t"$3"\t"$4}'' /etc/passwd | >>> sort'); >>> StdStrLst.SaveToStream(MyProcess.Input); >>> StdStrLst.Clear; >>> StdStrLst.Add(chr(4)); >>> StdStrLst.SaveToStream(MyProcess.Input); >>> >>> Running this code from a Lazarus test program works with out any >>> problems. >>> When running it from a Free Pascal (non gui,) the program seems to halt >>> after issuing the "MyProcess.Execute;" The program seems to exit without >>> any errors, but I have put writeln's throughout the code and I don't see >>> any >>> output after the above instruction. It is probable that there is some >>> errors in the stdout, but I never see them and don't know how to access >>> it >>> after the program exits. >>> >>> The Uses clause for the two apps are as follows. >>> >>> Lazarus: >>> uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, >>> Dialogs, >>> StdCtrls, Process; >>> >>> Free Pascal: >>> Uses Classes, Process; >>> >>> Anyone have any ideas? >>> >>> -- >>> _______________________________________________ >>> Lazarus mailing list >>> Lazarus@lists.lazarus.freepascal.org >>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >>> >>> >> >> >> >> > > > -- > _______________________________________________ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- Aleksa Todorovic - Lead Programmer Eipix Entertainment -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus