Windows 7에서 Inno 설치 프로그램의 "net use"명령을 실행하는 방법은 무엇입니까?

Question

나는 Inno Setup 설치 프로그램에서 net use을 호출하여 공유 서버에 연결하려고합니다. 설치 관리자는 Windows XP에서 실행 중이지만 Windows 7에서는 실행되지 않는 서버에 연결할 수 있습니다. 동일한 명령을 입력하면 서버가 Windows 7에 연결되지만 설정은 admin 권한으로 실행됩니다. . 내가 Exec 또는 ShellExec 스크립트 기능을 통해 다음과 같은 net use 명령을 사용하고

:

[Code] 
var 
    ErrorCode: Integer; 
    cmdString: String; 
    intvalue: Integer; 
    str: String; 

function InitializeSetup(): Boolean; 
begin 
    cmdString := '/c net use \\servername password /USER:username'; 
    ShellExec('', ExpandConstant('{cmd}'), cmdString , '', SW_SHOWNORMAL, 
    ewWaitUntilTerminated, ErrorCode) 
    if (ErrorCode = 0) then 
    begin 
    MsgBox(ExpandConstant('{cmd}'), mbInformation, MB_OK); 
    end; 
end; 

수있는 사람 : 사실

/c net use \\servername password /user:username 

, 여기에 net use 명령 호출을 보여주는 스크립트의 일부입니다 Windows 7에서 Inno Setup의 net use을 사용하는 방법을 제안 하시겠습니까? 우리는 단지 서버에 연결하여 사용자가 이름과 암호를 입력하게하려는 것입니다.

감사합니다.

Answer 1

자격 증명 대화 상자를 불러오는 원격 리소스에 연결하는 방법은 무엇입니까? 실제로이 답변의 제목이 말하는 것처럼, 당신이 CONNECT_INTERACTIVE 및 CONNECT_PROMPT 플래그와 함께 WNetUseConnection 함수 호출을 사용하는 것이 좋을 것 귀하의 질문에 다른보기를 사용

. 빈 사용자 ID 및 암호 매개 변수와 함께 사용하면 자격 증명 대화 상자가 호출됩니다. Inno Setup 스크립트에서 다음과 같이 보일 수 있습니다 :

[Setup] 
AppName=My Program 
AppVersion=1.5 
DefaultDirName={pf}\My Program 

[Code] 
#ifdef UNICODE 
    #define AW "W" 
#else 
    #define AW "A" 
#endif 
const 
    NO_ERROR = 0; 
    ERROR_ACCESS_DENIED = 5; 
    ERROR_BAD_NET_NAME = 67; 
    ERROR_ALREADY_ASSIGNED = 85; 
    ERROR_INVALID_PASSWORD = 86; 
    ERROR_INVALID_PARAMETER = 87; 
    ERROR_MORE_DATA = 234; 
    ERROR_NO_MORE_ITEMS = 259; 
    ERROR_INVALID_ADDRESS = 487; 
    ERROR_BAD_DEVICE = 1200; 
    ERROR_NO_NET_OR_BAD_PATH = 1203; 
    ERROR_BAD_PROVIDER = 1204; 
    ERROR_EXTENDED_ERROR = 1208; 
    ERROR_NO_NETWORK = 1222; 
    ERROR_CANCELLED = 1223; 
    RESOURCETYPE_ANY = $00000000; 
    RESOURCETYPE_DISK = $00000001; 
    RESOURCETYPE_PRINT = $00000002; 
    CONNECT_UPDATE_PROFILE = $00000001; 
    CONNECT_INTERACTIVE = $00000008; 
    CONNECT_PROMPT = $00000010; 
    CONNECT_REDIRECT = $00000080; 
    CONNECT_COMMANDLINE = $00000800; 
    CONNECT_CMD_SAVECRED = $00001000; 
