и подключи модуль math

procedure TForm1.FormCreate(Sender: TObject);
var i,a,ss,res,deg:integer;
begin
res:=1; //рез-ат
dig:=2; //число
deg:=10; //степень
for i:=1 to deg do
begin
res:=1;
for a:=1 to i do res:=res*dig;
showmessage(inttostr(res));
end;
end;

что за бред? а если у пользователи сгорит видеокарта/материнка/системник/квартира, он переустановит систему, то все твои способы идут лесом.

з.ы. плохим тоном является навешивание говнозащит, на говнопрограммы.

Hellsp@wn ну а где твой вариант? я хотя бы предложил.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

я предложил же, даже, целых 2 варианта

1-ый yandex.ru запрос: delphi получить номер жёсткого диска
2-ой yandex.ru запрос: скачать upx

Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239

кидаешь таймер на форму, устанавливаешь в секундах... 900000 - 15 минут.
далее кидаешь стандартный компонент IdHTTP1 из закладки Indy Clients.
В таймере пишешь следующее:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdHTTP1.Get('http://lol.com');
end;

всё... каждые 15 минут стучит на сайт.

начал изучать с++, компилирую в Code:Bloks 8.02
в книге пример:

#include <iostream.h>
int main()
{
for (int i = 32; i<128; i++);
cout << (char) i;
return 0;
}

при компиляции выдает:


C:\Program Files\CodeBlocks\MinGW\bin\..\lib\gcc\mingw32\3.4. 5\..\..\..\..\include\c++\3.4.5\backward\backward_ warning.h|32|warning: #warning This file includes at least one deprecated or antiquated header. Please consider using one of the 32 headers found in section 17.4.1.2 of the C++ standard. Examples include substituting the <X> header for the <X.h> header for C++ includes, or <iostream> instead of the deprecated header <iostream.h>. To disable this warning use -Wno-deprecated.|

.cpp||In function `int main()':|

.cpp|6|error: name lookup of `i' changed for new ISO `for' scoping|

.cpp|5|error: using obsolete binding at `i'|

||=== Build finished: 2 errors, 1 warnings ===|

я так понял что это связано с какимито новвоведениями в компиляторе, в вижуал с++ экспресс 2008 тож самое, по книге обучение на вижуал с++ 6.0

iffan, разделом ошибся.
Убери в подключении хедера ".h", должен пропасть первый варнинг.
пробуй так.
и добавь на всякий случай