SMS未読件数表示

SMSの未読件数がレジストリに格納されるようになる方法が確立できた。
受信メールがすべて削除されるので適宜バックアップすること。

手順
1.次のレジストリを適用

[HKEY_LOCAL_MACHINE\Software\Microsoft\MAPI]
"DbPath"="\\cemail2.vol"

2.デバイスを再起動
3.\\cemail.volを削除
4.次のレジストリを適用

[-HKEY_LOCAL_MACHINE\Software\Microsoft\MAPI]

5.デバイスを再起動
6.\\cemail2.volを削除

以上

あとで自動設定ツール書きますね。これで純正ROMでもSMS未読件数が読めます。

W+Infoを読めるようにはしたけれど。

改行の置換ミスってることに気がついた。そしてW+Infoがないとrecv.rssが更新されない？
さてどうしたものか。

ひさびさDelphi

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  i,j,n,k: Integer;
  s: String;
begin
  if OpenDialog1.Execute then
  begin
    bmp := TBitmap.Create;
    bmp.LoadFromFile(OpenDialog1.FileName);
    for k := 0 to (bmp.Height div 8) - 1 do
    begin
      s := 'unsigned char name[] = {';
      for j := k * 8 + 0 to k * 8 + 7 do
      begin
        n := 0;
        for i := 0 to 4 do
        begin
          if (bmp.Canvas.Pixels[i, j] = 0) then
            n := n + (1 shl (4 - i));
        end;
        s := s + '0x' + IntToHex(n, 2) + ', ';
      end;
      s := Copy(s, 0, Length(s) - 1) + '};';
      Memo1.Lines.Add(s);
    end;
    bmp.Free;
  end;
end;