wellerweldon-优快云博客

原创一个简单的文件夹拷贝函数（BCB）

void CopyDirectory( AnsiString Dest, AnsiString Source )//Dest & Source must be end with // and Exist!{ TSearchRec TSR; if ( !FindFirst( Source + "*.*", faAnyFile, TSR ) ) { do {

2007-10-24 15:29:00 1802

原创获得文件图标并显示在一个Image上（BCB）

void __fastcall TForm1::GetIcon(AnsiString FileName){ SHFILEINFO sfi; SHGetFileInfo( FileName.c_str(), FILE_ATTRIBUTE_NORMAL, &sfi,

2007-08-31 09:53:00 777

原创获取快捷方式里面的参数（BCB）

写之前搜出了n多结果，不是delphi代码就是只有创建和删除的，没有获取参数的，而且不是很好，只好自己研究了……例子是用WCHAR传入的，未做文件名检查，默认为传入的一定是lnk文件，比如”d:/rungame.lnk”头文件需要包含#include ，并在cpp文件的顶部加上#define NO_WIN32_LEAN_AND_MEANvoid __fastcall

2007-08-15 14:35:00 1030

原创用SendInput发送Win+D使桌面上所有窗口最小化

写个桌面上所有窗口最小化的程序竟然碰了一鼻子灰，NND，真想扔机子了！本来写了个EnumWindows( (WNDENUMPROC)(EnumWindowsProc), 0 );的，然后在EnumWindowsProc里直接最小化所有窗口，发现用SendMessage和ShowWindow都不行，会把那些本来不显示的窗口都搞出来了，不知道是Windows的问题还是编译器的问题，及其

2007-08-13 11:49:00 3606

原创关闭其它程序（BCB，API）

由于上班不能被BOSS看到在上网，于是自己写了一个能关闭IE的程序，这样就能用一个快捷键及时关掉所有IE。下面是如何关掉IE的，都是GOOGLE+MSDN+摸索……void CloseIEProcess( void ){ HANDLE SnapshotHandle = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, TH32CS_SNAPA

2007-05-22 17:45:00 1685

原创用CreateToolhelp32Snapshot、Process32First、Process32Next枚举进程（BCB）

这仅仅是个示例，具体操作需要自己完成需要 #include PROCESSENTRY32 pe32; pe32.dwSize = sizeof(PROCESSENTRY32); HANDLE SnapshotHandle = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, TH32CS_SNAPALL ); if ( Sna

2007-05-19 14:39:00 2787 1

原创如何让程序只运行一次(BCB)

看了网上GOOGLE到的代码后修改了一下，使用互斥…… 只需修改Project1.cpp中相应的地方即可。//---------------------------------------------------------------------------#include vcl.h>#pragma hdrstop//----------------------

2007-05-17 17:08:00 945

原创文件大小格式化成K、M、G的形式（BCB，__int64 -->> AnsiString）

AnsiString __fastcall FileSizeText( const __int64 FileSize ){ __int64 mark = 1; int i = 0; static float result; while ( ( result = (float)(FileSize) / mark ) > 1024.0 ) { mar

2007-05-13 13:41:00 1171

Power G7的专栏