Имя компа

[JRcoker]

Вобщем решил реализовать такую идею...
Хочу зделать чтобы программа запускалась только на компе с определённым именем компа и рабочий группой...Но вот ка кэто зделать увы не догоняю...

[Greblin]

Функция GetComputerName

[JRcoker]

Да это я знаю....Мне нада зделать чтото типа если имя компа не "666" то вылезит MessageBox с надписью типа я тебя не знаю...

[Greblin]

Ну дык сравниваешь
А если тебе нужна защита от несанкционированного копирования, так это обсуждается в соседней теме

[JRcoker]

Не совсем то...Мне нужно зделать чтото придёлённое типа смотря какое имя...)

[JRcoker]

Ну так ктонибудь поможет мне кодиком?...))))

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var
size:DWORD;
buff:PChar;
name:string;
begin
  size:=255;
  GetMem(buff, size);
  GetComputerName(buff, size);
  name:=String(buff);
end;

Тебе же уже дали ответ. В переменной name имя компьютера.

P.s.:

Ну так ктонибудь поможет мне кодиком?...))))

А мозгиком пошевелить наверное трудно...

[JRcoker]

дА НЕТ...Как получит имя компа я знаю....Мне надо что программа проверила имя компа если оно не является например "666" то он выдаст MessageBox и прогу вырубит....)

[Ring0Sn]

ТС ты бы тогда конкретнее обрисовал задачу, а то несовсем ясно что надо...
Если просто сравнить то тебе уже ответили:
1 получаешь имя компа:
2 сравниваешь: если имя <> '666' то делаешь Halt

[JRcoker]

Я топор,можно кодом?..