RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序

delphi 如何编写需要启动参数的Delphi程序

有些时候,我们想让我们的程序根据不同的参数启动不同的界面或者,通过主程序才可以调用,这个时候使用启动参数也不是一种可行的方法。1.首先建立一个工程,然后选择Project菜单;2.选择ViewSource命令;3.这样就打开…
类别:程序 标签: 作者:admin 日期:2018-04-06 13.42.05

Delph控制台(Console)程序添加图标和版权信息

Delphi创建控制台(Console)程序默认是无法添加图标和版权的。经过仔细的对比窗体程序与控制台程序源码,发现窗体程序的工程文中,在uses结束begin开始的地方有一句如下代码:****$R*.res****
类别:程序 标签: 作者:admin 日期:2018-04-06 13.38.16

delphi ShowDebugInfo 窗口

//调用ShowDebugInfo('登录成功了','登录成功了');unituDebug;interfaceuseswindows,Forms,StdCtrls,Controls,SysUtils;typeTOnDispDebugMsg=procedure(AMsg:string)ofobject;procedureShowDebugInfo(Title:string;I…
类别:程序 标签: 作者:admin 日期:2018-03-13 21.18.34

delphi 显示程序占用内存多少

方法一:要加单元PsAPIprocedureTForm1.tmr1Timer(Sender:TObject);beginedt1.Text:=format('memoryuse:%dKB',[GetProcessMemUse(GetCurrentProcessId)]);//方法一end;functionTForm1.GetProcessMemUse(PID:Cardinal…
类别:程序 标签: 作者:admin 日期:2018-03-05 12.59.26

delphi 实现窗体随着鼠标移动

private//窗体移动;OldPos,NewPos:TPoint;bMove:Boolean;procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginbMove:=True;OldPos:=ClientToScreen(Point(X,Y)…
类别:程序 标签: 作者:admin 日期:2018-03-05 12.54.47

delphi Application.Restore不起作用了,该如何处理

Application.Restore不起作用了窗体上只有一个Button和一个Timer(1秒计时)代码如下:procedureTForm1.Button1Click(Sender:TObject);beginApplication.Minimize;Timer1.Enabled:=True;end;procedureTForm1.Timer1Tim…
类别:程序 标签: 作者:admin 日期:2018-03-03 23.51.21

Delphi 按Esc快捷键退出程序的简单方法

第一种方法:在窗体上放一个按钮:1>、设置按钮的Cancel属性为True;2>、在按钮的点击事件中写:procedureTForm1.btn1Click(Sender:TObject);beginClose;end;Button按钮的Cancel属性:&nbs...
类别:程序 标签: 作者:admin 日期:2018-03-03 23.50.38

delphi 简化版的InputQuery 中文版输入对话框

function_InputQuery(constACaption:string;constAPrompt:string;varAValue:string):Boolean;varnForm:TForm;nEdit:TEdit;nTop:Integer;nTextMetric:TTextMetric;beginResult:=False;nForm:=TForm.CreateNew(Applica…
类别:程序 标签: 作者:admin 日期:2018-03-01 19.23.44

Delphi 中 InputQuery 实现密码输入

修改用户口令时为了避免自己建立新的口令修改窗口,借用delphi中的标准输入对话框。实现代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;c…
类别:程序 标签: 作者:admin 日期:2018-03-01 19.09.26

Delphi中Inputbox 和Inputquery 函数的使用

inputbox的返回值是,你在输入框中输入的文字。而inputquery的返回值是,你是否点击了确定按钮。它的返回值是布尔型的。如果你在inputbox中一样也不输入,就点击取消的话,就会提示出错,而inputquery就不会。它们前…
类别:程序 标签: 作者:admin 日期:2018-03-01 19.07.47

Delphi XE 减少程序体积!

默认DelphiXE4编译出来的程序体积很大。一般用两个方法可以很大程度上减少程序体积。一、在工程中用编译指令禁用RTTI禁用的方法很简单,就是要在工程的Uses语句前添加下面的定义就可以了:{ReduceEXEsizebydisabling…
类别:程序 标签: 作者:admin 日期:2018-02-15 17.19.17

Delphi 遍历类中的属性

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,TypInfo;typeTForm1=class(TForm)Button2:TButton;procedureButton1Click(Sender:TObject);procedur…
类别:程序 标签: 作者:admin 日期:2018-02-15 17.15.42

delphi 程序重新启动自身

=======================用于重启动的进程,等到传入的进程确实退出后,再执行传入的命令行=======================programtmRestart;//{$APPTYPECONSOLE}usesWindows,Dialogs,Classes,SysUtils;procedureStopProces…
类别:程序 标签: 作者:admin 日期:2018-02-11 16.55.37

delphi 运行中申请UAC权限

usesRunElevatedSupport;procedureTForm1.UAC1Click(Sender:TObject);begintrySetLastError(RunElevated(KillProcessName,Handle,Application.ProcessMessages));ifGetLastError<>ERROR_SUCCESSthenRaiseLastOSError…
类别:程序 标签: 作者:admin 日期:2018-02-05 15.33.11

delphi Console 清屏代码

//清屏调用:ClearConsoleScreen;即可functionClearConsoleScreen:boolean;constBUFSIZE=0*0;varHan,Dummy:LongWord;buf:string;coord:TCoord;beginResult:=false;Han:=GetStdHandle(STD_OUTPUT_HANDLE);ifHan<>INVA…
类别:程序 标签: 作者:admin 日期:2018-02-02 23.17.14

Delphi 几种程序自杀的方法

第一种:(普通批处理方式)procedureDeleteMe;varBatchFile:TextFile;BatchFileName:string;ProcessInfo:TProcessInformation;StartUpInfo:TStartupInfo;beginBatchFileName:=ExtractFilePath(ParamStr(0))+'_deletem…
类别:程序 标签: 作者:admin 日期:2018-02-02 23.03.26

delphi 调用外部程序获取程序ID,并能关闭该程序

hApp:Cardinal;functionStartApp(apchOperation,apchFileName,apchParameters,apchDirectory:PChar;awrdShowCmd:Word):Cardinal;varlseiInfo:TShellExecuteInfo;beginResult:=0;FillChar(lseiInfo,SizeOf(lseiInfo),…
类别:程序 标签: 作者:admin 日期:2018-02-02 13.36.07

delphi 实现窗口与任务栏右下角对齐

//aflarinfunctionSysTray_GetRect:TRect;varH1,H2:HWND;beginResult:=Rect(0,0,0,0);H1:=FindWindow('Shell_TrayWnd',nil);ifH1<>0thenbeginH2:=FindWindowEx(H1,0,'TrayNotifyWnd',nil);ifH2<>0thenGetWindowRect(…
类别:程序 标签: 作者:admin 日期:2018-01-27 17.23.53

delphi 捕捉全局异常错误的方法

private{Privatedeclarations}publicprocedureGlobalExceptionHandler(Sender:TObject;E:Exception);{Publicdeclarations}end;procedureTForm1.FormCreate(Sender:TObject);beginApplication.OnException:=GlobalExc…
类别:程序 标签: 作者:admin 日期:2018-01-23 11.10.17

delphi TApplication.OnException

代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);procedu…
类别:程序 标签: 作者:admin 日期:2018-01-23 11.05.58