VPF::помогите с нерабочим кодом - Форум программистов

Teran

Дата 15.9.2005, 08:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Почему у меня код выдает ошибку "Accessviolation at address 7907f666 in module 'advapi32.dll'. Read of address 00000004."

Вот и сам код

Код


const
MAXFILTERLEN = 128;
NUMCOLUMNS=7;
NUMRECENTFILTERS =    5;

type
    TFilterDefinition = record
    posversion: integer;
    left:       integer;
    top:        integer;
    width:      integer;
    height:     integer;
    column: Array[0..NUMCOLUMNS-1] of DWORD;
    historydepth: DWORD;
    maximized:    BOOLEAN;
    clocktime:    BOOLEAN;
    showms:       BOOLEAN;
    ontop:        BOOLEAN    ;
    highlightfg:  DWORD;
    highlightbg: DWORD;
    logerror: BOOLEAN;
    logsuccess: BOOLEAN;
    logreads: BOOLEAN;
    logwrites: BOOLEAN;
    logaux:    BOOLEAN;
    font:    LOGFONT;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var
newPositionInfo: TFilterDefinition;
hKey1:    HKEY;
ParamSize, newPosSize:    DWORD;
    nextString: Char;
    recentExList: Array[0..(MAXFILTERLEN+1)* NUMRECENTFILTERS + 1] of Char;
    recentInList: Array[0..(MAXFILTERLEN+1)* NUMRECENTFILTERS + 1] of Char;
    recentHiList: Array[0..(MAXFILTERLEN+1)* NUMRECENTFILTERS + 1] of Char;
 regtype :PDWORD;

begin
    RegCreateKey(HKEY_CURRENT_USER,'Software\\RegPhysician', hKey1 );
  RegOpenKeyEx(HKEY_CURRENT_USER,'Software\\RegPhysician',0,KEY_ALL_ACCESS,hkey1);
    RegQueryValueEx( hKey1,'Settings', nil, nil, PBYTE(@newPositionInfo),
                PDWORD(sizeof(@newPositionInfo)));
    RegQueryValueEx( hKey1,'InFilters', nil, regtype, PBYTE(@recentInList),
                    PDWORD(sizeof(@recentInList)));
    RegQueryValueEx( hKey1,'ExFilters', nil, regtype, PBYTE(@recentExList),
                PDWORD(sizeof(@recentExList)));
    RegQueryValueEx( hKey1,'HiFilters', nil, regtype, PBYTE(@recentHiList),
                PDWORD(sizeof(@recentHiList)));
    CloseHandle( hKey1 );

CheckBox1.Checked:=newPositionInfo.logsuccess;
CheckBox2.Checked:=newPositionInfo.logerror;
CheckBox3.Checked:=newPositionInfo.logreads;
CheckBox4.Checked:=newPositionInfo.logwrites;
CheckBox5.Checked:=newPositionInfo.logaux;
end;

Это сообщение отредактировал(а) Girder - 15.9.2005, 09:41

--------------------

Ни цего не понимаю

z-END

Дата 15.9.2005, 08:54 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

кнопка код конечно-же не для тебя....

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Teran

Дата 15.9.2005, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Ругается при выполнении строки c RegQueryValueEx
Добавлено @ 08:54
про кнопку забыл

--------------------

Ни цего не понимаю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »