| « | October 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:DeathCat的猫窝
日志总数:17
评论数量:89
留言数量:0
访问次数:216252
建立时间:2005年4月5日 |
| |
|
 [Delphi食堂]还有还有 某位虾客的学习笔记～～
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:46:02 |
某位虾客的学习笔记～～大名我就不公布啦
不过都是些很有用的咚咚
×调用EXCLE打开文件。
USES SHELLAPI
Shellexecute(handle,nil,pchar('c:\报表.xls'),nil,nil,sw_shownormal);
◇[DELPHI]关于处理注册表
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;
×报错函数
procedur |
|
|
[Delphi食堂]懒人函数 之 “朋友提供的函数”
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:38:03 |
全力感谢Ｓｅａ的帮忙，提供了这些函数～～
//-----取得快捷方式中的连接
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= ''; |
|
|
 [Delphi食堂]懒人函数 之 “网络应用”
网上资源, 软件技术
DeathCat 发表于 2005/4/6 11:19:58 |
这些函数是朋友Sea提供，DeathCat整理。。
因为是网上收集的，所以不晓得原作者~~
向原作者发出崇高的敬意~~
多余的话就不说了，大家拿去用吧
procedure getsharefolder(const computername:string);
var //----获取某一计算机上的共享目录
errcode,a:integer;
netres:array[0..1023] of netresource;
enumhandle:thandle;
enumentries,buffersize:dword;
s:string;
mylistitems:tlistitems;
mylistitem:tlistitem;
mystrings:tstringlist;
begin
with n |
|
|
[Delphi食堂]懒人函数 之 “存储Grid中的数据到Excel”
软件技术
DeathCat 发表于 2005/4/6 11:14:54 |
这段代码真是懒到极点了！！
声明：这段代码是我把其它人的代码改出来的，但是出自谁的手我就忘记啦~~大家用吧~~~向原作者致以崇高的敬意！！！
我直接写到了Button的Click下面，懒得做函数了，要用的人拿去自己改改吧，不着急的人就等我有时间改吧~~
procedure TMain.Button3Click(Sender: TObject); //另存为Excel
var
ModuleName:string; //Excel 模板文件名 *.Xlt
FileName: String ; |
|
|
 [Delphi食堂]懒人函数 之 “取汉字拼音”
软件技术
DeathCat 发表于 2005/4/6 10:48:24 |
其实很简单~~~调用的时候只要把字符串传进去就可以了，然后出来就是汉字拼音的字符串了。。。。需要用的时候比较爽哦~~不过有些奇形怪状的字就认不出来了。
如果你要有奇形怪状的汉字拿来到这个函数里面用，别怪我要打人哦~~~
function GetHzPy(const AHzStr: string): string;
const
ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
(2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
(2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
|
|
|
[Delphi食堂]懒人函数 之 “注册表操作”
原创空间, 软件技术
DeathCat 发表于 2005/4/5 16:34:00 |
对于使用注册表,很多人都有自己的方法,因为俺是属于比较懒惰滴~,所以在这里我就把使用注册表的地方拿出来做个函数来用，在外部调用的时候也不用去创建注册表类什么的了，用起来还是比较方便的。就是注意在使用的时候，如果碰到瑞星一类的对注册表监控的程序会有问题，应该先把这些监控程序关掉再用哦。
function ReadKey(Root : HKEY;KeyRout : string;KeyName : String;var Value : string) : boolean;
///////////////////////////////////////////////////////////////////
//
// 函数名称：ReadKey
// 函数功能：从注册表中读取数据
// 输入： 无
// Root : HKEY 注册表的根路径
// &n |
|
« 1 ›
|