Вопрос № 73980: [b]Здравствуйте, уважаемые эксперты![/b]
1.Каким образом с помощью какой-либо процедуры можно выключить, перезагрузить компьютер?
2.Как мне получить список процессов, запущенных в данный момент?
Заранее спасибо!!!...Вопрос № 74113: Привет всем!
Вот такой вопрос где-то далеко в дебрях интернета есть скрипт... (РНР) результат его выполнения 10110. Без всяких html body и тд. Мне нежно получить данные числа пробовал стандарным компонентом (internet browser или как там его)...Вопрос № 74121: Здравствуйте уважаемые!
У меня к вам вопрос; Я набрал в Delphi 7 програмку как мне ее сохранить чтобы другие могли ее открыть без Delphi тобиш чтобы он был из разшерением .exe...
Вопрос № 73.980
[b]Здравствуйте, уважаемые эксперты![/b]
1.Каким образом с помощью какой-либо процедуры можно выключить, перезагрузить компьютер?
2.Как мне получить список процессов, запущенных в данный момент?
Заранее спасибо!!!
Отправлен: 03.02.2007, 22:57
Вопрос задал: Bingo (статус: 1-ый класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)
Отвечает: Ерёмин Андрей
Здравствуйте, Bingo!
1. Вот все необходимые функции для завершения работы Windows, выхода из системы и перезагрузки:
function LogOffOS: Boolean; begin {$IFDEF MSWINDOWS} Result := ExitWindows(EWX_LOGOFF); {$ENDIF} end;
function PowerOffOS:
Boolean; begin {$IFDEF MSWINDOWS} Result := ExitWindows(EWX_POWEROFF); {$ENDIF} end;
function ShutDownOS: Boolean; begin {$IFDEF MSWINDOWS} Result :=
ExitWindows(EWX_SHUTDOWN);
{$ENDIF} end;
function RebootOS: Boolean; begin {$IFDEF MSWINDOWS} Result := ExitWindows(EWX_Reboot); {$ENDIF} end;
function ExitWindows(ExitCode: Cardinal): Boolean; begin if (Win32Platform = VER_PLATFORM_WIN32_NT) and not EnableProcessPrivilege(True, SE_SHUTDOWN_NAME) then Result := False else Result := ExitWindowsEx(ExitCode, SHTDN_REASON_MAJOR_APPLICATION or SHTDN_REASON_MINOR_OTHER); end;
2. В приложении полное содержание модуля программы, демонстрирующей, как можно получить список всех запущенных процессов. На форме должны быть Button1 и ListBox1. А вот пример, как можно получить список запущенных приложений (а не всех процессов). В диспетчере задач есть такое разделение - это вкладки "Приложения" и "Процессы":
procedure TForm1.Button1Click(Sender: TObject); var
Wnd : hWnd;
buff: ARRAY [0..127] OF Char; begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst); while Wnd <> 0 do begin {Не показываем:} if (Wnd <> Application.Handle) and {-Собственное окно}
IsWindowVisible(Wnd)
> and {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков} thenbegin
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff)); end;
Wnd := GetWindow(Wnd, gw_hWndNext); end;
ListBox1.ItemIndex := 0; end;
Желаю удачи!
Приложение:
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Вот такой вопрос где-то далеко в дебрях интернета есть скрипт... (РНР) результат его выполнения 10110. Без всяких html body и тд. Мне нежно получить данные числа пробовал стандарным компонентом (internet browser или как там его), но страницу он отображает а её искодного кода получить не позволяет.
Итак вопрос: как получить исходный код удаленного РНР сценария (результат "10101").
Отправлен: 04.02.2007, 20:39
Вопрос задал: J D (статус: 6-ой класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Архангельский Андрей Германович
Здравствуйте, J D!
Если использовать компонент TMemo и получать в него страницу следующим образом
Var
mmHTML : TMemo;
то в свойстве Text будет содержаться исходный код страницы из интернета.
Дальше с ним можно делать все что хочется
--------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 04.02.2007, 20:49 Оценка за ответ: 5 Комментарий оценки: сэнкс
Отвечает: Балашов Григорий
Здравствуйте, J D!
В общем случае никак. PHP сценарий выполняется на стороне сервера, и не имея никаких прав доступа к серверу, посмотреть исходный код невозможно.
Если есть подозрения, что скрипт свободно распространяемый (судя по вашему описанию, это маловероятно), то можно поискать в интернете. Также можно попробовать воссоздать скрипт заново (если известен алгоритм его работы).
Ответ отправил: Балашов Григорий (статус: 1-ый класс)
Ответ отправлен: 04.02.2007, 20:51 Оценка за ответ: 4 Комментарий оценки: Вниматель читайте договор!! "исходный код удаленного РНР сценария (результат "10101"). " выше " результат его выполнения 10110". На кой мне его код? это уже карается законом. Мне нужен РЕЗУЛЬТАТ!
Вопрос № 74.121
Здравствуйте уважаемые!
У меня к вам вопрос; Я набрал в Delphi 7 програмку как мне ее сохранить чтобы другие могли ее открыть без Delphi тобиш чтобы он был из разшерением .exe
Отвечает: Балашов Григорий
Здравствуйте, Киселев Виктор!
Выберите в главном меню "Run" -> "Run" или нажмите клавишу F5. ----- Ответ неверный. В Delphi клавиша F5 по умолчанию не задействована. Запуск - это F9, компиляция - Ctrl+F9. (Ерёмин А.)
Ответ отправил: Балашов Григорий (статус: 1-ый класс)
Ответ отправлен: 04.02.2007, 21:30
Отвечает: Павлов Сергей Сергеевич
Здравствуйте, Киселев Виктор!
Сохраните программу и запустите ее в Delphi
Зайдите в папку с программой. Она там!
Ответ отправил: Павлов Сергей Сергеевич (статус: 1-ый класс)
Ответ отправлен: 04.02.2007, 22:13 Оценка за ответ: 2 Комментарий оценки: Это я понял ну а как дать знакомым чтобы они попробовали эту программу у них не установлен Delphi???
Отвечает: Warrior
Здравствуйте, Киселев Виктор!
Сохранить проект тебе нужно в папку. Там будут лежать все файлы и ехе тоже.
Если е указать папку, то на момент компиляции ехе лежит в папке Delphi7/Project
Ответ отправил: Warrior (статус: 3-ий класс)
Ответ отправлен: 05.02.2007, 06:54
Отвечает: W@NDeReR
Здравствуйте, Киселев Виктор!
нажмите комбинацыю клавиш Cntr +F9 и в папки спроектом создасться ехе файл с именем проекта
Ответ отправил: W@NDeReR (статус: 1-ый класс)
Ответ отправлен: 05.02.2007, 19:32
