Имя компа

[SERG1980]

Сообщение от JRcoker

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

Мягко говоря

procedure TForm1.Create(Sender: TObject);   
var   
size:DWORD;   
buff:PChar;   
name:string;   
begin   
  size:=255;   
  GetMem(buff, size);   
  GetComputerName(buff, size);   
  name:=String(buff); 
  if name<>'666' then
  begin
    MessageBox(0,'Извините, но таких не знаем','Ошибка',
    MB_ICONERROR+MB_OK+MB_SYSTEMMODAL);
    close;//выход из программы
  end; 
end;

[AlDelta]

JRcoker, учи основы программирования http://delphibasics.ru/If.php
А потом уже пытайся воплощать свои мЕга-идеи в жизнь...

[JRcoker]

SERG1980 пасиб....AlDelta да я и учу....

SERG1980 чёто не так работает я ввёл своё имя компа и он мне выводит что меня не знает...

[Terran]

Если у тебя в имени компьютера присуствуют буквы, то они будут все большими. Или добавь Edit на форму и строчку: edit1.Text:=Name; после строчки name:=String(buff); и узнаешь точно с каким именем ты сравниваешься.

[JRcoker]

ВСё пасиба сообразил.....=)))))))000