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 b…

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

SMSの未読件数がレジストリに格納されるようになる方法が確立できた。 受信メールがすべて削除されるので適宜バックアップすること。 手順 1.次のレジストリを適用 [HKEY_LOCAL_MACHINE\Software\Microsoft\MAPI] "DbPath"="\\cemail2.vol" 2.デバイスを再起…