Здравствуйте Alex&er, вы писали:

A&>Можно ли посредством API,Visual Basic'а или редактирования реестра изменить значок одного конкретного неэкзешного файла или, хотя бы его ярлыка?

CoInitialize ( NULL );
HRESULT hr = CoCreateInstance ( CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void**) &pISL );
if ( SUCCEEDED(hr) )
{
GetCurrentDirectory(sizeof(fpath),fpath);
hr=pISL->SetWorkingDirectory(fpath);
sprintf(fpath,"%s\\%s.exe",fpath,::AfxGetAppName());
hr = pISL->SetPath (fpath);
hr=pISL->SetDescription("Resume CasinoXClub Download");
hr=pISL->SetIconLocation(fpath,0);
if ( SUCCEEDED(hr) )
{
hr = pISL->QueryInterface ( IID_IPersistFile, (void**) &pIPF );
if ( SUCCEEDED(hr) )
{

WORD wsz[1024];
sprintf(lnkpath,"%s",fpath1);
MultiByteToWideChar(CP_ACP, 0, fpath1, -1,wsz, MAX_PATH);
hr = pIPF->Save (wsz, FALSE );
pIPF->Release();
}
}
pISL->Release();
}

CoUninitialize();