如何以编程方式更改文件关联而不需要提升

发布于 2024-10-09 23:51:21 字数 279 浏览 0 评论 0原文

当用户没有拥有管理员/提升权限时（Win XP、Vista、7），如何以编程方式更改文件关联？关于如何解决这个问题有什么想法吗？基本上我希望我的应用程序保持像现在一样精简（它不需要提升的权限来安装和运行）。目前，我提供了一个 GUI 界面，用户可以在其中更改文件关联，但如果用户的权限有限，它所做的只是显示一条消息，表明它无法执行此操作，并向其解释如何激活“运行此程序”以管理员身份”框，然后重新启动程序。如果用户有权限，那么我只需更改关联即可。

有更好的方法来做到这一点并保持“精简”吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

肩上的翅膀 2024-10-16 23:51:21

在 Windows（自 Windows 2000 起）中，您可以进行系统范围的文件关联（这需要设置提升的权限）以及每个用户的文件关联。

如果您想保持精简版，只需建立一个 per_user 文件关联即可。

查看这篇文章：文件中的更改Windows 2000 和 Windows Server 2003 中的类型和文件关联功能。

回复收藏 0 原文

梦情居士 2024-10-16 23:51:21

您可以使用 ShellExecute 生成外部实用程序。确保在您的操作中包含盾牌图标，以表明它需要提升的权限。然后它会提示用户并让他们知道它需要特殊权限。

您可以做的一件事是向您自己的应用程序添加标志，表明它将更改权限。然后使用特殊标志再次运行您的应用程序。

例如，如果您的应用程序是

MyApplication.exe，

您可以生成

MyApplication.exe /setfiles

，这只会设置文件关联，然后退出。这样您只需发送一个可执行文件。

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
var
    sei: TShellExecuteInfo;
begin
    ZeroMemory(@sei, SizeOf(sei));
    sei.cbSize := SizeOf(TShellExecuteInfo);
    sei.Wnd := hwnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := PChar('runas');
    sei.lpFile := PChar(Filename); // PAnsiChar;
    if parameters <> '' then
        sei.lpParameters := PChar(parameters); // PAnsiChar;
    sei.nShow := SW_SHOWNORMAL; //Integer;
    Result := ShellExecuteEx(@sei);
end;

You can use the ShellExecute to spawn your external utility. Make sure to include the Shield icon on your action to indicate it will require elevated permissions. It will then prompt the user and let them know it requires special permissions.

One thing you could do is add flags to your own application that indicate it will be changing permissions. And then run your application again, with the special flags.

For example if your application is

MyApplication.exe

you can spawn

MyApplication.exe /setfiles

which would only set the file associations then exit. That way you only have to ship one executable.

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
var
    sei: TShellExecuteInfo;
begin
    ZeroMemory(@sei, SizeOf(sei));
    sei.cbSize := SizeOf(TShellExecuteInfo);
    sei.Wnd := hwnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := PChar('runas');
    sei.lpFile := PChar(Filename); // PAnsiChar;
    if parameters <> '' then
        sei.lpParameters := PChar(parameters); // PAnsiChar;
    sei.nShow := SW_SHOWNORMAL; //Integer;
    Result := ShellExecuteEx(@sei);
end;

回复收藏 0 原文