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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...

Important Information

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