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);
var
s: string;
k: integer;
hProv: TProvHandle;
begin
k:=ContList.ItemIndex;
if (k>=0) and (k<ContList.Count) then begin
s:=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

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.