 |
|
10.11.2008, 23:46
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
для запуска приложений используй WinAPI функции ShellExecute, также можно WinExec ну или даже CreateProcess. Для паузы здесь проще всего Sleep
|
|
|
10.11.2008, 23:59
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
нууу
Сообщение от bons
для запуска приложений используй WinAPI функции ShellExecute, также можно WinExec ну или даже CreateProcess. Для паузы здесь проще всего Sleep
ну... а пример ?
|
|
|
|
11.11.2008, 00:21
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
Сообщение от TheJahte
ну... а пример ?
Код:
program executer;
{$APPTYPE CONSOLE}
uses windows;
var f:textfile;
cmd:string;
begin
assignfile(f,'file.txt');
reset(f);
while not eof(f) do begin
readln(f,cmd);
WinExec(pChar(cmd),SW_SHOW);
Sleep(5000);
end;
closefile(f);
end.
пример файла file.txt
Код:
ping ya.ru
ping forum.antichat.ru
|
|
|
|
11.11.2008, 01:00
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
Хммм... т.е. прописывать в .txt файле не ping а start ?
|
|
|
|
11.11.2008, 01:11
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
start там ни к чему
|
|
|
|
11.11.2008, 01:15
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
Куда этот гребаный windows.tpu ему засунуть )) чтоб он заткнулся ?  |
|
|
|
11.11.2008, 09:46
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
С нами:
11194886
Репутация:
112
|
|
люди ))) помогите сделать баллон тип только не юзая форму...
тоесть как вот этот трай икон без формы..
http://d.lsass.us/126
помогиииииите оч надо =)
|
|
|
|
11.11.2008, 15:23
|
|
Новичок
Регистрация: 11.11.2008
Сообщений: 20
С нами:
9209109
Репутация:
2
|
|
Как определить динамичный IP ? А то при попытке определить выдает не верный айпи.
вот используемая функция
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
|
|
|
|
11.11.2008, 15:35
|
|
Познающий
Регистрация: 21.09.2008
Сообщений: 42
С нами:
9282044
Репутация:
61
|
|
Как определить динамичный IP ?
А какой айпи он выдает? )))
Дело в том что для компьютера может существовать несколько адресов: локальный, сетевой, внешний, виртуальный и т.д.
Короче тебе надо получать не один айпишник, а их список, и из них поттом выбирать внешний.
|
|
|
|
11.11.2008, 15:45
|
|
Новичок
Регистрация: 11.11.2008
Сообщений: 20
С нами:
9209109
Репутация:
2
|
|
Сообщение от groupby
А какой айпи он выдает? )))
Дело в том что для компьютера может существовать несколько адресов: локальный, сетевой, внешний, виртуальный и т.д.
Короче тебе надо получать не один айпишник, а их список, и из них поттом выбирать внешний.
А как это сделать? Выдает что-то типа 192.168.0.2
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