type 
    TNetResource = record 
    dwScope: DWORD; 
    dwType: DWORD; 
    dwDisplayType: DWORD; 
    dwUsage: DWORD; 
    lpLocalName: string; 
    lpRemoteName: string; 
    lpComment: string; 
    lpProvider: string; 
    end; 
    TResourceType = (
    rtAny, 
    rtDisk, 
    rtPrinter 
); 

function WNetUseConnection(hwndOwner: HWND; const lpNetResource: TNetResource; 
    lpPassword, lpUserID: string; dwFlags: DWORD; lpAccessName: PAnsiChar; 
    var lpBufferSize, lpResult: DWORD): DWORD; 
    external 'WNetUseConnection{#AW}@mpr.dll stdcall'; 

function UseConnection(const ARemoteName: string; 
    AResourceType: TResourceType): DWORD; 
var 
    BufferSize: DWORD; 
    ResultFlag: DWORD; 
    NetResource: TNetResource; 
begin 
    case AResourceType of 
    rtAny: NetResource.dwType := RESOURCETYPE_ANY; 
    rtDisk: NetResource.dwType := RESOURCETYPE_DISK; 
    rtPrinter: NetResource.dwType := RESOURCETYPE_PRINT; 
    end; 
    NetResource.lpLocalName := ''; 
    NetResource.lpRemoteName := ARemoteName; 
    NetResource.lpProvider := ''; 
    BufferSize := 0; 
    Result := WNetUseConnection(WizardForm.Handle, NetResource, 
    '', '', CONNECT_INTERACTIVE or CONNECT_PROMPT, '', 
    BufferSize, ResultFlag); 
end; 

procedure UseConnectionButtonClick(Sender: TObject); 
var 
    S: string; 
    ResultCode: DWORD; 
begin 
    ResultCode := UseConnection('\\MySuperSecret\Place', rtDisk); 
    case ResultCode of 
    NO_ERROR: S := 'NO_ERROR'; 
    ERROR_ACCESS_DENIED: S := 'ERROR_ACCESS_DENIED'; 
    ERROR_ALREADY_ASSIGNED: S := 'ERROR_ALREADY_ASSIGNED'; 
    ERROR_BAD_DEVICE: S := 'ERROR_BAD_DEVICE'; 
    ERROR_BAD_NET_NAME: S := 'ERROR_BAD_NET_NAME'; 
    ERROR_BAD_PROVIDER: S := 'ERROR_BAD_PROVIDER'; 
    ERROR_CANCELLED: S := 'ERROR_CANCELLED'; 
    ERROR_EXTENDED_ERROR: S := 'ERROR_EXTENDED_ERROR'; 
    ERROR_INVALID_ADDRESS: S := 'ERROR_INVALID_ADDRESS'; 
    ERROR_INVALID_PARAMETER: S := 'ERROR_INVALID_PARAMETER'; 
    ERROR_MORE_DATA: S := 'ERROR_MORE_DATA'; 
    ERROR_INVALID_PASSWORD: S := 'ERROR_INVALID_PASSWORD'; 
    ERROR_NO_MORE_ITEMS: S := 'ERROR_NO_MORE_ITEMS'; 
    ERROR_NO_NET_OR_BAD_PATH: S := 'ERROR_NO_NET_OR_BAD_PATH'; 
    ERROR_NO_NETWORK: S := 'ERROR_NO_NETWORK'; 
    end; 
    MsgBox(S, mbInformation, MB_OK); 
end; 

procedure InitializeWizard; 
var 
    UseConnectionButton: TNewButton; 
begin 
    UseConnectionButton := TNewButton.Create(WizardForm); 
    UseConnectionButton.Parent := WizardForm; 
    UseConnectionButton.Left := 8; 
    UseConnectionButton.Top := WizardForm.ClientHeight - UseConnectionButton.Height - 8; 
    UseConnectionButton.Width := 155; 
    UseConnectionButton.Caption := 'Use connection...'; 
    UseConnectionButton.OnClick := @UseConnectionButtonClick; 
end;