Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

Запуск приложения в ЛВС   Найти похожие ветки 

 
Astronom ©   (2007-02-15 11:14) [0]

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


 
Alarm ©   (2007-02-15 11:27) [1]

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


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

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


 
Astronom ©   (2007-02-15 12:28) [3]

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


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

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

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


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

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


 
Astronom ©   (2007-02-15 12:54) [6]

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


 
Astronom ©   (2007-02-15 13:45) [7]

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


 
medved_68 ©   (2007-02-15 13:49) [8]


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

PageControl,TabControl. :)))


 
Astronom ©   (2007-02-15 13:51) [9]

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



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
2-1171452398
Михаил_
2007-02-14 14:26
2007.03.04
Pixel


4-1161262695
DevilDevil
2006-10-19 16:58
2007.03.04
Серый Битмап


15-1170669613
Tex
2007-02-05 13:00
2007.03.04
Очистка таблицы


1-1168789959
TStas
2007-01-14 18:52
2007.03.04
Как получить список возможных значений Size для шрифта FontName?


15-1171193492
Parus
2007-02-11 14:31
2007.03.04
Всё этот самый ASP VBScript