| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Консольное приложение [D7, 2000]

LionMen ©   (2005-11-18 11:51:00) 

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

---

isp3   (2005-11-21 11:17:00) [1]


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.


---

LionMen   (2005-11-21 08:05:00) [2]

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

procedure TForm1.FormCreate(Sender: TObject);
begin

Edit1.Text:=TcpClient1.LocalHostName;
end;

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

---

Tonich   (2005-11-18 12:51:00) [3]

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

GetComputerName()

---

palva   (2005-11-18 12:33:00) [4]

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

---

Tonich   (2005-11-18 11:56:00) [5]

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

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

---

Наверх