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

Вниз

Изменения IP   Найти похожие ветки 

 
MyJIbT   (2007-01-13 22:24) [0]

Как средствами Delphi прописать ip адрес на машине допустим 10.1.1.1 маска 255.0.0.0? И наоборот как установить автоматическое определение параметров ip?


 
Dmitrij_K   (2007-01-13 23:20) [1]


> Как средствами Delphi прописать ip адрес на машине ...

IP адреса у машины нет.
Может имел введу изменить адрес сетевого адаптера? Тогда тебе в гугл....


 
MyJIbT   (2007-01-14 09:45) [2]

ну я это и имел в виду ток как ето сделать не подскажешь?


 
iXT ©   (2007-01-14 14:00) [3]

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=2


 
Dmitrij_K   (2007-01-14 14:03) [4]

http://www.google.com


 
MyJIbT   (2007-01-14 14:19) [5]

Решил проблемму таким образом:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
function ExecAndWait(FileName:String; Visibility:integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
Resultado: DWord;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName,
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then Result := -1

else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Resultado);
Result := Resultado;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExecAndWait( "netsh interface ip set address ""+
"tcp"+"" "+
" static "+"10.1.1.1"+ " "+"255.0.0.0" +" "+"10.1.0.1"+" 1",sw_hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExecAndWait( "netsh interface ip set address ""+
"tcp"+"" "+"source=dhcp",sw_hide);
end;

end.


 
iXT ©   (2007-01-14 15:42) [6]

Ну раз пошла такая пьянка
WinExec + ipconfig



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

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

Наверх




Память: 0.45 MB
Время: 0.419 c
11-1168515485
Mabia
2007-01-11 14:38
2007.08.26
Установка Report&Print в D6


2-1186069152
-==\AnGnA/==-
2007-08-02 19:39
2007.08.26
Куча вопросов


1-1181772512
SkySpeed
2007-06-14 02:08
2007.08.26
Как нормально определить каждое "слово" в коде?..


2-1185470289
A2618
2007-07-26 21:18
2007.08.26
генератор случайных чисел


2-1186210510
Poroshm
2007-08-04 10:55
2007.08.26
как создать второе окно?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский