windows之家1.delphi主窗口在工程中比登录窗口先创建,怎样重新登录
在主窗体显示前，先检查是否登录。
如果已经登录，则直接显示主窗体。如果没有登录，则用代码创建并显示登录窗体，并在登录窗体中验证用户信息。
其中，最关键的是登录标志FIsLogined。 要实现重新登录，只要FIsLogined:=False。
下面是注销过程procedure TFormMain。Logout;begin //注销 Hide; FIsLogined := False; UName:=''; Show;end；以下是从从实际的代码摘录下来的：procedure TFormMain。
FormShow(Sender: TObject);begin if not CheckLogined then //检查是否已经登录 begin //如果未登录成功，退出系统 FIsLogined := False； //设置标志，表明未登录 Close; end else begin //如果登录成功， Enabled := True; Visible := True; end;end;function TFormMain。 CheckLogined: boolean;var MResult: Integer;begin//检查是否登录 if FIsLogined then begin //如果已经登录，则跳出函数 Result:=True; Exit; end; //else 如果没有登录，则 UName：=''；//登录用户名 Application。
CreateForm(TFormLogin, FormLogin)；//创建登录窗口 MResult:= FormLogin。ShowModal；//显示，并返回窗口返回按钮值 if MResult = mrOK then //如果点击“确定”，则登录窗口已经核对无误，可以登录 begin //成功登录 FIsLogined := True； //设置标志，表明登录成功 Result := True; UName:=FormLogin。
EditName。Text; 。
end else begin//用户选择取消登录 FIsLogined := False; Result := False; end; FormLogin。
Free；//释放登录窗体end;。
2.〔delphi编程〕在windows中如何判断某个账户是管理员权?
照着网上这个思路改呗，这个是判断当前用户的：constSECURITY_NT_AUTHORITY: = (Value: (0, 0, 0, 0, 0, 5));SECURITY_BUILTIN_DOMAIN_RID = $00000020;DOMAIN_ALIAS_RID_ADMINS = $00000220;function TForm1。
IsAdmin: Boolean;var hAccessToken: THandle; ptgGroups: PTokenGroups; dwInfoBufferSize: DWORD; psidAdministrators: PSID; x: Integer; bSuccess: BOOL;begin Result := False; bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True, hAccessToken); if not bSuccess then begin if GetLastError = ERROR_NO_TOKEN then bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hAccessToken); end; if bSuccess then begin GetMem(ptgGroups, 1024); bSuccess := GetTokenInformation(hAccessToken, TokenGroups,ptgGroups, 1024, dwInfoBufferSize); CloseHandle(hAccessToken); if bSuccess then begin (SECURITY_NT_AUTHORITY, 2, SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, psidAdministrators); {$R-} for x := 0 to ptgGroups。 GroupCount - 1 do if EqualSid(psidAdministrators, ptgGroups。
Groups[x]。 Sid) then begin Result := True; Break; end; {$R } FreeSid(psidAdministrators); end; FreeMem(ptgGroups); end;end;。
3.delphi7 安装在 windows10下 字模糊怎么办
首先，在Win10的桌面点击鼠标右键，选择“显示设置”
在“显示设置”的界面下方，点击“高级显示设置”
在“高级显示设置”的界面中，点击下方的“文本和其他项目大小的调整的高级选项”
然后，点击“更改项目的大小”下面的“设置自定义缩放级别”
这里，选择100%，就代表着正常的缩放级别。所以，改成100%就好了，但要记得点击“确定”，在点击“应用”
然后，计算机会提示你“你必须注销计算机才能应用这些修改”，点击“立即注销”，之后从新进入Windows10，此时程序上的模糊字体就变得清晰了。
转载请注明出处windows之家 » delphi7在win10下怎么设置