
Понадобилось мне к проекту прикрутить vbs!
Ссылка на пример http://lazarus.freepascal.org/index.php?topic=18226.0
вот сам vbs
- Код: Выделить всё
Set wmi = GetObject("winmgmts:")
Set routes = wmi.ExecQuery("select * from Win32_IP4RouteTable")
For Each r In routes
WScript.Echo r.name
Next
вот уже в лазаре
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var vbs:variant;
cmd:widestring;
res:double;
begin
vbs:=CreateOleObject('ScriptControl');
vbs.language:='VBScript';
cmd:='Set wmi = GetObject("winmgmts:")' +LineEnding+ 'Set routes = wmi.ExecQuery("select * from Win32_IP4RouteTable")' +LineEnding+ 'For Each r In routes ' +LineEnding+ 'WScript.Echo r.name' +LineEnding+ 'Next' +LineEnding;
vbs.AddCode(cmd);
//res:=vbs.Run('Square',1.2345);
//showmessage(vbs);
//memo1.Text:=FloatToStr(vbs);
end;
Но вот что то он ругается на WScript тоесть если я сотру
- Код: Выделить всё
+LineEnding+ 'For Each r In routes +LineEnding+ 'WScript.Echo r.name' +LineEnding+ 'Next'

Спасибо