Защита паролем

[GAGARIN-NEW]

НЕТ ! только IE 6 и DM 5 ! Больше ничего ставитиь небуду ! и тах много хлама ! а эмоции потому что уже раз 5 писал что немогу качать и модераторы тоже ничего не смогли сделать !точнее ничем помочь !у меня DM прописался в реестре както так что если нажать в IE на кнопочку скачать (итд!) то когда включен DM открывается именно он ! А если выключить DM то открывается рабочий стол ((( а удалять переустанавлоивать кадый раз DM я нехочу ! да и не пробовал ! может это ничего не даст ...((

ЩЯ посмотрю код....а добавлять в uses надо чегото ?

[AlDelta]

...НЕТ ! только IE 6 и DM 5 ! Больше ничего ставитиь небуду ! и тах много хлама ! а эмоции потому что уже раз 5 писал что немогу качать и модераторы тоже ничего не смогли сделать !...

Спасение утопающих дело рук самих утопающих

...а удалять переустанавлоивать кадый раз DM я нехочу ! да и не пробовал ! может это ничего не даст ...:

Бездарь любую проблему решит, твёрдой рукой от неё отмахнувшись (Георгий Александров)

А вообще, без обид, складывается такое впечатление, что все тебе что-то здесь должны

Там возле вложения стоит ссылка на место откуда оно взято - открываешь страницу и смотришь код (он там большой потому я его и вложил отдельным файлом)

[GAGARIN-NEW]

Я не говорю что мне тут должны ! я просто говорю что небуду свой комп захломлять !

МНЕ СЕЙЧАС НУЖНЫ ФЕНКЦИИ РАБОТЫ С ТЕКСТОМ !
http://programmersforum.ru/showthread.php?t=7603
ЗЫ необязательно так орать !

procedure TForm1.Button1Click(Sender: TObject);var  SerialNum : dword;  a, b : dword;  Buffer  : array [0..255] of char;begin  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer),    @SerialNum, a, b, nil, 0) then      Label1.Caption := IntToStr(SerialNum);end;

Вот проыедуру я уже нашол !!!

Теперь смотри ссылку !

[AlDelta]

Сообщение от GAGARIN-NEW

Я не говорю что мне тут должны ! я просто говорю что небуду свой комп захломлять !

МНЕ СЕЙЧАС НУЖНЫ ФЕНКЦИИ РАБОТЫ С ТЕКСТОМ !
http://programmersforum.ru/showthread.php?t=7603
ЗЫ необязательно так орать !

procedure TForm1.Button1Click(Sender: TObject);var  SerialNum : dword;  a, b : dword;  Buffer  : array [0..255] of char;begin  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer),    @SerialNum, a, b, nil, 0) then      Label1.Caption := IntToStr(SerialNum);end;

Вот проыедуру я уже нашол !!!

Теперь смотри ссылку !

Ссылку посмотрел, там в ответах есть всё и даже более того... внимательно изучай примеры исходного кода, который тебе предоставили

Уточни вопрос: какие именно ФЕНКЦИИ РАБОТЫ С ТЕКСТОМ тебе надо?

Не найдя консенсуса, ищите хотя бы косинус (Георгий Александров)

Муки долгих поисков с лихвой окупит миг счастливой догадки (Георгий Александров)

[Трофимов Александр]

Единственное, сразу хотел предостеречь, у мене подобная функция на защту проги стояла, так серийник менялся после форматирования (может потому что диск был логический). Поэтому проверь лучше, сошлись например не на С, а на другой(не системный, пустой диск, хотябы на Flash) форматни и посмотри не меняется ли номер. Если не так, извини, может другая функция, давно её писал.

[JTG]

Reg.OpenKeyReadOnly('\Hardware\Desc ription\System\CentralProcessor\0') ;
Result := Reg.ReadString('ProcessorNameString ');

От на это точно полагаться нельзя, я так в шутку проц на компе в универе обзозвал AMD Athlon 64 X2 6400+, потом было весело глядеть на фейс препода, когда тот в свойства системы глянул

[Alex21]

Сообщение от Трофимов Александр

Единственное, сразу хотел предостеречь, у мене подобная функция на защту проги стояла, так серийник менялся после форматирования.

Этпа функция определяет не серийник, а метку тома, которая при формате естественно меняется.
http://programmersforum.ru/showthrea...ED%EE%EC%E5%F0
Здесь уже цитировал определение серийника (зашит в винт, и дублирован на наклейке винта)