如何在delphi中使用WSH(Windows Scripting Host)? 在VB中却可以如下创建WSHShell对象. Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") DT520 @>>>-->>---------一路风尘一路歌!!

var
    WSH: OleVariant;
begin
    WSH := CreateOleObject('WScript.Shell');
    try
    finally
        WSH := Unassigned;
    end;
end;

You may also be interested in importing the active x contorl "Microsoft Scriptcontrol".

var WSH: OleVariant; begin WSH := CreateOleObject(''''WScript.Shell''''); try finally WSH := Unassigned; end; end; You may also be interested in importing the active x contorl "Microsoft Scriptcontrol". 我做了,但不行。 提示错误： [Error] Unit2.pas(74): Undeclared identifier: 'CreateOleObject' 请说详细一点！ DT520 @>>>-->>---------一路风尘一路歌!!

From Delphi help:    

CreateOleObject function    Instantiates an Automation object.    Unit    ComObj    Category    COM utilities    Delphi syntax:    function CreateOleObject(const ClassName: string): IDispatch;

So you should use ComObj unit.

谢谢! william! wsh可以创建了,大部分属性可以用,但 Wsh.Environment 和 Wsh.SpecialFolders 属性不能用,提示说:"没有找到成员". 我应如何做呢? DT520 @>>>-->>---------一路风尘一路歌!!

SpecialFolders is a collection (i.e. another COM object) and you may need to use another variant for it, e.g.    

var
    WSH: OleVariant;
    SF: OleVariant;
begin
    WSH := CreateOleObject('Wscript.Shell');
    SF := WSH.SpecialFolders;
    try
        ShowMessage(SF.Item('Desktop'));
    finally
        SF := Unassigned;
        WSH := Unassigned;
    end;
end;

OK! Thank You! 我在中午也尝试类似你说的办法,但功力不够,败了下来. 现在在你的详细说明下, 成功了!!!!!!! DT520 @>>>-->>---------一路风尘一路歌!!

william:    你帮我回答这一个问题好吗?    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32514 DT520 @>>>-->>---------一路风尘一路歌!!