除了杀毒, 系统修复,还可以看看是否是DEP惹的祸?
关闭数据执行保护(即DEP)或添加delphi32exe为DEP的特例。
具体方法视你的 *** 作系统而定。 以Windows 7为例。 我的电脑-右键属性-高级系统设置-高级-性能设置-数据执行保护-添加
在Win7中,有些程序必须“以管理员身份运行”才能正常使用,一般情况下,在开启这类程序时,用鼠标右键点击程序图标,然后选择“以管理员身份运行”就可以了。虽然 *** 作简单,但Win7中的程序那么多,难免有时会忘记。那么,如何能让程序在Win7下始终以管理员身份运行呢方法其实很简单。
首先,同样用鼠标右键点击程序图标,然后选择“属性”。
打开程序属性
切换到“兼容性”选项卡,勾选最下方的“以管理员身份运行”。
勾选“以管理员身份运行此程序”
最后,点击“确定”保存设置就可以了。不过这里要提醒大家,以管理员组成员的身份运行计算机将使系统容易受到木马及其他安全风险的威胁,所以,在非必要的情况下,还是尽量不要使用这一选项,以保证Win7系统的安全。
把快捷方式发送到桌面后右键点击。然后进入属性。
进入属性后点击‘高级’。
在以管理员身份运行前面打上勾。然后确定。以后次次打开都是以管理员身份运行的。
这种运行方式好像只用于软件的快捷方式,比好压缩文件是不可用的。
也是如此。所以只能用于软件。
bit文件的话就可以单个使用管理员身份运行,但是呢不用直接运行。所以只能单个以管理员身份运行。
其他的运行方式你们就可以寻找到,只能帮你们到这里拉。
delphi通过窗口的close和窗口的show来显示和关闭窗口,需要注意主窗口关闭后其它所有窗口都会被关闭,其它窗口show之前如果是动态创建的窗口,需使用代码先创建完成后再show启动窗体。
下面是一个欢迎窗口的示例:
登陆窗体命名为:loginform找到工程文件(Project -> View Source),找到如下代码部分:
begin
ApplicationInitialize;
ApplicationCreateForm(TForm1, Form1);
ApplicationCreateForm(Tloginform, loginform);
ApplicationRun;//到此,程序执行
end
登陆窗体可以设置成在程序执行前创建:
begin
ApplicationInitialize;//初始化
loginform:=tloginformCreate(application);//动态创建启动窗体
loginformShow;//显示
loginformUpdate;
sleep(2000);//系统延时2秒
loginformHide;//2秒后启动窗体隐藏
ApplicationCreateForm(TForm1, Form1);
ApplicationCreateForm(Tloginform, loginform);
loginformFree;//释放启动窗体
ApplicationRun;
end
制作启动(欢迎)窗体的另一种方法(转载当然自己也使用过~~):
设置封面窗体属性使之符合启动封面要求。请修改下列封面窗体属性:
Position = PoscreenCenter
//运行时居于屏幕中央
Autosize = true
//自动适应Image控件,使启动完整显示
BorderStyle = bsnone
//窗口无标题栏及最大化、最小化及关闭按钮和边框
Name = splashform
程序代码解析 选择主菜单下的Project/View Scource 命令,打开这个项目的项目文件。根据下列代码进行修改。
program Project2;
uses
Forms,Controls,
Unit1 in 'Unit1pas' {MainForm},
Unit2 in 'Unit2pas' {SplashForm};
{$R res}
begin
ApplicationInitialize;
SplashForm :=TSplashFormCreate(Application);
//创建splash窗体
SplashFormShowModal;
//以模式对话框的方式显示splash窗体
if (SplashFormModalResult = mrOK) then
//如果定时时间到或单击了窗体上的图形
begin
ApplicationTitle := '测试Splash窗体';
//设置应用程序的标题
ApplicationCreateForm(TMainForm, MainForm);
//自动方式创建的主窗体
SplashFormHide;
//将启动封面窗体隐藏
SplashFormRelease;
//将启动封面窗体清除
ApplicationRun;
end;
end
随后在splash窗体上编写下列事件代码
procedure TSplashFormTimer1Timer(Sender: TObject);
begin
SplashFormModalResult:= mrOK;
//定时时刻到后的事件处理程序
end;
procedure TSplashFormImage1Click(Sender: TObject);
begin
SplashFormModalResult:= mrOK;
//单击splash窗体上图像的事件处理程序 ,当用户希望可以单击启动窗体的,而不用等待就可以进入//主窗体时,可以加上这一条件
end;
用function
GetSpecialFolderDir(mFolder:
Integer):
string;{
返回获取系统文件或系统目录
}(
CSIDL_BITBUCKET
回收站
CSIDL_CONTROLS
控制面板
CSIDL_DESKTOP
桌面
CSIDL_DESKTOPDIRECTORY
桌面目录
//如C:\WINDOWS\Desktop
CSIDL_DRIVES
我的电脑
CSIDL_FONTS
字体
//如C:\WINDOWS\FONTS
CSIDL_NETHOOD
网上邻居目录
//如C:\WINDOWS\NetHood
CSIDL_NETWORK
网上邻居
CSIDL_PERSONAL
我的文档
//如C:\My
Documents
CSIDL_PRINTERS
打印机
CSIDL_PROGRAMS
程序组
//如C:\WINDOWS\Start
Menu\Programs
CSIDL_RECENT
最近文档
//如C:\WINDOWS\Recent
CSIDL_SENDTO
发送到
//如C:\WINDOWS\SentTo
CSIDL_STARTMENU
开始菜单
//如C:\WINDOWS\Start
Menu
CSIDL_STARTUP
启动
//如C:\WINDOWS\启动
CSIDL_TEMPLATES
模版
//如C:\WINDOWS\ShellNew)得到路径,然后在里面创建快方式
以上就是关于delphi7 无法启动运行delphi32.exe也没有任何反应。全部的内容,包括:delphi7 无法启动运行delphi32.exe也没有任何反应。、我用delphi 编程,如何让程序启动时自动以管理员权限运行了,系统是win764位,谢谢、如何让Delphi程序启动自动“以管理员身份运行等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)