Здравствуйте. Помогите разобраться с одной задачей.
Есть программа(выполняет небольшие арифметические действия), лежит она на сервере, оттуда же и запускается. У наших компов есть имена типа N-1238, N-1500. Можно ли сделать так, чтобы вшить в прогу определенные имена компов, для которых возможен запуск? У меня есть база имен компьютеров, соответствующих именам людей. То есть:
N-1238 := Никита
N-1256 := Сергей
N-1110 := Николай
Можно ли в статус баре выводить сразу имя пользователя (например "Никита")?
А для всех остальных чтобы отображалось сообщение "Вы не имеете прав на пользование данной программой. Попробовать 1 минутную пробную версию". И чтобы в статус баре шел обратный отсчет 1 минуты и программа закрывалась. Что Вы думаете насчет такого?
Нашел функцию определения имени компьютера. Смог вывести имя самого компьютера в статусбар:
Код:
Function ReadComputerName:string;
var
i:DWORD;
p:PChar;
begin
i:=255;
GetMem(p, i);
GetComputerName(p, i);
Result:=String(p);
FreeMem(p);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[2].Text:= 'Сессия пользователя '+ ReadComputerName;
end;
Благодарю всем, кто поможет.