There is a power toy that provides a shell extension to do a 'Command Prompt
from Here'. Perhaps this is it?
----- Original Message -----
From: "Chris Reynolds" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Tuesday, September 26, 2000 11:35 PM
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"
>
---------------------------------------------------------------------------
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"
