- 博客(4)
- 收藏
- 关注
RSS订阅原创 怎样修改windows里的开始按钮的位图？
/修改var Form1: TForm1; StartButton: hWnd; OldBitmap: THandle; NewImage: TPicture; / 将代码放入FormCreate事件procedure TForm1.FormCreate(Sender: TObject); begin NewImage := TPicture.create; NewImag
2001-10-08 02:43:00
1143
原创 怎样知道我的程序是否运行在DELPHI?
function IsAppRunningInDelphi : boolean; var hKernelDll : THANDLE; proc_IsDebuggerPresent : TProcIsDebuggerPresent; useFindWindow : boolean; proc : FARPROC; begin useFindWindow := true; if
2001-10-05 14:16:00
1131
原创 杀死一个正在运行的程序
procedure KillProgram(Classname : string; WindowTitle : string); const PROCESS_TERMINATE = $0001; var ProcessHandle : THandle; ProcessID: Integer; TheWindow : HWND; begin TheWindow := FindWi
2001-10-05 14:05:00
1278
原创 怎样知道你的程序是运行在安全模式呢?
Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your project´s code use: program Project1; uses Forms, Windows, Dialogs, Unit1 in U
2001-10-05 14:01:00
1145
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人