win32常用代码整理

1、ShellExecute 【Use ShellAPI】

ShellExecute(Handle, ‘open‘, ‘http://www.cnblogs.com/lovelp/‘, nil, nil, SW_SHOW);

2、关于路径

ExpandFileName() 返回文件的全路径(含驱动器、路径) 
ExtractFileExt() 从文件名中抽取扩展名 
ExtractFileName() 从文件名中抽取不含路径的文件名 
ExtractFilePath() 从文件名中抽取路径名 
ExtractFileDir() 从文件名中抽取目录名 
ExtractFileDrive() 从文件名中抽取驱动器名 
ChangeFileExt() 改变文件的扩展名 
ExpandUNCFileName() 返回含有网络驱动器的文件全路径 
ExtractRelativePath() 从文件名中抽取相对路径信息 
ExtractShortPathName() 把文件名转化为DOS的8·3格式 
MatchesMask() 检查文件是否与指定的文件名格式匹配

获取当前路径的3种常用方法:

ExtractFilePath(ParamStr(0));
ExtractFilePath(Application.ExeName);
GetCurrentDir + ‘\‘;

3、格式化时间

FormatDateTime(‘yyyy-mm-dd‘,now());

4、提取时间成分

YearOf
MonthOf
WeekOf
DayOf
HourOf
MinuteOf
SecondOf

5、INI操作

var
  iniFile:TiniFile;
  //创建对象
  iniFile：=TiniFile.Create(iniFilePath+iniFileName）；
  //读数据
  iniFile.ReadString(‘Section‘,‘Key‘,‘DefaultValue‘)  //字符串
  iniFile.ReadInteger(‘Section‘,‘Key‘,DefaultValue) ;//整数

  //写数据
  iniFile.WriteString(‘Section‘,‘Key‘,‘Value‘)  //字符串
  iniFile.WriteInteger(‘Section‘,‘Key‘,tValue) ;

// 释放对象
iniFile.Free;

//如果想读取整段值，可以用iniFile.ReadSection(‘SectionName‘, StringList)将整段数据读到TStringList对象中

6、读写 注册表 【use Registry】

procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
begin
  reg:=TRegistry.Create;//创建实例
  reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
  if(reg.OpenKey(‘Software\dsy‘,true)) then
  begin
    reg.WriteString(‘fishname‘,‘淡水鱼‘);//写入字符串类型，也可以是其他类型
    reg.CloseKey;
  end;
  reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var reg:TRegistry;
begin
  reg:=TRegistry.Create;//创建实例
  reg.RootKey:=HKEY_CURRENT_USER;//指定需要操作的注册表的主键
  if(reg.OpenKey(‘Software\dsy‘,true)) then
  begin
    showmessage(reg.ReadString(‘fishname‘));//读取注册表
    reg.CloseKey;
  end;
  reg.Free;
end;