Гость GoshaSH Опубликовано 20 Октября 2015 Жалоба Поделиться Опубликовано 20 Октября 2015 На диске существует контейнер "c:/temp/infotec/sgn-4e20-6af0-95af-5fdb". Пытаюсь программно его удалить. Вот кусок кода:procedure TContForm.DelButtonclick(Sender: TObject);vars: string;k: integer;hProv: TProvHandle;begink:=ContList.ItemIndex;if (k>=0) and (k<ContList.Count) then begins:=ContList.Items[k];if MessageBox(Handle,PChar('Вы уверены, что хотите удалить контейнер "'+s+'"?'),'Вопрос', MB_ICONWARNING or MB_YESNO)=mrYes then begin if CryptAcquireContext(hProv,s,FProvName,FProvType,CRYPT_DELETEKEYSET or KeySet) then GetContainers(FProvName,FProvType) else MessageBox(Handle,PChar('Ошибка удаления '#13#10+'"'+ SysErrorMessage(GetLastError)+'"'),'Ошибка', MB_OK or MB_IConerror);end;end;end;Контейнер удаляется, но функция все равно выдает ошибку "Не удается найти указанный файл". Это баг и фича?P.S. WinXP SP3, VipNet CSP 3.2 Цитата Ссылка на комментарий Поделиться на других сайтах Прочее
Рекомендуемые сообщения
Присоединиться к обсуждению
Вы можете ответить сейчас, а зарегистрироваться позже. Если у вас уже есть аккаунт, войдите, чтобы ответить от своего имени.