Delphi 10.1 Berlinで「共有フォルダ」に安全にアクセスする方法は？

Question

私たちのアプリケーションは、データ操作のインポートまたはエクスポートにShared Folderを使用しています。多くのワークステーションは、アプリケーションからこれらの共有ロケーションにアクセスします。

共有フォルダとアプリケーションからこの共有フォルダにアクセスするプロセスを保護する必要があります。

Network Serviceアカウントを使用して共有フォルダに接続しようとするサンプルアプリケーションを作成しようとしましたが、失敗しました。同じものがStandard Domain Userと一緒に働いています。

コードスニペット：

Result := LogonUser(PChar(User), PChar(Domain), 
    PChar(Password), LogonType, LogonProvider, TokenHandle); 

    if Result then 
    begin 
    Result := ImpersonateLoggedOnUser(TokenHandle); 
    end; 

誰でもこのワークフローの確保について、他の提案を持っていますか？

更新： Network Serviceアカウントを使用する可能性がありますが、これも失敗します。

>runas /user:"NT AUTHORITY\Network Service" "C:\Windows\system32\notepad.exe" 
Enter the password for NT AUTHORITY\Network Service: 
RUNAS ERROR: Unable to acquire user password 

Answer 1

あなたは共有を追加するためにWindows API関数WNetAddConnection2を使用する必要があります。 リンク先ページの下部にあるサンプルコードを参照してください。 追加後、その共有フォルダにアクセスできます。

WNetCancelConnection2でアクセスした後に接続を削除することを忘れないでください。