Delphi

Delphi

delphi禁用、启用USB

2 0

{------------------------------------------------------------------------------- 函数名: EnabledUSB 参数: Enabled:Boolean 返回值: Boolean 所需单元: Registry 使用方法: 禁用USB: EnabledUSB(False); 启用USB: EnabledUSB(True);-----------------------

Delphi

delphi各个版本编译开关值

2 0

delphi各个版本编译开关值{$IFDEF VER80} - Delphi 1{$IFDEF VER90} - Delphi 2{$IFDEF VER100} - Delphi 3{$IFDEF VER120} - Delphi 4{$IFDEF VER130} - Delphi 5{$IFDEF VER140} - Delphi 6{$IFDEF VER150} - Delphi 7{$IFDEF VER160} - Delphi 8{$IFDEF VER170} - Delphi 2005{$

Delphi

delphi XE 下打开内存泄漏调试功能

2 0

delphi XE 下打开内存泄漏调试功能Delphi xe集成了fastMM,这回大家调试程序是的时候可以方便地检查内存泄露了。 使用方法1:ReportMemoryLeaksOnShutdown := True;使用方法2:在project中,添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0;DebugHook<>0 目的是保证单独运行exe文件不会弹出内存泄漏框,源码可以不用注释掉此行program Project1;uses

Delphi

Delphi文本文件的写操作

2 0

Delphi有关文本文件的操作,经整理后,我将其封装成了一个函数,以方便以后的使用,访函数代码如下://将帐号信息写入文本文件函数procedure TForm1.WriteUserToText(user:String; pass:String);var txt:TextFile;begin//先判断一下文件是否存在, 不存在时就创建它if not FileExists('C:\p.txt') thenbegin Assignfile(txt,'c:\p.txt');

Delphi

delphi 使电脑睡眠代码

1 0

//提升进程令牌函数function AdjustProcessPrivilege(ProcessHandle:THandle;Token_Name:Pchar):boolean;varToken:THandle;TokenPri:_TOKEN_PRIVILEGES;ProcessDest:int64;l:DWORD;beginResult:=False;if OpenProcessToken(ProcessHandle,TOKEN_Adjust_Privileges,Token) thenbegini

Delphi

delphi xe 提权代码

1 0

//提升进程令牌函数function AdjustProcessPrivilege(ProcessHandle:THandle;Token_Name:Pchar):boolean;varToken:THandle;TokenPri:_TOKEN_PRIVILEGES;ProcessDest:int64;l:DWORD;beginResult:=False;if OpenProcessToken(ProcessHandle,TOKEN_Adjust_Privileges,Token) thenbegin

Delphi

delphi TIcon保存ico文件时失真的解决办法

2 0

提取exe文件中的图标并保存为ico文件:ico := TIcon.Create;try ico.handle := ExtractIcon(hInstance, ExeFileName, 0); ico.SaveToFile(''c:\001.ico'');finally ico.free;end;保 存后的001.ico文件严重失真,我们打开Graphics.pas文件,找到writeIcon函数,在这个函数里有这样一行代码:InternalGetDIBSize

delphi Parent属性的另类用法
Delphi

delphi Parent属性的另类用法

4 0

Parent属性是用来控制控件的显示层次的,所有的TWinControl都有Parent属性,包括TForm。如果你设置TForm的Parent的为一个Panel,在整个Form就嵌入到Panel里了。 举一个应用的例子,假设你有一个配置界面,一个有很多Page的PageControl, 又假设每个Page的逻辑不太相干,如果所有代码都写在同一个单元里,读起来就很吃力。可以利用Form的Parent属性给每个Page都创建一个Form,然后把Form嵌入到Tabsheet中,这样PageControl仅