Delphi技巧两则

软件世界

空乐 · 2004年5月17日

　　用Delphi获取Windows及系统路径

　　通过WindowsAPI函数可以获取Windows及系统的路径。在不少程序中都需要让程序先识别系统路径后再进行其他工作。

　　Procedure TForm1.Button1Click(Sender：TObject);

　　var

　　SysDir:array[0..255]of char;

　　begin

　　//获取Windows路径

　　GetWindowsDirectory(SysDir,255);

　　Edit1.Text:=SysDir;

　　//获取系统路径

　　GetSystemDirectory(SysDir,255);

　　Edit2.Text:=SysDir;

　　end;

　　用Delphi隐藏/显示Windows任务栏

　　下面将通过函数FindWindow实现隐藏和显示Windows任务栏。

　　Procedure TForm1.Button1Click(Sender:TObject);

　　var

　　WndHandle:THandle;

　　begin

　　//获取任务栏的窗口句柄

　　WndHandle：=FindWindow('Shell_TrayWnd'，nil);

　　ShowWindow(WndHandle,SW_SHOW);//显示任务栏

　　end;

　　procedure TForm1.Button2Click(Sender:TObject);

　　var

　　wndHandle;THandle;

　　begin

　　WndHandle:=FindWindow('Shell_TrayWnd',nil);

　　ShowWindow(WndHandle,SW_HIDE);//隐藏任务栏

　　end;

　　以上在Win98和DELPHI6下调试通过。