ShellUtils is a custom Com component. Have a look at http://msdn.microsoft.com/msdnmag/issues/0600/w2kui2/w2kui2.asp Some of the stuff in this article works on WinNT and Win9x if you have IE4+ with the shell integration option. > -----Original Message----- > From: Chris Reynolds [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, 26 September 2000 10:35 > To: Multiple recipients of list delphi > Subject: RE: [DUG]: Embedded DOS Prompt...... > > > Interesting, I wonder what platform. My NT registry has no sign of a > shellutils factory. > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On > Behalf Of Nic Wise > Sent: Tuesday, September 26, 2000 10:20 AM > To: Multiple recipients of list delphi > Subject: RE: [DUG]: Embedded DOS Prompt...... > > > This is not C++ - its either C# or JScript, most likely JScript > > > I came across the followling C++ Code which uses Windoze > shell extenstions > > to embed a command prompt...... In attempting to convert > this to Delphi I > > discovered that I have no idea what the Delphi equivalent for > > "ActiveXObject" is? Anybody help me out? > > > > TIA > > this should work, not tested tho: > > procedure DosPrompt; > var > cmdText : string; > obj : olevariant; > begin > cmdText := textbox.value; > obj := CreateOLEObject("ShellUtils.Exec"); > if cmdText = "" then begin > obj.DosFromHere(curPath); > exit; > end; > buf = obj.ExecCommand(curPath, cmdText); > ShowResults(buf); > end; > > N > > -------------------------------------------------------------- > ------------- > 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" > > -------------------------------------------------------------- > ------------- > 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" > > -------------------------------------------------------------- > ------------- > 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" > ------------------------------------------------------------------------------ This message and any attachment is confidential and may be privileged or otherwise protected from disclosure. If you have received it by mistake please let us know by reply and then delete it from your system; you should not copy the message or disclose its contents to anyone. --------------------------------------------------------------------------- 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"
