// 假如程式路徑在 c:\projects\bin\project1.exe ShowMessage( 'Drive = ' +ExtractFileDrive (Application . Exename)); //C: ShowMessage( 'Dir = ' +ExtractFileDir (Application . Exename)); //c:\projects\bin ShowMessage( 'Path = ' +Extract...
try//尝试执行 {SomeCode} except//出错的时候执行, Except有特定的错误类型 {SomeCode} end; try//尝试执行 {SomeCode} finally//无论如何都强制执行 {SomeCode} end; 例: try Age:=StrToInt(Edit1.Text); ShowMessage(For...
当Close是一个主窗体时,程序会退出. Close会发生FormClose事件,FormCloseQuery事件 Halt会发生FormDestory事件, Application.Terminate以上三个事件都不会发生 Application.Terminate就是程序结束了。整个程序...
var hwnd: hwnd;//句柄 PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化 PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化 PostMessage(hwnd,WM_SYSCOMMAND, SC_CLOSE,0);//关闭 窗口最小化时将释放占用的资源 P...
防止程序被重复执行（第一法） Windows95的程序一般都可以重复执行，例如你按下WIN+E组合键即启动资 源管理器，如果再按WIN+E组合键又会出现一个资源管理器，这两个程序互不干 扰。有...
Delphi使程序的窗口出现在最前面并激活 var pt, OldPt, NewPt: TPoint; begin //判断Application是否最小化，而不是主窗口的Handle, 使用Restore来还原 if IsIconic(Application.Handle) then Application.Restore; SetWi...
1。在工程单元中引用windows单元。 2。定义一个变量，类型为hMutex:THandle. 3. hMutex := CreateMutex(nil, False, 'TheStandard'); 4.if GetLastError = ERROR_ALREADY_EXISTS then begin CloseHandle(hMutex); ShowMessage('本软件...
WaitForSingleObject 等待什么? 在多线程里就是等待另一个线程的结束, 快来执行自己的代码; 不过它可以等待的对象可不止线程; 这里先来一个等待另一个进程结束的例子, 运行效果图: 代码...
当点击最大化最小化按钮是的行为. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure...
思路1： 需要重启程序的时候，在onclose事件里面调用了一个批处理bat文件（AT 脚本）； 然后在批处理文件里面加入适当延迟（比如2秒）；通过批处理文件重新启动该程序； 思路2： 你...