![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Где запущена программа? [D6, IB5.x]
Igor_ © (2002-02-27 13:24:00)Есть клиент серверная БД. Как клиентской программой определить на каком компьютере она работает (на том, где стоит сервер InterBase или просто на компьютере в сети).
Igor_ (2002-02-27 16:47:00) [1]Спасибо, помогло. Только i:Cardinal -иначе ругается
Praco (2002-02-27 15:54:00) [2]var s : PChar;
i : Integer;
begin
i := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(s,i);
if GetComputerName(s, i) then
Caption := s;
FreeMem(s);
end;
Igor_ (2002-02-27 14:44:00) [3]Если не сложно, напиши пожалуста с какими параметрами она вызывается, а то я что-то разобраться не могу
Praco (2002-02-27 13:42:00) [4]GetComputerName сравнить с именем IB сервера