Jump to content
Sign in to follow this  
Guest GoshaSH

Программное Удаление Контейнера

Recommended Posts

Guest GoshaSH

На диске существует контейнер "c:/temp/infotec/sgn-4e20-6af0-95af-5fdb". Пытаюсь программно его удалить. Вот кусок кода:

procedure TContForm.DelButtonclick(Sender: TObject);
s: string;
k: integer;
hProv: TProvHandle;
if (k>=0) and (k<ContList.Count) then begin
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)
MessageBox(Handle,PChar('Ошибка удаления '#13#10+'"'+
SysErrorMessage(GetLastError)+'"'),'Ошибка', MB_OK or MB_IConerror);

Контейнер удаляется, но функция все равно выдает ошибку "Не удается найти указанный файл". Это баг и фича?

P.S. WinXP SP3, VipNet CSP 3.2

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  


Important Information

By using this site, you agree to our Terms of Use.