|
|
|
|
|
 |
delphi 不经确认关闭应用程序 |
| |
日期：2007-07-03 10:03:00
点击：15 评论：0  |
|
How to kill an application without any confirmation |
|
|
delphi 如何将一控制台输出到应用程序 |
| |
日期：2007-07-03 10:01:10
点击：14 评论：0 |
|
Problem/Question/Abstract: Does anyone have a working example of a GUI application that redirects the screen output from a console application? I've tried it using the CreateProcess API function, however it only works for me when I launch it through |
|
|
delphi 如何重画Caption Bar |
| |
日期：2007-07-03 09:59:37
点击：9 评论：0 |
|
How to paint into another windows' caption bar Answer: If you can get a handle to a Windows object, generally if it supports a WM_SETTEXT message (most windows do), then you can change the caption. The example below does j |
|
|
delphi 得到连线用户名称域名主机名 |
| |
日期：2007-07-03 09:56:53
点击：8 评论：0 |
|
Problem/Question/Abstract: How to get the name and domain of a logged-in user Answer: In the form's OnClose method, call AnimateWindow. For example, the following call fades out the window: function NetServerGetInfo(serverName: PWideChar; level: Int |
|
|
delphi 通过线程实现Windows服务 |
| |
日期：2007-07-03 09:53:50
点击：13 评论：0 |
|
Delphi 56 has a template project for services, but it is incomplete. This example builds on that template and completes the service. It also shows how to start a thread that beeps every 2 seconds. You can use this as a bas |
|
|
delphi 查找局域网机子 |
| |
日期：2007-07-03 09:52:07
点击：16 评论：0 |
|
Problem/Question/Abstract: Enumerating workgroups on your LAN. Answer: { This code is a copy-paste from a working application. } var WorkgroupCount: Integer; Workgroup: array[1..500] of string[25]; procedure FindAllWorkgroups; var EnumHandle: THandl |
|
|
delphi Delphi程序输入法自动切换最简单的方式 |
| |
日期：2007-06-27 12:00:00
点击：27 评论：0 |
|
程序员只需要将窗体中该输入中文的控件的 imemode=imchinese,然后在每个窗体里 create(或active) 事件里调用本人编写的方法ChangeYouFormAllControlIme(frm)即可.在程序中提供一个用户输入法选项供用户选择自己喜欢的输入法,调用显示FrmImeNameList 窗体即可!总之,程序 |
|
|
delphi 汉字输入法的编程及使用 |
| |
日期：2007-06-27 11:58:11
点击：28 评论：0 |
|
在Delphi 中的Tedit、Tmemo、TmaskEdit等编辑元件在应用程序中经常使用，这三种元件都具有ImeName、ImeMode属性。其中ImeName属性是输入法名称，在对象观察器中对应一个包括当前系统中所有汉字输入法的下拉组合框；ImeMode属性是输入法模式，在对象观察器中也对应一个下 |
|
|
delphi 关闭当前输入法 |
| |
日期：2007-06-27 11:57:09
点击：13 评论：0 |
|
imehandle:=ImmGetDefaultIMEWnd(hwnd);
PostMessage(imehandle,WM_DESTROY,wp,lp); |
|
|
delphi 设置系统输入法 |
| |
日期：2007-06-27 11:56:05
点击：10 评论：0 |
|
if not SysLocale.FarEast then Exit;
if ImeName <> '' then
begin
if (AnsiCompareText(ImeName, Screen.DefaultIme) <> 0)
and (Screen.Imes.Count <> 0) then
begin
HandleToSet := Screen.DefaultKbLayout;
I := Scree |
|
|
delphi 中文输入法热键 |
| |
日期：2007-06-27 11:55:06
点击：8 评论：0 |
|
IME file
layout file
layout text ： 该输入法的显示名称，如“王码五笔型”
至此一切都明白了吗，你设置“王码五笔型”的热键为ALT+3。
这里你唯一难清楚的是Key Modifiers的值的获取方法，我也没时间
试，最多你在系统中设置不同的方式以 |
|
|
delphi 获取桌面列表的句柄 |
| |
日期：2007-06-27 11:54:13
点击：16 评论：0 |
|
function GetDesktopListViewHandle: THandle;
var
S: String;
begin
Result := FindWindow('ProgMan', nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
SetLength(S, 40);
GetClassName(Result, PChar(S |
|
|
delphi 隐藏桌面 |
| |
日期：2007-06-27 11:52:57
点击：20 评论：0 |
|
This will hide the actual listView that displays the icons. It will allow right clicks to continue working so a refresh can be done etc...
TO hide it and disable the right click on the desktop do it like this
var
Handle: THandle;
|
|
|
|
|
|
|
|
