Вылазит ошибка
[Ссылки могут видеть только зарегистрированные пользователи. ]
все правельно написанно
также вылазит ошибка в команде
WebBrowser1.GoBack
.GoHome
.Forward
и так далее.
У тебя эти элементы не обьявлены. Возможно не подключен какой-либо модуль из нужных.
Глупый вопрос: у тебя мемо вообще присутствует на форме?))
________________
Слыш, спасибка есть? Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Учу Delphi,C++,PHP на [Ссылки могут видеть только зарегистрированные пользователи. ]
я в делфи вообще не шарю,и Паскаль не очень хорошо знаю
Так зачем ты сюда пишешь не зная ничего!?!
Код - это сплошной бред... Мне лень объяснять тебе, что не так, потому что тебе наверное всё равно, поэтому вот тебе рабочий код:
Код:
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;
P.S. Кинь на форму компонент Memo
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).