Hi Al, try this:
var
f: text;
fname: string;
in: char;begin
fname := 'cdrecord -atip';
assignfile( f , fname );reset( f );
while not eof( f ) do
begin
read( f, in );
write( in ); //?
end;closefile( f ); end.
This is the best I can do at short notice.
ATB! A.
At 15:32 26/06/03 +1200, you wrote:
Hi all. Can anyone translate this to pascal for me?
FILE *fp fp=popen ("cdrecord -atip", "r") fread (fp) //gets the output
--------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
