Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Вниз

Консольное приложение   Найти похожие ветки 

← →
LionMen ©   (2005-11-18 11:51) [0]

Здравствуйте! Подскажите пожалуйста, как написать консольное приложение, чтобы присвоить значение имя компьютера. в обычных приложениях типа Form, я использовал TcpClient.LocalHostname. Вот в консольной никак не могу,может кто нить знает!!

---

← →
Tonich ©   (2005-11-18 11:56) [1]

> чтобы присвоить значение имя компьютера

присвоить чему?

---

← →
palva ©   (2005-11-18 12:33) [2]

> присвоить чему?
строковой переменной ImyaCompyutera1

---

← →
Tonich ©   (2005-11-18 12:51) [3]

блин а это чем не подходит ?

GetComputerName()

---

← →
LionMen ©   (2005-11-21 08:05) [4]

Здравствуйте! Я хочу написать не просто программу, а консольное!!! приложение. Вот исходник в обычной программе:

procedure TForm1.FormCreate(Sender: TObject);
begin

Edit1.Text:=TcpClient1.LocalHostName;
end;

Я хочу без форма, чисто паскалевский )), то есть под ДОСом. Плиз, напишите хоть маленькую программку, или обьясните про GetComputerName(), т к в справке нет (((

---

← →
isp3   (2005-11-21 11:17) [5]


program Project1;

{$APPTYPE CONSOLE}
uses   isp3;

var T:TTCP;   s:string;

begin
   T:=TTCP.create(nil);
   s:=T.LocalHostName;
   writeln(s);
   readln;
   T.free;
end.


---

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

Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c