Wie Anzeige Windows Sicherheitsdialog

Question

Ich habe eine Anwendung, die manchmal auf Fileshare im lokalen Netzwerk zugreifen. In diesem Fall wird der Pfad in fEBookPath gespeichert. Wenn Benutzer Login und Passwort eingegeben hat, bevor alles in Ordnung ist. Aber wenn FindFirst nicht 0 zurückgibt. In diesem Fall möchte ich den gleichen Sicherheitsdialog anzeigen, den Windows Explorer anzeigt. Gefällt Ihnen dieses

Mein vereinfachten Code

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

Answer 1

sollte dieser Code tun, was ich will

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;