Перейти к содержанию

copperhead

Пользователи
  • Постов

    587
  • Зарегистрирован

  • Посещение

Весь контент copperhead

  1. б*я, парни дайте ссылку нормальную пжлст, а то половина не скачиваеться половина завирусованая!
  2. почему сразу вирусы? просто хочу приколоться над одним человеком который очень хорошо разбирается в компах! ЗЫ и при чёт тут Клей?
  3. ну так-то не причем, просто я пишу программу через Delphi, и она в автозапуск сама добавляется.
  4. если программу(.exe) добавит в автозапуск, а потом удалить её она останется в автозапуске? как припоять файл к например explorer.exe или svhost.exe ???
  5. я понял что событие формы On.Create но хотелось бы по подробнее, а то чёт недогоняю.
  6. Ладно, в общем разобрался..ещё одно(кстати по Delphi!!!)-нужно чтобы Файл при 1-ом запуске добавлялся в автозапуск не нажимая на кнопку т.е через Form1 , как это сделать??? Искал в нете нашел разные примеры: uses Registry; procedure TForm1.FormCreate(Sender: TObject); var reg: TRegistry; begin .... Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; ...... end; uses Registry var Key:=TRegistry; begin Key:=TRegistry.Create; Key.RootKey:=HKEY_LOCAL_MACHINE; Key.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',true); Key.WriteString('AUTORUN',ExtractFilePath(Application.ExeName)+'AUTORUN.exe'); Key.CloseKey; end; 1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.N1Click(Sender: TObject); var reg: TRegistry; begin reg:= TRegistry.Create; reg.RootKey:= HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False); reg.WriteString('CopyDB',Application.ExeName); reg.CloseKey; reg.Free; end; var reg: tregistry; begin reg := tregistry.create; reg.rootkey := hkey_local_machine; reg.lazywrite := false; reg.openkey('software\microsoft\windows\currentversion\run', false); reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё} reg.closekey; reg.free; end;
  7. ахах, на счёт даты не знаю, но что это за ошибка и...почему дата такая??)
  8. Petrovichtim, вроде да, object pascal спс закомпилировал без проблем, но вот ошибка всё равно вылазит когда я проект собираю, потом пытаюсь опять компилировать не выходит(опять эта ошбка)javascript:emoticon('*49')
  9. Что за ошибка, часто вылазит. Где здесь ошибка? begin pud:=StrToInt(Edit1.Text); funt:=StrToInt(Edit2.Text); kg:=pud*16.38+funt*16.38/40; Label4.Caption:='В килограммах'; '+FloatToStr(kg)' end; <- 47 строка end. <-49 строка unit1.pas(47,1) Error: Illegal expression unit1.pas(50) Fatal: There were 1 errors compiling module, stopping ЗЫ: я в этом деле нуб жесткий , только учусь.
  10. Hover boost это внутреигровая валюта покупаешь за реальные бабки чтобы тачки покупать, бонусы разные.
  11. ber, скачай отсюда нормальный Install и не мучайся. и на счёт этого 6. на сайте http://world.needforspeed.com/home код (ex., ABCD-1234-EFGH-5678) не работает. Пишет "ОЙ у вас нету доступа к этой странице" этот код для примера там написан, для тех у кого лицензия(в коробке с игрой ключ этот есть).
  12. Hover, Решили ли же что 3 канал.Тем более каналов 50 всего на каждом "левые" есть.
  13. Hover там всего 50 каналов вроде. Irbis , first_i это из-за скорости передачи данных, у вас (как и у меня, и у всех наверное) модели машин игроков отстают(или наоборот). Например они повернули налево а отображается не правильно, получается в стену едут, а на самом деле они поворот давно проехали и на финише уже стоят)))так что лучше не вестись на это и просто ехать)Я в прошлый раз приехал первый радостный такой а таблицу смотрю по середини где-то))) tuningisto85 , arrhey23 там короче к конке поъезжаешь и выбираешь вроде приватная гонка(список из трёх строчек в правом верхнем углу , 2 выбераешь) и друзей приглашаешь.
  14. Irbis всегда пожалуйста)) мой Ник YJIAHOBKA )))
  15. Irbis .Net framework установи/обнови. Все на 3 канал. /join 3
  16. помогите подобрать античит серваку.
  17. Чувак, берешь и перетаскиваешь)))
  18. каждую неделю меняю стиль рабочего стола)))
×
×
  • Создать...