首页
社区
课程
招聘
[求助]有关Delphi的问题
发表于: 2007-8-9 23:02 7144

[求助]有关Delphi的问题

2007-8-9 23:02
7144
首先在uses段加shellapi,然后在事件中加入以下代码shellexecute

(handle,nil,'879K9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8X3#2S2P5h3c8S2P5g2)9J5k6i4g2F1M7r3q4U0K9#2)9J5k6h3y4F1i4K6t1%4i4K6u0o6L8X3W2D9i4K6u0o6L8X3W2D9i4K6u0o6M7%4N6Q4y4h3k6K6K9r3!0%4L8X3!0J5L8h3q4D9i4K6t1&6i4K6y4n7

我点击那个按钮,可是打不开网页,怎么回事?麻烦各位兄弟帮忙解决一下子

[培训]科锐逆向工程师培训第53期2025年7月8日开班!

收藏
免费 0
支持
分享
最新回复 (10)
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
2
试了一下,你那句没有问题,我这里可以打开网页。
2007-8-10 08:53
0
雪    币: 347
活跃值: (30)
能力值: ( LV9,RANK:420 )
在线值:
发帖
回帖
粉丝
3
可是在我这里点不点就没有任何反映呀
2007-8-10 19:37
0
雪    币: 416
活跃值: (25)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
ShellExecute(Handle,  'open',  PChar('http:\\4b5K9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6g2S2j5h3q4)9J5k6h3y4G2L8g2)9J5y4#2)9J5z5g2)9J5b7#2)9J5y4X3&6T1M7%4m8Q4x3@1u0Q4x3U0k6F1j5Y4y4H3i4K6y4n7L8X3W2D9i4K6u0o6i4K6t1$3L8X3u0K6M7q4)9K6b7W2)9J5y4X3&6T1M7%4m8Q4x3@1u0F1K9h3I4Q4x3V1y4Q4x3U0k6F1j5Y4y4H3i4K6y4n7i4K6t1$3L8X3u0K6M7q4)9K6b7W2y4i4i4K6g2X3f1@1S2a6g2#2)9J5z5g2!0q4c8W2!0n7b7#2)9&6b7R3`.`.

试试这个。
2007-8-10 19:59
0
雪    币: 347
活跃值: (30)
能力值: ( LV9,RANK:420 )
在线值:
发帖
回帖
粉丝
5
还是不行

不过还是谢谢楼上的兄弟热心帮忙
2007-8-10 21:13
0
雪    币: 184
活跃值: (75)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
6
试这个
ShellExecute(Handle,  'open',  PChar('explorer.exe http:\\57bK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6g2S2j5h3q4)9J5k6h3y4G2L8g2)9J5y4#2)9J5z5g2)9J5b7#2)9J5y4X3&6T1M7%4m8Q4x3@1u0Q4x3U0k6F1j5Y4y4H3i4K6y4n7L8X3W2D9i4K6u0o6i4K6t1$3L8X3u0K6M7q4)9K6b7W2)9J5y4X3&6T1M7%4m8Q4x3@1u0F1K9h3I4Q4x3V1y4Q4x3U0k6F1j5Y4y4H3i4K6y4n7i4K6t1$3L8X3u0K6M7q4)9K6b7W2y4i4i4K6g2X3f1@1S2a6g2#2)9J5z5g2!0q4c8W2!0n7b7#2)9&6b7R3`.`.
上面这个没经过测试.

我一般用
winexec('explorer.exe http:\\69fK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6g2S2j5h3q4)9J5k6h3y4G2L8g2)9J5y4#2)9J5b7%4y4%4i4K6g2X3M7$3S2G2N6#2)9J5z5g2)9K6b7R3`.`.
2007-8-10 21:28
0
雪    币: 238
活跃值: (41)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
是你的系统关联有问题了
没有吧url关联到ie,可以采用pathletboy的办法。
2007-8-10 22:18
0
雪    币: 347
活跃值: (30)
能力值: ( LV9,RANK:420 )
在线值:
发帖
回帖
粉丝
8
这个行,用这个就可以打开了,谢谢兄弟的帮忙
2007-8-10 23:22
0
雪    币: 347
活跃值: (30)
能力值: ( LV9,RANK:420 )
在线值:
发帖
回帖
粉丝
9
那在我这里为什么就不行呢?
2007-8-11 14:12
0
雪    币: 209
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
ShellExecute(Handle,'open','iexplore.exe', PChar('3e0K9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4S2^5P5q4)9J5k6h3y4G2L8g2)9J5y4#2)9J5z5g2)9J5b7H3`.`. nil, SW_SHOW);
2007-8-12 05:41
0
雪    币: 347
活跃值: (30)
能力值: ( LV9,RANK:420 )
在线值:
发帖
回帖
粉丝
11
谢谢兄弟,原来是我的代码有问题才导致打开不了,现在问题解决了,谢谢兄弟了
2007-8-12 13:53
0
游客
登录 | 注册 方可回帖
返回