Delphi/pascal вопросы - ответы. - Страница 9 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 13.02.2011, 17:36   #73 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

что за ошибки? и насчет последнего:
может всетаки так надо
Код:
Image1.Picture.Bitmap.LoadFromFile(StringGrid1.Rows[i].GetText);
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 13.02.2011, 18:06   #74 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

что за чертовщина

s:=StringGrid1.Rows[arow].GetText;
LoadFromFile('C:\1.jpg'); работает
LoadFromFile(s); не работает

в s содержится c:1\.jpg
Radzhab вне форума   Ответить с цитированием
Старый 13.02.2011, 18:21   #75 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

C:\1.jpg -// LoadFromFile('C:\1.jpg'); работает
c:1\.jpg -//в s содержится c:1\.jpg

разницу чуешь?)
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 13.02.2011, 18:45   #76 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Спасибо Nekitos'у за помощь))
Следующий вопрос:
Допустим есть программа, которая расчитана на 10 запусков. При запуске проги число 10 шифруется и записывается в реестр. При каждом запуске проги идет считывание ключа, расшифровка и декремент. Подскажите плиз как это все реализовать.

Последний раз редактировалось Radzhab; 13.02.2011 в 22:19.
Radzhab вне форума   Ответить с цитированием
Старый 14.02.2011, 08:16   #77 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

первые ссылки =)
Google://delphi реестр
Google://delphi base64 (вполне сойдет)
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 14.02.2011, 08:56   #78 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Код:
var n:integer;  //количество запусков будем считывать сюда
    Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  with Reg do
  begin
    OpenKey('software', True);
    OpenKey('TrialProg', True);    //HKEY_CURRENT_USER\Software\TrialProg
    If ValueExists('MaxRun') then  //если возвращает значение true, значит есть параметр с 
     //именем MaxRun и для него определено значение
    begin
      n:=ReadInteger('MaxRun')-1;  //отнимаем ещё один запуск
      if n>=0 then WriteInteger('MaxRun', N); //записываем в реестр
    end else   //возвращает false значит это первый раз, либо пользователь удалил))))
    begin
      N:=10;   //задаём кол-во запусков
      WriteInteger('MaxRun', N);  //записываем в реестр
    end;
    Free;
  end;
  If n>0 then  //больше 0 значит запускаем программу
  begin
    Application.Create(TForm1, Form1);
  end else  //если не больше 0, значит
  begin
    //говарим пользователю что срок лицензии закончился
    MessageBeep(MB_ICONASTERISK);   
    MessageDlg('Срок лицензии закончился.', mtInformation, [mbOk], 0);
  end;
end;
Вот что нашел... вроде с книги,.. но криво работает
Radzhab вне форума   Ответить с цитированием
Старый 14.02.2011, 10:33   #79 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

в каком месте криво?
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 14.02.2011, 11:51   #80 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Тупо , но всё-же покажите как убрать скроллбар в ListView.
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Старый 14.02.2011, 14:00   #81 (permalink)
SOCKS5
 
Аватар для Radzhab
 
Регистрация: 16.08.2009
Сообщений: 214
Member ID: 2173
ICQ 29755555

Репутация: 278
Репутация: 278
Сказал(а) спасибо: 153
Поблагодарили 248 раз(а) в 145 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

NekitoSP, хоть счетчик и сбрасывается до 0 но программа включается все равно...

Добавлено через 2 минуты 38 секунд

Krebs, нашел в инете удаление горизонтального скруллбара
первый пример
два
Radzhab вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы которые вы хотели задать, но боялись спросить 2FED Флейм 210 12.05.2015 21:43
Delphi. С чего же начать? Xsena Программирование 25 12.10.2009 19:04
Ответы на Частозадаваемые Вопросы :) aka_NooB Информация об ICQ 0 27.05.2009 23:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.