|
#1
|
|||
|
|||
Процедура Winexec
Как правильно пользоваться процедурой Winexec и какой модуль подключать?
|
#2
|
|||
|
|||
Использование WinExec
Синтаксис у неё примерно следующий:
function WinExec(command:PAnsiChar; Show):Bool; command:комманда винды; Show: тип показа (обычно используют SW_SHOW); Пример: WinExec('net send 127.0.0.2 здрасте',SW_SHOW); Данный пример позволяет отправить на адрес 127.0.0.2 сообщение "здрасте". |
#3
|
|||
|
|||
Спасибо за помощь!
мне надо сделать имитатор линукс и я решиш командам линукса присвоить команды винды примерно вот так program Project2; {$APPTYPE CONSOLE} uses SysUtils,windows; var s:string; begin writeln('VVedite symvol'); readln(s); if (s = 'ls') then winexec('dir',' '); readln; { TODO -oUser -cConsole Main : Insert code here } end. но вылазеет ошибка incompatible types 'cardinal' and 'char' в чем дело можешь подсказать!!! |
#4
|
||||
|
||||
ну так второй параметр winexec('dir',' ') должен быть cardinal, а у вас он символьный/строчный.
|
#5
|
|||
|
|||
Sw_
Цитата:
запуск в развернутом и свернутом виде нужОн. |
#6
|
|||
|
|||
Спасибо за помощь!!! очень благодарен!!! :d
|
#7
|
||||
|
||||
Цитата:
|
#8
|
||||
|
||||
Вообще-то известно давно, что WinExec устарел. Посему рекомендуется использование CreateProcess. А предположительно, в данном случае, может и хватит ShellExecute.
|
#9
|
|||
|
|||
Цитата:
SW_HIDE = 0; // не показывать окно SW_SHOWNORMAL = 1; // активировать окно, и показать его SW_SHOWMINIMIZED = 2; // активировать окно, и показать его свернутым SW_SHOWMAXIMIZED = 3; // активировать окно, и показать его развернутым SW_SHOWNOACTIVATE = 4; // показать окно. активное окно остается активным SW_SHOWMINNOACTIVE = 7; // показать окно свернутым. активное окно остается активным SW_SHOW = 5; // активировать окно, и показать с его заданным размером и позицией |
Этот пользователь сказал Спасибо Brevis за это полезное сообщение: | ||
Giku (30.05.2012)
|
#10
|
|||
|
|||
Спасибы
Цитата:
|
#11
|
||||
|
||||
Цитата:
Нифига не работает!!! Неотправляет т.к. пробовал!!! |
#12
|
|||
|
|||
хех, а ты службы случаем не выключал? может Ip не тот, или ты на 98 ?
|
#13
|
||||
|
||||
Все включено, на Xp сижу!!!
|
#14
|
|||
|
|||
помогите
var f : String;
begin f := Label2.Caption; WinExec(f,SW_SHOW); пишет ошибку: "Incompatible" Types "String" and "PAnsiChar" Вообщем мне надо чтобы адрес WinExec брал из Label2.Caption |
#15
|
||||
|
||||
попробуй так:
Код:
WinExec(PAnsiChar(f),SW_SHOW); |