小编use*_*602的帖子

我试图列出目录中名称的所有文件,但无法做到.有没有办法列出目录中名称的所有文件？

提前致谢.

我们使用"GetWindowsVersionEx"函数来提取Windows中的构建版本值.它在所有操作系统中都运行良好,但在最近发布的Windows 2012-R2中,它输出错误.实际构建版本为6.3,但仅显示为6.2.所以,当我做了一些研究时,我找到了以下链接来解决问题.但是,我不明白如何在inno设置代码中实现这一点.

帮助赞赏.

链接:http: //msdn.microsoft.com/en-us/library/windows/desktop/dn302074%28v=vs.85%29.aspx

[Setup]
AppName=My Program
AppVersion=1.5
DisableProgramGroupPage=yes
DefaultGroupName=My Program

OutputDir=c:\output
DefaultDirName={sd}\MYPROG
UninstallDisplayIcon={app}\MyProg.exe


[code]
var
 Version: TWindowsVersion;
function InitializeSetup(): Boolean;
begin
             GetWindowsVersionEx(Version);
             SuppressibleMsgBox('Major='+ IntToStr(Version.Major)+ ' Minor='+IntToStr(Version.Minor),mbCriticalError, MB_OK, MB_OK);

end;

我的要求是验证用户输入的密码是否是他登录的正确密码.所以,我写了下面的代码,但总是说"没有登录".有帮助吗？

var
    DomainName,UserName,BackwardSlashString,DomainUserName : String;
    ServerDetailsInputPage : TInputQueryWizardPage;
    hToken, LoginOk : INTEGER; 

function LogonUser(lpszUsername,lpszDomain,lpszPassword: string; 
    dwLogonType,dwLogonProvider: INTEGER; var hToken: INTEGER): INTEGER;
external 'LogonUserA@advapi32.dll stdcall';

procedure InitializeWizard();
begin
    DomainName:= ExpandConstant(GetEnv('USERDOMAIN'));
    UserName := ExpandConstant( +GetUserNameString);
    BackwardSlashString := '\'
    DomainUserName := DomainName + BackwardSlashString + UserName;
    ServerDetailsInputPage := 
       CreateInputQueryPage(wpWelcome,'','','Please enter following data and click Next.');
    ServerDetailsInputPage.Add('IP Address',False);
    ServerDetailsInputPage.Add('Port Number',False);
    ServerDetailsInputPage.Add('Domain Name\User Name',False);
    ServerDetailsInputPage.Add('Password',True);
    ServerDetailsInputPage.Values[1] := '80';
    ServerDetailsInputPage.Values[2] := DomainUserName;
end;

function RunAsUser(): BOOLEAN; 
var
    Passwd : String;
begin
    DomainName := ExpandConstant(GetEnv('USERDOMAIN'));
    UserName := …