Вылазит ошибка
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
все правельно написанно
также вылазит ошибка в команде
WebBrowser1.GoBack
.GoHome
.Forward
и так далее.
=Kostanakis=
22.09.2011, 16:59
У тебя эти элементы не обьявлены. Возможно не подключен какой-либо модуль из нужных.
Глупый вопрос: у тебя мемо вообще присутствует на форме?))
|Sur|
22.09.2011, 17:06
я в делфи вообще не шарю,и Паскаль не очень хорошо знаю
VeTaL_UA
22.09.2011, 17:32
я в делфи вообще не шарю,и Паскаль не очень хорошо знаю
Так зачем ты сюда пишешь не зная ничего!?!
Код - это сплошной бред... Мне лень объяснять тебе, что не так, потому что тебе наверное всё равно, поэтому вот тебе рабочий код:
procedure TForm1.Button1Click(Sender: TObject);
var
memory_status:TMemoryStatus;
begin
memory_status.dwLength:=SizeOf(memory_status);
GlobalMemoryStatus(memory_status);
with memory_status do
begin
Memo1.Lines.Add(inttostr(dwMemoryLoad));
Memo1.Lines.Add(inttostr((dwTotalPhys) div 1024));
Memo1.Lines.Add(inttostr((dwAvailPhys) div 1024));
Memo1.Lines.Add(inttostr((dwTotalPageFile) div 1024));
Memo1.Lines.Add(inttostr((dwAvailPageFile) div 1024));
Memo1.Lines.Add(inttostr((dwTotalVirtual) div 1024));
Memo1.Lines.Add(inttostr((dwAvailVirtual) div 1024));
end;
end;