调用外部程序，等待外部程序运行完成，相当于Showmodal功能，呵呵
delphi代码
1.function WinExecAndWait32(FileName: string; Visibility: Boolean): integer;
2.var
3. zAppName: array[0..512] of char; //存放应用程序名
4. StartupInfo: TStartupInfo;
5. ProcessInfo: TProcessInformation;
6. exitCode: Dword;
7. aVisibility: integer;
8.begin
9. StrPCopy(zAppName, FileName);
10. FillChar(StartupInfo, Sizeof(StartupInfo), #0);
11. //给StartupInfo结构体赋值
12. StartupInfo.cb := Sizeof(StartupInfo);
13. StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
14. if Visibility then
15. aVisibility := 1
16. else
17. aVisibility := 0;
18.
19. StartupInfo.wShowWindow := aVisibility;
20. //调用CreateProcess 创建进程，执行指定的可执行文件
21. if not CreateProcess(nil, zAppName, nil, nil, false
22. , Create_NEW_CONSOLE or NORMAL_PRIORITY_CLASS
23. , nil, nil, StartupInfo, ProcessInfo) then
24. Result := -1
25. else
26. begin
27. //等待可执行文件退出
28. WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
29. //得到进程终止状态码
30. GetExitCodeProcess(ProcessInfo.hProcess, exitCode);
31. result := Exitcode;
32. end;
33.end;
Delphi瞬间消除无用托盘图标(刷新托盘)
用TerminateProcess把一个进程结束后有个问题，就是如果该程序在托盘有图标的话，这个图标并不会在它被结束时也消失。当然你用鼠标从上面移过可以解决这个问题，但本人在用自己的刷新辅助软件“疯狂刷新”的时候，每5分钟结束一次，一天下来如果不动电脑，就会在托盘区生成NNN个死图标，即使你拚命去点，也要点半天才能全部消除。有没有办法一下子搞定它呢？答案是肯定的，在网上搜了很久……用Delphi编写几行代码搞定。
添加自定义类型，用作判断系统类型，
type
TOSVersion = (osUnknown, os95, os98, osME, osNT3, osNT4, os2K, osXP, os2K3);
添加自定义函数过程
function GetOS: TOSVersion; //获得系统类型，用来取得托盘句柄
var
OS: TOSVersionInfo;
begin
ZeroMemory(@OS, SizeOf(OS));
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
Result := osUnknown;
if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
case OS.dwMajorVersion of
3: Result := osNT3;
4: Result := osNT4;
5: begin
case OS.dwMinorVersion of
0: Result := os2K;
1: Result := osXP;
2: Result := os2K3;
end;
end;
end;
end
else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 0) then
Result := os95
else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 10) then
Result := os98
else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 90) then
Result := osME
end;
function GetSysTrayWnd(): HWND; //返回系统托盘的句柄，适合于Windows各版本
var OS: TOSVersion;
begin
OS := GetOS;
Result := FindWindow('Shell_TrayWnd', nil);
Result := FindWindowEx(Result, 0, 'TrayNotifyWnd', nil);
if (OS in [osXP, os2K3]) then
Result := FindWindowEx(Result, 0, 'SysPager', nil);
if (OS in [os2K, osXP, os2K3]) then
Result := FindWindowEx(Result, 0, 'ToolbarWindow32', nil);
end;
procedure KillTrayIcons (Sender: TObject);
var
hwndTrayToolBar: HWND;
rTrayToolBar: tRect;
x, y: Word;
begin
hwndTrayToolBar := GetSysTrayWnd;
Windows.GetClientRect(hwndTrayToolBar, rTrayToolBar);
for x := 1 to rTrayToolBar.right - 1 do begin
for y := 1 to rTrayToolBar.bottom - 1 do begin
SendMessage(hwndTrayToolBar, WM_MOUSEMOVE, 0, MAKELPARAM(x, y));
end;
end;
end;
//调用 KillTrayIcons(self) 过程就可以瞬间清除所有无用的托盘图标了。
经过本人测试，Delphi7+XP系统下确实可以用。
delphi const常量声明演示
procedure TForm1.Button1Click(Sender: TObject);
const
xh:integer=6; //用const定义一个常量,并赋予整形值6
var x:string; //用var定义一个变量,类型为字符串
begin
x:=inttostr(xh); //吧整形xh 值赋给 x
showmessage (inttostr(xh));
result.Text:=x; //在文本框输出x内容
end;
end.
Delphi有标题窗口最大化全屏解决方案
//2ccc
在 WM_SYSCOMMAND 消息事件中，加入如下代码：
inherited;
if Message.CmdType and $FFF0 = SC_MAXIMIZE then
begin
//注意 Top的值是1
SetWindowPos(Handle,HWND_TOPMOST,0,1,Screen.Width,Screen.Height,SW_NOZORDER);
Self.Top := 0;
end;
当然也可以在 WM_SIZE 消息事件中，加入如下代码：
if Message.SizeType = SIZE_MAXIMIZED then
begin
//注意 Top的值是1
SetWindowPos(Handle,HWND_TOPMOST,0,1,Screen.Width,Screen.Height,SW_NOZORDER);
Self.Top := 0;
end;