Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запуск приложения в ЛВС [D7]


Astronom ©   (2007-02-15 11:14:00) 

Здравствуйте Мастера! История следующая: 2 компьютера объединены в сеть. Нужно, чтобы приложение, установленное на одном компьютере запускало файл на другом. Это вообще возможно?
Я пользовался
ShellExecute(MainForm.Handle, PChar('open'), PChar(FileName), nil, nil, SW_ShowNormal);
Но этот фокус работает только для локальных для данной программы файлов, а сеть игнорирует. Что делать?


Astronom   (2007-02-15 13:51:00) [1]

Спасибо! Сегодня наверное полнолуние, мозги где-то далеко-далеко! :)


medved_68   (2007-02-15 13:49:00) [2]


> Тупейший вопрос, просто забыл, какой компонент позволяет
> сделать на форме вкладки (как Standart, Additional) в Delphi?
>

PageControl,TabControl. :)))


Astronom   (2007-02-15 13:45:00) [3]

Тупейший вопрос, просто забыл, какой компонент позволяет сделать на форме вкладки (как Standart, Additional) в Delphi?


Astronom   (2007-02-15 12:54:00) [4]

Нда-а-а! Старею, VBS не узнать - это клиника :( Надо все-же больше книжек читать.


Рамиль   (2007-02-15 12:50:00) [5]

Еще можешь запустит скрипт ShellExecute ом :)


Рамиль   (2007-02-15 12:47:00) [6]

Конечно будет ругаться, это же vbs
Сохрани в файл с раширением vbs и запусти.

А вообще это было направление, куда копать, если хочешь именно из Delphi.


Astronom   (2007-02-15 12:28:00) [7]

Что-то на строчку:
Set_objWMIservice = GetObject('winmgmts:\\' & strComputer & '\root\cimv2: Win32_Process');
ругается, не может найти функцию. Может там модуль какой-нибудь нужен?


Рамиль   (2007-02-15 11:33:00) [8]

strComputer = "Remote_Computer_Name"
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")

Error = objWMIService.Create("c:\Program.exe", null, null, intProcessID)
If Error = 0 Then
Wscript.Echo "Ok!"
Else
Wscript.Echo "Start fail"
End If


Alarm   (2007-02-15 11:27:00) [9]

офф: что стоит за понятием - запускало файл на другом ?
Думается, что ты очень обрадовался если бы с соседнего компьютера запускали программы на твоем:)


Наверх

Титульная страница Поиск, карта сайта Написать письмо