[Karsh]

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

а как зделать атрибут у проги скрытный?

посмотри внимательно на функцию FileSetReadOnly в модуле SysUtils:

Код:

function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;
var
  Flags: Integer;
begin
  Result := False;
  Flags := GetFileAttributes(PChar(FileName));
  if Flags = -1 then Exit;
  if ReadOnly then
    Flags := Flags or faReadOnly
  else
    Flags := Flags and not faReadOnly;
  Result := SetFileAttributes(PChar(FileName), Flags);
end;

А теперь вопрос: как изменить эту функцию для твоего случая?
Подсказка: я в коде жирным выделил строки, в которых нужно коечто заменить.