+ VarToStr(KeyWord_Parameters[I]));
 end;
end;
 
（3）封裝一個函數，用于根據Excel讀入的測試關鍵字創建可用的測試對象。
Uses CheckUIPerformance;
//.............................................................................
// 目的：返回當前進程中的指定測試對象
// 輸入參數：
//           Process ：進程對象
//           TestObject：測試對象的描述
// 返回結果：
//           返回當前進程中的指定測試對象
// 注意事項：
// 作者：陳能技
// 日期：2008-6-3
//.............................................................................
Function getObject(Process,TestObject);
var
 PropArray, ValuesArray;
begin
 PropArray := CreateVariantArray(0, 0);
 ValuesArray := CreateVariantArray(0, 0);
 PropArray[0] :='FullName';
 ValuesArray[0] := TestObject;
 // 調用 FindTestObject 函數，返回當前進程中的指定測試對象
 Result := FindTestObject(Process,PropArray,ValuesArray);
end;
 
        這里調用了CheckUIPerformance腳本中編寫的FindTestObject函數，該函數用于根據測試對象的描述信息查找指定進程中的測試對象，腳本如下：
Function FindTestObject(Process,PropArray,ValueArray);
 var res;
begin
 Result := False;
 // 查找指定的測試對象
 Process.Refresh();
 res := Process.FindChild(PropArray, ValueArray, 1000);
 // 返回測試對象
 if res.Exists then
 begin
    Result := res;
    Log.Message('找到測試對象: ' + res.FullName)
 end
 else
    Log.Message('未找到測試對象');
end;
 

文章來源于領測軟件測試網 http://www.kjueaiud.com/