Решено: Не могу понять логику работы Process

[azsx]

Не могу понять логику работы Process в windows, он кое что запускает, а кое что нифига.
Например, хочу создать ярлык на рабочем столе.

программа в лазарус

Код: Выделить всё

uses Process;
***
var
  AProcess: TProcess;
begin
      AProcess := TProcess.Create(nil);
      AProcess.CommandLine := 'b.vbs';
      AProcess.Options := AProcess.Options + [poWaitOnExit];
      AProcess.Execute;
      AProcess.Free;
end;

сам скрипт (надо сменить USER_VASH если вы ничего не меняли по стандарту, в оригинальной проге я считываю данные заранее).
b.vbs

Код: Выделить всё

Set WshShell = WScript.CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut("C:\users\USER_VASH\desktop\нотепад.lnk")
oShellLink.TargetPath = "C:\windows\system32\notepad.exe"
oShellLink.WorkingDirectory = "C:\windows\system32\"
oShellLink.Save

Программа на лазарус вылетает по 193 ошибке. При этом если запустить сам скрипт из проводника - он работает.
Как выполнить скрипт vbs в лазарус? Также надо будет удалить ярлык с рабочего стола - тоже не работает, уже просто команда del /Q (без внешних файлов скриптов).

[minoshi]

Запустить интерпретатор

Код: Выделить всё

AProcess.CommandLine := "start /w wscript.exe b.vbs"

или

Код: Выделить всё

AProcess.CommandLine := "wscript.exe b.vbs"

[Vadim]

azsx
А если попробовать так:

Код: Выделить всё

uses Process;

var
  AProcess: TProcess;
begin
      AProcess := TProcess.Create(nil);
      AProcess.Executable := 'cscript.exe';
      AProcess.Parameters.Add('b.vbs');
//      AProcess.Options := AProcess.Options + [poWaitOnExit];
      AProcess.Execute;
      AProcess.Free;
end.

?

[azsx]

сработал вариант

Код: Выделить всё

AProcess.CommandLine := 'wscript.exe b.vbs';

остальные не сработали.
Большое спасибо.

[Vadim]

остальные не сработали.

Я свой вариант проверил. Значит у Вас ещё какие-то проблемы...
Напоминаю, что "CommandLine" - кандидат на удаление и его применять не советуют.

[Tango]

Нужно понимать, что есть запускаемое непосредственно приложение, а что документ, который открывается каким либо приложением.
Для второго случая нужно использовать ShellExecute.

[azsx]

Напоминаю, что "CommandLine" - кандидат на удаление и его применять не советуют.

ага? А как же тогда запускать внешние программы?

Нужно понимать, что есть запускаемое непосредственно приложение, а что документ, который открывается каким либо приложением.
Для второго случая нужно использовать ShellExecute.

к сожалению я прочитал документацию и умею запускать только одним способом
http://wiki.freepascal.org/Executing_Ex ... rograms/ru

Я свой вариант проверил. Значит у Вас ещё какие-то проблемы...

скорее всего

[v-t-l]

http://wiki.freepascal.org/Executing_External_Programs#LCLIntf_Alternatives

Код: Выделить всё

uses LCLIntf;
...
OpenDocument('b.vbs');
...