Где запущена программа?

← →
Igor_ © (2002-02-27 13:24) [0]

Есть клиент серверная БД. Как клиентской программой определить на каком компьютере она работает (на том, где стоит сервер InterBase или просто на компьютере в сети).

← →
Praco © (2002-02-27 13:42) [1]

GetComputerName сравнить с именем IB сервера

← →
Igor_ © (2002-02-27 14:44) [2]

Если не сложно, напиши пожалуста с какими параметрами она вызывается, а то я что-то разобраться не могу

← →
Praco © (2002-02-27 15:54) [3]

var s : PChar;
i : Integer;
begin
i := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(s,i);
if GetComputerName(s, i) then
Caption := s;
FreeMem(s);
end;

Спасибо, помогло. Только i:Cardinal -иначе ругается

Где запущена программа? Найти похожие ветки