Ник Курков

День недели по дате
(

В Windows есть специальная функция, позволяющая получить пути к стандартным папкам. В Delphi это будет выглядеть так:
uses ShlObj;

function GetSpecialPath(CSIDL: word): string;
var s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
then s := '';
result := PChar(s);
end;

Функции нужно передать id папки, путь которой хотим получить. Список id идёт далее.
Следует помнить, что не все id будуть работать в разных версиях Windows. Например папки 'Documents & Settungs' нет в 98-х и бессмысленно пытаться получить путь к ней.

Смысл данного поста скорее не в том, чтобы показать, как пользоваться функцией SHGetSpecialFolderPath, а, скорее, дать перечень CSIDL и описание к ним на русском.
(more...)

http://www.smashingmagazine.com/2008/12/15/10-useful-techniques-to-improve-your-user-interface-designs/

Все наверняка знают команду md5('строка') в MySQL - она удобна и полезна. Сегодня понадобилось сделать тоже самое в Microsoft SQL Server 2005, но он такой команды не знает. Погуглил, выяснилось, что для использования шифрования люди используют специальные DLL-ки. Какие нафиг DLL-ки! Поискав в MSDN, выяснил, что начиная с 2005 версии, шифрование встроено в SQL Server (кто бы сомневался).

Синтаксис:

HashBytes ( 'algorithm', { @input | 'input' } )

algorithm может принимать следующие значения: MD2 | MD4 | MD5 | SHA | SHA1

Пример:
DECLARE @HashThis nvarchar(4000);
SELECT @HashThis = CONVERT(nvarchar(4000),'dslfdkjLK85kldhnv$n000#knf');
SELECT HashBytes('SHA1', @HashThis);
GO

Недавно отыскал видео, нашел много полезного:

Выполнение команд операционной системы в MS SQL

http://msdn.microsoft.com/ru-ru/library/ms151198(SQL.90).aspx

Function GetFileVersion(Const FileName: String): String;
Type
TFileVersion = Packed Record
Case Integer Of
0: (Ver64: Int64);
1: (VerLS, VerMS: DWORD);
2: (Ver3, Ver2, Ver1, Ver0: Word);
3: (Build, Release, Minor, Major: Word);
End;
Var
VersInfo : Pointer;
VersInfoSize : DWORD;
FileVersion : TFileVersion;
w : DWORD;
FileInfo : PVSFixedFileInfo;
Begin
Result := '';
VersInfoSize := GetFileVersionInfoSize(PChar(FileName), W);
GetMem(VersInfo, VersInfoSize);
Try
If GetFileVersionInfo(PChar(FileName), 0, VersInfoSize, VersInfo) And
VerQueryValue(VersInfo, '\', Pointer(FileInfo), W) Then
Begin
FileVersion.VerMS := FileInfo.dwFileVersionMS;
FileVersion.VerLS := FileInfo.dwFileVersionLS;
Result := Int2Str(FileVersion.Major) + '.' + Int2Str(FileVersion.Minor);
End;
Finally
FreeMem(VersInfo);
End;
End;

http://msdn.microsoft.com/ru-ru/library/ms152543.aspx