Windowsセキュリティダイアログを表示する方法

ローカルネットワーク内のファイル共有にアクセスすることがあるアプリケーションがあります。この場合、パスはfEBookPathに格納されます。前もってすべてのユーザーがログインとパスワードを入力していた場合。しかしFindFirstで0を返さないと、Windowsエクスプローラーと同じセキュリティダイアログが表示されます。私が欲しいものをこのコードが何をすべきこのWindowsセキュリティダイアログを表示する方法

私の単純化されたコード

if FindFirst(fEBookPath + '*.*', faDirectory, vSearchRecFolder) = 0 then 
begin 
    // Existing code to access fEBookPath 
end 
else 
    // Display Windows security dialog to enter login + password

出典

2017-07-17 Roland Bengtsson

[でWNetAddConnection2]（https://msdn.microsoft.com/en -us/library/windows/desktop/aa385413（v = vs.85）.aspx）+ CONNECT_PROMPTこれは接続のプロンプトと設定を行います。 –

ダイアログを表示していないネットワークリソースに接続しています。結果の型は 'DWORD'です。あなたはおそらくプリンタではなくディスクに接続したくないでしょう。そして、それらの空の文字列は単純に「無」です。 – Victoria

アドバイスありがとう –

同様

function TLogonForm.ShowSecurity: DWORD; 
var 
    UNCPath,UserName,PassWord: string; 
    NwR : TNetResource; 
begin 
    UNCPath := '\\xenapp06'; 
    NwR.lpLocalName:= ''; 
    NwR.lpProvider := ''; 
    NwR.dwType  := RESOURCETYPE_DISK; 
    NwR.lpRemoteName:= PChar(UNCPath); 
    Result := WNetAddConnection2(NwR, nil, nil, CONNECT_INTERACTIVE or CONNECT_PROMPT); 
end;

出典

2017-07-17 12:28:24

Windowsセキュリティダイアログを表示する方法

答えて

関連する問題