約 5,493,618 件
https://w.atwiki.jp/guru/pages/32.html
Windows XP回復コンソールをインストールする PCの時刻同期間隔を調整する Windowsに自動ログオンする 検索画面をWindows 2000と同じにする Windows 10 でランチャに登録しておくと便利なコマンド環境変数を編集 資格情報マネージャー 参考URLコマンド アイコン Windows XP 回復コンソールをインストールする ファイル名を指定して実行から、 x \i386\winnt32 /cmdcons を実行(xはドライブ名)。 コマンド 内容 sttrib ファイル属性(読み取り専用、システム、隠し)変更 cd カレントフォルダの変更 copy ファイルのコピー del ファイルの削除 ren ファイル名の変更 md フォルダの作成 rd フォルダの削除 type テキストファイルの内容を表示 expand Windows XP CD-ROMなどの圧縮ファイルを解凍 systemroot Windowsインストールフォルダに移動 chkdsk ディスクのチェック map ドライブ文字マップの一覧表示 diskpart ディスク領域の開放と作成(FDISKに相当) format ディスクのフォーマット fixboot パーティションブートセクタの修復 fixmbr マスターブートレコードの修復 bootcfg boot.iniファイルの修復 listsvc サービス一覧の表示 disable サービスの無効化 enable サービスの有効化 set アクセス可能範囲の変更 help コマンドの一覧を表示 exit 回復コンソールの終了 logon 回復コンソールへのログオン more 出力を1画面ごとに停止 cls 画面のクリア PCの時刻同期間隔を調整する ファイル名を指定して実行から、 regedit を実行して、レジストリエディタを起動する。 HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient から、右側のSpecialPollInterval値をダブルクリックし、間隔を秒単位の10進数で設定してOK。初期設定値は604800秒(7日)になっている。 Windowsに自動ログオンする ファイル名を指定して実行から、 rundll32 netplwiz.dll,UsersRunDll を起動し、「ユーザー」タブの「ユーザーがこのコンピュータを使うには、ユーザ名とパスワードの入力が必要」のチェックを解除してOK。 自動ログオンに使うユーザ名とパスワードを入力し、OK。 検索画面をWindows 2000と同じにする ファイル名を指定して実行から regedit でレジストリエディタを起動する。 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState で、 「編集」→「新規」→「文字列値」をクリックし、 Use Search Asst を作成する。Use Search Asstの値を no にセットして、Windowsにログオンしなおすと、設定が有効になる。 Windows 10 でランチャに登録しておくと便利なコマンド 環境変数を編集 コマンド C \Windows\System32\rundll32.exe sysdm.cpl,EditEnvironmentVariables アイコン %SystemRoot%\System32\imageres.dll 資格情報マネージャー コマンド control.exe /name Microsoft.CredentialManager アイコン 参考URL コマンド Windowsのコントロールパネルの各アイテムをコマンドラインから起動する 【Windows10】コントロールパネルのアイテムをコマンド起動 制限されたWindowsでアプリや特殊フォルダーをコマンドやショートカットキーで直接開く アイコン Windows10の標準アイコンの格納場所と一覧 SystemResourcesフォルダー内の全アイコンサンプル
https://w.atwiki.jp/sc-01b/pages/19.html
SecurityScan自動起動停止 以下のレジストリを削除 [HKEY_LOCAL_MACHINE\init] "Launch103"="scanboot.exe" "Depend103"=hex 32,00,3c,00,46,00
https://w.atwiki.jp/seko/pages/281.html
英語版PalmDesktopと日本語 英語版のPalmDesktopを使用する場合、当然日本語が使用できません。 このように日本語が文字化けしてしまいます。 しかし、Windowsのレジストリを編集することによって日本語を表示させることができます。 ただし、完全な日本語化ではありませんのでメニューは英文のままです。 さらにタイトルバーなど一部に文字化けが残ります。 また、レジストリはWindowsシステムの重要な情報を管理しているため間違った修正をすると最悪Windowsが起動しなくなるなど深刻な障害が発生します。くれぐれも自己責任で行ってください。 レジストリの編集方法 スタートメニューの”ファイル名を指定して実行”を選択します。 英語版 Windows の場合、startメニューの Run を選択します。 (スクリーンショットは英語版 Windows Xp です) 入力フィールドに regedit と入力し、OKボタンをクリックします。 レジストリエディターが起動します。 以下に示すディレクトリにある FontGeneral を編集します。 HKEY_CURRENT_USER \Software \U.S. Robotics \Pilot Desktop \Core \FontGeneral FontGeneralにマウスポインターを合わせ右クリックでサブメニューを表示させ、変更またはModifyを選択します。 値の名前と値のデータが表示されます。 値のデータがデフォルトでは MS Sans Serif になっているはずです。ここを日本語が表示できるフォント名に変更します。 フォントファイルは Windows ディレクトリの中の Fonts ディレクトリの中にあります。 WINDOWS\Fonts Fontsフォルダの中にある日本語が表示できるフォントにマウスポインターを合わせ右クリックでサブメニューを表示させ、プロパティを選択します。図では日本語が表示できるフォントとして MS Gothic を選択しています。 プロパティの中のファイル名(赤丸の部分)を先ほどの値のデータの部分にコピーします。 レジストリエディターを終了し、PCを再起動します。 再起動後、PalmDesktopを起動すると日本語表示されるはずです。 免責事項 当サイトの内容によって被る損害についてサイト管理者は一切責任を持ちません。自己責任の上で情報を活用してください。 記載されている製品名等は各社の登録商標あるいは商標です。 一部引用画像は引用元に著作権があります。 当サイトの内容、写真等に問題がある場合、info @ pamupamu.com までご連絡ください。できる限りすみやかに対処いたします。 説明の便宜上直接リンクがはられている場合があります。不具合がありましたらご連絡ください。 Copyright (C) 2006 by Shigeyuki Seko all right reserved.
https://w.atwiki.jp/v-lyrics/pages/135.html
ましーんめいでん [ TAG Alp-M E-I KyoudaiP Machine Meiden Miku Title] Music KyoudaiP/兄弟P Lyric KyoudaiP/兄弟P Arrange KyoudaiP/兄弟P Vocal Hatsune Miku The original title is "Machine Meiden." The possibility is that the creator mistyped "Machine Maiden," but it is not sure. Videos PVs Original version ■ Show/Hide Video http //www.nicovideo.jp/watch/sm1732883 http //www.nicovideo.jp/watch/sm1732883 Guitar recital version ■ Show/Hide Video http //www.nicovideo.jp/watch/sm30069013 http //www.nicovideo.jp/watch/sm3006901 Translations ■ Show/Hide Romaji 09-03-20 First Entry Trasnlated by BookPeople sawara nai kotoba ima no kimi niwa imi ga nai kara sukoshi urusaku suru yo kon-ya wa amari ni shizuka dashi migite no Caffee Cup utsumuite ru shisen no nai koe ga heya ni hibihte sore ga boku no mune wo kakimushiru tsugi-hagi no karada nara nadete umereba ih netsu wo ageyoh kokoro kara hayai kodoh modoru made tsuzukeyoh soh soh omou daijoubu na tsumori demo nani mo okkotoshite nai tsumori demo hora chirakatte iruyo ima wa miru hitsuyou nai keredo boku ga okiru mae asu no asa mimawashite goran yo hirottokun dayo kyoh wa katazuke naide oitoku kara kimi ga boku no mono naraba daite iyaseba ih sashinoberareta yubisaki ga tsumetai kikai no yohde tsugi-hagi no karada nara nadete umereba ih netsu wo ageyoh dakishimete yuka no namida kawaku made kanadeyoh soh soh omou [部分編集] ■ Show/Hide EnglishTranslation Machine Meiden 2009-02-12 First Entry 2009-03-17 09 24 47 (Tue) Last update Trasnlated by BookPeople Title Machine Meiden Lyric KyoudaiP Creator ulysses comment in PIAPRO It s a original piece of music, my first posting Lyrics as I will heal "the girl who is depressed so as to look like a machine" 『Machine Meiden(マシーンメイデン)』 触らない言葉 今の君には意味が無いから Words with a soft tone Cause they don t affect present you 少しうるさくするよ 今夜はあまりに静かだし I will talk in a bigger voice It s too quiet tonight 右手のコーヒーカップ うつむいてる A coffee cup in your right hand looks down 視線の無い声が 部屋に響いて The voice which doesn t see anything echoes in the room, それが僕の胸をかきむしる And it tears my chest つぎはぎの身体なら 撫でて埋めればいい If your body is patchy, I will fill up the gap by stroking it 熱をあげよう心から 早い鼓動戻るまで続けよう Giving my temperature to you with my soul I will continue it till your early pulse is restored そう そう思う Just so, I think so 大丈夫なつもりでも なにも落っことしてないつもりでも ほら If you believe you finished it well or dropped nothing, Look! 散らかっているよ 今は見る必要無いけれど It s in a mess Though you don t need to look now 僕が起きる前 明日の朝 Before I wake up, morning of tomorrow 見回してごらんよ 拾っとくんだよ Look about and pick up them 今日は片付けないで置いとくから I intend to put them without clearing them up today 君が僕のものならば 抱いて癒せばいい If you are my dear, I will heal you by holding you 差し伸べられた指先が 冷たい機械のようで Your finger-tip held out seems to be a cold machine つぎはぎの身体なら 撫でて埋めればいい If your body is patchy, I will fill up the gap by stroking it 熱をあげよう 抱きしめて Giving my temperature by holding you 床の涙乾くまで奏でよう Sounding my song till your tears on the floor dry そう そう思う Just so, I think so 『Machine Meiden』 Lyric ulysses Words with a soft tone Cause they don t affect present you I will talk in a bigger voice It s too quiet tonight A coffee cup in your right hand looks down The voice which doesn t see anything echoes in the room, And it tears my chest If your body is patchy, I will fill up the gap by stroking it Giving my temperature to you with my soul I will continue it till your early pulse is restored Just so, I think so If you believe you finished it well or dropped nothing, Look! It s in a mess Though you don t need to look now Before I wake up, morning of tomorrow Look about and pick up them I intend to put them without clearing them up today If you are my dear, I will heal you by holding you Your finger-tip held out seems to be a cold machine If your body is patchy, I will fill up the gap by stroking it Giving my temperature by holding you Sounding my song till your tears on the floor dry Just so, I think so Comment If you have any advise or opinion for this post please write here.この投稿に対して助言、ご意見などありましたらこちらに書き込んで下さい。 Name Comment すべてのコメントを見る Last modified 2009-03-17 09 24 47 (Tue) Original Lyric, Nicosound MP3, etc http //www5.atwiki.jp/hmiku/pages/476.html Original version http //nicosound.anyap.info/sound/sm1732883 http //www.nicomimi.com/play/sm1732883 Guitar recital version http //nicosound.anyap.info/sound/sm3006901 http //www.nicomimi.com/play/sm3006901 Sub video, PV, other fan made video in YouTube http //www.youtube.com/watch?v=JkUCkDUCCpI [Add] http //www.youtube.com/watch/xxxxxxxxx ADD LINK すべてのコメントを見る http //www.youtube.com/watch?v=JkUCkDUCCpI (Information in this page is based on HatsuneMiku@Wiki) _
https://w.atwiki.jp/ohmichi_linux/pages/22.html
Fedora14 x86_64 をダウンロードする。 Fedora14 を install する。 日本語入力 [システム] - [設定] - [入力メソッド] iBus を使用する。 入力メソッドの個人設定 [インプットメソッド] - [インプットメソッドの選択] で "日本語" を選択する。 [追加] を押して、[閉じる] kvm の設定 以下のパッケージを yum でインストールした。 qemu-kvm libvirt virt-manager virtual machine manager で puppy linux をインストールする。 os type, version はともに generic にした。(version に puppy が無かったため) 解像度:1280 * 768 で動作させる。 以下のブログに説明があった。 http //mo.kerosoft.com/0167 うちもkvm(keyboard ...のほう)を使っているので、モニタを自動認識しない。 認識している解像度とモニタID(VGA-0)を確認する。 # xrandr Screen 0 minimum 320 x 200, current 1024 x 768, maximum 8192 x 8192 VGA-0 connected 1024x768+0+0 (normal left inverted right x axis y axis) 0mm x 0mm 1024x768 60.0* 800x600 60.3 56.2 848x480 60.0 640x480 59.9 HDMI-0 disconnected (normal left inverted right x axis y axis) 1280x768_60.00 (0x113) 79.5MHz h width 1280 start 1344 end 1472 total 1664 skew 0 clock 47.8KHz v height 768 start 771 end 781 total 798 clock 59.9Hz 追加する解像度の記述内容を取得する。 # cvt 1280 768 # 1280x768 59.87 Hz (CVT) hsync 47.78 kHz; pclk 79.50 MHz Modeline "1280x768_60.00" 79.50 1280 1344 1472 1664 768 771 781 798 -hsync +vsync 新しい解像度をモードに追加する。 # xrandr --newmode "1280x768" 79.50 1280 1344 1472 1664 768 771 781 798 -hsync +vsync モニタと新しい解像度をひもづけする。 # xrandr --addmode VGA-0 "1280x768" 新しい解像度に切り替える。(再起動時ではなく、ここで切り替わる) # xrandr --output VGA-0 --mode "1280x768" # 新しい解像度に切り替わったことを確認する。 と、ここまで書いたが xrandr だと再起動時に設定が消えてしまう。 上記コマンドを /etc/gdm/Init/Default の exit 0 の直前に保存する。 画面の表示位置を調整する。 TODO install 済みの windows XP をユーザドメイン化する。 Fedora14 起動時に自動的に Windows XP ドメインが起動するようにする。 起動直後の画面を Windows XP にする。 操作上、Windows XP が立ち上がったように見せる。 Linux がバックグランドで動いているイメージ。 Windows XP の VGA ドライバで直接操作できるようにする。
https://w.atwiki.jp/solsurvivor/pages/39.html
Machine Gun 概要 While seen as old-fashioned in many outfits in the Sol Paragon fleet, the machine gun s relentless efficiency forces its continued use. Not known for its accuracy, the machine gun is a loud and excessive bit of nostalgia for veterans of wars past. Machine guns can be used to cover tight choke points with continuous cones of fire at ground troops. The best placements for machine guns tend to minimize their turning time, forcing creeps to walk into the stream of fire. タレットユニーク効果 敵へ鉛弾の雨を発生させます。 ダメージタイプ Piercing 貫通ダメージ 使用オフィサー Null レベルアップによる威力とコスト レベル 射程距離 威力 資源コスト 1 48 118 20 2 53 534 83 3 58 1687 263
https://w.atwiki.jp/wiki7_wmp/pages/16.html
m4a(AAC)をライブラリに追加する方法 .m4aファイルは拡張子エラーを起こすものの、wma自体がm4aを元にしたものなので、再生可能。 再生するだけではそれで充分だが、ライブラリで管理するには正式にCodecをインストールして関連付けを行った方が良い。 Codecをインストールする AAC Codecにはいろいろとあるが、Core AACが定番である。 なお、ffdshowを入れることでも「m4a」は再生できる 3ivx CoreAAC DS+Haali Media Spliter DC-Bass+Haali Media Spliter mpegable DS m4aにエンコードする AAC(.m4a)エンコードはWMPでは無理なので、ほかのソフトを利用する。 無料で扱いやすいのは何と言ってもiTunesの他にはない。 継続使用については様々な問題があるがAACエンコード及びAAC用タグエディタと割り切ればこれほど使いやすいものはないと思う。 Apple iTunes+QuickTime iTunes@wiki ライブラリに追加するには 以下をレジストリで保存して、実行する。 なお、ライブラリに追加するだけなら WMP Tag Support Extenderは必要ない。 Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Multimedia\WMPlayer\Extensions\.aac] "Permissions"=dword 0000000f "Runtime"=dword 00000007 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Multimedia\WMPlayer\Extensions\.m4a] "Permissions"=dword 0000000f "Runtime"=dword 00000007 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Multimedia\WMPlayer\Extensions\.m4b] "Permissions"=dword 0000000f "Runtime"=dword 00000007 iTunesとライブラリを同期する Music Bridgeを使うと同期が出来ます。 ミラー
https://w.atwiki.jp/abwiki/pages/270.html
前回と同じ修正が必要。 またこのサンプルを実行するとレギストリに永遠に値が残るのでこれは重大な問題だと癒える。 前回に引き続き、メモリ監視ツールに、オプション項目を付け足してみます。 今回作成するプログラムのサンプルファイルを置いておきますので、参考にしたい方はどうぞ☆ SystemWatcher2.zip(プロジェクトに必要なファイルがすべて入っています) オプション項目って何をするの? 更新間隔の設定 最前面表示のオン/オフ 今回は、上記の2点と、それら設定項目のレジストリへの保存を試みます。 レジストリ操作 ① RegOpenKeyEx関数でレジストリキーをオープン ② RegQueryValueEx関数で値を読み込む / RegSetValueEx関数で値をセットする ③ RegCloseKey関数でレジストリキーを閉じる 各関数のパラメータの詳細は、ヘルプファイルでご確認下さい。 作り方☆ 前回のステップ27で作成したプロジェクトに手を加えていきます。 まず、MainWndのRAD画面を開き、下記のように、チェックボタン1つ、通常ボタン1つを挿入します。 次に、OptionButtonが押された時に表示するオプションダイアログを作ります。ProjectViewのMaterialタブ内のWindowフォルダを右クリックし、ウィンドウを挿入します。 OptionDlgにコントロールを挿入し、下の図のような構成に仕上げます。 MainWndのイベントコーディング ※太字は、前回からの変更点を表します。 ---------------------------------------------------------------------------- イベント プロシージャ ---------------------------------------------------------------------------- このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。 ウィンドウ ハンドル hMainWnd メモ - 以下の領域を、変数、構造体、定数、関数を宣言するための、 グローバル領域として利用することができます。 ----------------------------------ここから---------------------------------- Dim RenewalTiming As Long 更新間隔 ----------------------------------ここまで---------------------------------- ↑MainWnd.sbpの先頭部分には変更点はありません。RenewalTiming=500という行はあってもなくても構いません。 Sub MainWnd_Destroy() タイマーを終了する KillTimer(hMainWnd,0) ------------------------------ レジストリに設定値を書き込む ------------------------------ Dim hKey As HKEY Dim IsTopMost As Long 「常に手前に表示する」ボタンにチェックが入っているかどうかを調べる If SendMessage(GetDlgItem(hMainWnd,Check_TopMost),BM_GETCHECK,0,0) Then IsTopMost=1 Else IsTopMost=0 End If レジストリをオープン(サブキーが存在しなときは作成する) RegCreateKeyEx(HKEY_CURRENT_USER,"Software\SystemWatcher",0,NULL, _ REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0) 値 "IsTopMost" に変数 IsTopMost の内容をセットする RegSetValueEx(hKey,"IsTopMost",0,REG_DWORD,VarPtr(IsTopMost),Len(IsTopMost)) 値 "RenewalTiming" に変数 RenewalTiming の内容をセットする RegSetValueEx(hKey,"RenewalTiming",0,REG_DWORD,VarPtr(RenewalTiming),Len(RenewalTiming)) レジストリ ハンドルを閉じる RegCloseKey(hKey) SystemWatcher_DestroyObjects() PostQuitMessage(0) End Sub ↑Destroyイベントでは、設定内容のレジストリへの書き込みを行います。 Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT) Dim buf As String Dim BufSize As Long Dim hProgBar As Long -------------------------------- レジストリから設定値を読み取る -------------------------------- Dim hKey As HKEY Dim IsTopMost As Long レジストリをオープン If RegOpenKeyEx(HKEY_CURRENT_USER,"Software\SystemWatcher", 0,KEY_ALL_ACCESS,hKey)=ERROR_SUCCESS Then 値 "IsTopMost" の内容を変数 IsTopMost にコピーする ※読み込みが失敗したときは自動的にIsTopMostの内容は0になる BufSize=Len(IsTopMost) RegQueryValueEx(hKey,"IsTopMost",0,0,VarPtr(IsTopMost),VarPtr(BufSize)) 値 "RenewalTiming" の内容を変数 RenewalTiming にコピーする BufSize=Len(RenewalTiming) If RegQueryValueEx(hKey,"RenewalTiming",0,0, VarPtr(RenewalTiming),VarPtr(BufSize)) ERROR_SUCCESS Then 読み込みが失敗したときは、デフォルト値の500にセットする RenewalTiming=500 End If レジストリを閉じる RegCloseKey(hKey) Else レジストリキーが存在しないときはデフォルト値をセットする IsTopMost=0 RenewalTiming=500 End If If IsTopMost Then IsTopMostの内容が0以外のときは、最前面ウィンドウにする SendDlgItemMessage(hMainWnd,Check_TopMost,BM_SETCHECK,BST_CHECKED,0) SetWindowPos(hMainWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE) End If -------------------------- OSのバージョン情報を取得 -------------------------- Dim OsVerInfo As OSVERSIONINFO Dim BuildNum As Long OsVerInfo.dwOSVersionInfoSize=Len(OsVerInfo) GetVersionEx(OsVerInfo) If OsVerInfo.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS Then Windows 9x系OS(メジャーバージョンは常に4) Select Case OsVerInfo.dwMinorVersion Case 0 buf="Windows 95" Case 10 buf="Windows 98" Case 90 buf="Windows Me" End Select BuildNum=LOWORD(OsVerInfo.dwBuildNumber) ElseIf OsVerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT Then Windows NT系OS If OsVerInfo.dwMajorVersion=4 Then buf="Windows NT" ElseIf OsVerInfo.dwMajorVersion=5 Then If OsVerInfo.dwMinorVersion=0 Then buf="Windows 2000" ElseIf OsVerInfo.dwMinorVersion=1 Then buf="Windows XP" End If End If BuildNum=OsVerInfo.dwBuildNumber End If OS情報をウィンドウに表示する SetWindowText(GetDlgItem(hMainWnd,Static_OSName),buf) SetWindowText(GetDlgItem(hMainWnd,Static_OSBuildNum),Str$(BuildNum)) SetWindowText(GetDlgItem(hMainWnd,Static_OSNote),OsVerInfo.szCSDVersion) ------------------ メモリ情報を取得 ------------------ Dim MemStatus As MEMORYSTATUS Dim rate_Physical As Long, rate_Virtual As Long MemStatus.dwLength=Len(MemStatus) GlobalMemoryStatus(MemStatus) 物理メモリに関する情報を表示する rate_Physical=MemStatus.dwMemoryLoad SetWindowText(GetDlgItem(hMainWnd,Static_RatePhysical),Str$(rate_Physical)+"%") SetWindowText(GetDlgItem(hMainWnd,Static_TotalPhysical),Str$(Int(MemStatus.dwTotalPhys/1024))+"KB") SetWindowText(GetDlgItem(hMainWnd,Static_UsedPhysical),_ Str$(Int((MemStatus.dwTotalPhys-MemStatus.dwAvailPhys)/1024))+"KB") 仮想メモリに関する情報を表示する rate_Virtual= _ Int(CDbl(MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/CDbl(MemStatus.dwTotalPageFile)*100) SetWindowText(GetDlgItem(hMainWnd,Static_RateVirtual),Str$(rate_Virtual)+"%") SetWindowText(GetDlgItem(hMainWnd,Static_TotalVirtual),Str$(Int(MemStatus.dwTotalPageFile/1024))+"KB") SetWindowText(GetDlgItem(hMainWnd,Static_UsedVirtual),_ Str$(Int((MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/1024))+"KB") 物理メモリ使用率のプログレスバーの初期設定 SendMessage(GetDlgItem(hMainWnd,ProgressBar_Physical),PBM_SETRANGE,0,MAKELONG(0,100)) SendMessage(GetDlgItem(hMainWnd,ProgressBar_Physical),PBM_SETPOS,rate_Physical,0) 仮想メモリ使用率のプログレスバーの初期設定 SendMessage(GetDlgItem(hMainWnd,ProgressBar_Virtual),PBM_SETRANGE,0,MAKELONG(0,100)) SendMessage(GetDlgItem(hMainWnd,ProgressBar_Virtual),PBM_SETPOS,rate_Virtual,0) メモリ使用率のタイマーを設定(RenewalTiming秒間隔) SetTimer(hMainWnd,0,RenewalTiming,0) End Sub ↑Createイベントでは、レジストリの読み込みを行います。 Sub MainWnd_Timer(ByVal TimerID As Long) Dim MemStatus As MEMORYSTATUS Dim rate_Physical As Long, rate_Virtual As Long ------------------ メモリ情報を取得 ------------------ MemStatus.dwLength=Len(MemStatus) GlobalMemoryStatus(MemStatus) 物理メモリに関する情報を更新する rate_Physical=MemStatus.dwMemoryLoad SetWindowText(GetDlgItem(hMainWnd,Static_RatePhysical),Str$(rate_Physical)+"%") SetWindowText(GetDlgItem(hMainWnd,Static_UsedPhysical),_ Str$(Int((MemStatus.dwTotalPhys-MemStatus.dwAvailPhys)/1024))+"KB") 仮想メモリに関する情報を更新する rate_Virtual= _ Int(CDbl(MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/CDbl(MemStatus.dwTotalPageFile)*100) SetWindowText(GetDlgItem(hMainWnd,Static_RateVirtual),Str$(rate_Virtual)+"%") SetWindowText(GetDlgItem(hMainWnd,Static_UsedVirtual),_ Str$(Int((MemStatus.dwTotalPageFile-MemStatus.dwAvailPageFile)/1024))+"KB") プログレスバーの位置を設定 SendMessage(GetDlgItem(hMainWnd,ProgressBar_Physical),PBM_SETPOS,rate_Physical,0) SendMessage(GetDlgItem(hMainWnd,ProgressBar_Virtual),PBM_SETPOS,rate_Virtual,0) End Sub ↑Timerイベントに変更点はありません。 Sub MainWnd_Check_TopMost_Click() If SendMessage(GetDlgItem(hMainWnd,Check_TopMost),BM_GETCHECK,0,0) Then 最前面ウィンドウに設定する SetWindowPos(hMainWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE) Else 最前面ウィンドウを解除する SetWindowPos(hMainWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE) End If End Sub ↑「常に手前に表示する」ボタンがクリックされたときのイベントです。SetWindowPos関数を使って、最前面ウィンドウのオン/オフを行っています。 Sub MainWnd_OptionButton_Click() Dim ret As Long オプション ダイアログ ボックスを表示する ret=DialogBox(hMainWnd,"OptionDlg") キャンセルボタンが押された時は抜け出す If ret=-1 Then Exit Sub 更新タイミングを変更 RenewalTiming=ret タイマーを再始動させる KillTimer(hMainWnd,0) SetTimer(hMainWnd,0,RenewalTiming,0) End Sub ↑「オプション」ボタンがクリックされたときのイベントです。DialogBox関数でOptionDlgを表示し、更新間隔の取得、設定を行います。 ここから下はOptionDlg.sbp内のコーディングになります。OptionDlgに関するイベントコーディングを行っていきます。 ---------------------------------------------------------------------------- イベント プロシージャ ---------------------------------------------------------------------------- このファイルには、ウィンドウ [OptionDlg] に関するイベントをコーディングします。 ウィンドウ ハンドル hOptionDlg メモ - 以下の領域を、変数、構造体、定数、関数を宣言するための、 グローバル領域として利用することができます。 ----------------------------------ここから---------------------------------- Sub SetDlgCenter(ByVal hOwner As Long, ByVal hDlg As Long) Dim OwnerRect As RECT, DlgRect As RECT Dim x As Long, y As Long GetWindowRect(hOwner,OwnerRect) メイン ウィンドウの座標を取得 GetWindowRect(hDlg,DlgRect) ダイアログボックスの座標を取得 新しい座標を計算 x=((OwnerRect.right-OwnerRect.left)-(DlgRect.right-DlgRect.left))/2 + OwnerRect.left y=((OwnerRect.bottom-OwnerRect.top)-(DlgRect.bottom-DlgRect.top))/2 + OwnerRect.top 位置を変更 SetWindowPos(hDlg,NULL,x,y,0,0,SWP_NOSIZE) End Sub ----------------------------------ここまで---------------------------------- ↑OptionDlg.sbpの先頭部分のコーディングです。SetDlgCenter関数には、指定したウィンドウを中央に配置する機能を持たせます。 Sub OptionDlg_Create(ByRef CreateStruct As CREATESTRUCT) ダイアログボックスを中央に表示する SetDlgCenter(hMainWnd,hOptionDlg) ラジオボタンの初期選択 Select Case RenewalTiming Case 100 SendMessage(GetDlgItem(hOptionDlg,RadioButton1),BM_SETCHECK,BST_CHECKED,0) Case 500 SendMessage(GetDlgItem(hOptionDlg,RadioButton2),BM_SETCHECK,BST_CHECKED,0) Case Else SendMessage(GetDlgItem(hOptionDlg,RadioButton3),BM_SETCHECK,BST_CHECKED,0) End Select End Sub ↑OptionDlgのCreateイベントです。RenewalTiming変数の内容を元に、ラジオボタンの初期化を行います。 Sub OptionDlg_OkButton_Click() Dim ret As Long 選択されているラジオボタンを調べる If SendMessage(GetDlgItem(hOptionDlg,RadioButton1),BM_GETCHECK,0,0) Then ret=100 ElseIf SendMessage(GetDlgItem(hOptionDlg,RadioButton2),BM_GETCHECK,0,0) Then ret=500 Else ret=1000 End If 戻り値に変数retの内容をセットする EndDialog(hOptionDlg,ret) End Sub ↑OptionDlgのOKボタンがクリックされたときのイベントです。選択されているラジオボタンを調べ、DialogBox関数の戻り値を設定します。この戻り値が、後に更新間隔を示すことになります。 Sub OptionDlg_CancelButton_Click() キャンセルが押された時は、戻り値に-1をセットする EndDialog(hOptionDlg,-1) End Sub ↑OptionDlgのキャンセルボタンがクリックされたときのイベントです。 これで作業は完了です。更新間隔の設定が正常に行われているかどうか、レジストリへの書き込み、読み込みが正常かどうかをチェックしてみましょう。
https://w.atwiki.jp/b7350/pages/16.html
通常の海外端末の日本語化方法で可能。 wm6.5なので日本語の表示だけであれば、デフォルトで可能。 ■ レジストリ変更を可能にしておく ① TRE Pocket PCのインストール 表示→オプションから、関連づけを設定する ② インストール確認ダイアログ表示をオフ [KEY_LOCAL_MACHINE\Security\Policies\PoliciesValue] "0000101a"=dword 00000000 を "0000101a"=dword 00000001 に regファイル ■ 日本語化 ① LetsJapanWM61r09のインストール インストール後、再起動の確認→「No」 ※ハードキーが完全に死亡します。間違って再起動してしまっても、タッチ操作はできますので慌てずに。 ② ATOK for Windows Mobileのインストール インストール後、再起動の確認→「No」 ③ ハードキー復活 [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Layouts\e0010411] “Keyboard Layout”=”00000409″を 追加 regファイル ④ 日本語改行対策 [HKEY_LOCAL_MACHINE\System\GDI] "DisableFarEastWordBreak"=dword 00000001 を "DisableFarEastWordBreak"=dword 00000000 に regファイル ⑤ フォントのインストール メイリオなど好みのフォントをWindowsフォルダなどにコピー ⑥ Pocketの手でフォントリンク設定 インストールしたフォントを設定。システムフォントは等幅フォントにしないとOperaブラウザなどで表示が乱れることがあるようです。
https://w.atwiki.jp/thecranofligaya/pages/36.html
マシンスペック ~Machine Specs~ Vjedgonia Device type Devices CASE Scythe SCY-0311Fourth Edition WH POWER GIGABYTE ODIN GT 550W + Visuals (Analog meter) M/B Intel DP35DP CPU Intel Core 2 Duo E6850 (3.00GHz x2) MEMORY UMAX Pulsar (DDR2 PC2-6400 2GB x4) (8GB) DISK HDD x4 GPU GIGABYTE GV-N95TOC-1GH (NVIDIA GeForce 9500GT(OC)) SOUND CREATIVE Sound Blaster X-Fi XtremeGamer HEADPHONE Pioneer SE-M390 MIC SteelSeries Siberia KEYBOARD FILCO Majestouch Tenkeyless FKBN91M/NB MOUSE Microsoft IntelliMouse Explorer 3.0 MOUSEPAD SteelSeries Qck (320 x 270 x 2 mm) OS Microsoft Windows 7 Ultimate 64bit (Build 7600) DirectX DirectX 11 http //ameblo.jp/ligaya-vjedgonia/entry-10631316446.html http //www.negitaku.org/members/10601/ みんなのマガジン Device type Devices POWER OWLTECH EVEREST 85PLUS 720 M/B MSI X58M CPU Intel Core i7 920 (2.67GHz x4) MEMORY PQI TURBO MEMORY For Desktop (DDR3 x3) (3GB) DISK SSD x2 GPU ELSA AXERIZE GTX 460 1GB OC (Geforce GTX 460) SOUND CREATIVE Sound Blaster X-Fi Titanium Professional Audio HEADSET SENNHEISER PC 333D G4ME KEYBOARD Microsoft SideWinder X6 Keyboard MOUSE Logicool G9x Laser Mouse MOUSEPAD SANWA SUPPLY 超大型マウスパッド MPD-OP34-A3 (A3サイズ) OS Microsoft Windows 7 Home Premium 32bit (Build 7600) DirectX DirectX 11 ちょかぴく Device type Devices CPU Intel Core 2 Duo E8400 (3.00GHz x2) MEMORY 4GB DISK HDD GPU NVIDIA GeForce GT 220 SOUND Realtek High Definition Audio HEADSET SENNHEISERのやつ(型式不明) MOUSE Microsoft IntelliMouse Explorer 3.0 MOUSEPAD SteelSeries Qck mini(250 x 210 x 2 mm) OS Microsoft Windows 7 Professional 32bit (Build 7600) DirectX DirectX 11 きみをぶっ打ち殺す!(すけボウ) Device type Devices CASE ANTEC Nine Hundred Two CPU AMD Phenom II X4 945 (3.00GHz x4) MEMORY 2GB DISK HDD x1 MIC SteelSeries Siberia KEYBOARD FILCO Excellio Lite FKBE109/JP MOUSE Microsoft IntelliMouse Explorer 3.0 MOUSEPAD DHAMAPOINT TACTICAL PAD DRTCPW30S (300 x 260 x 7 mm) OS Microsoft Windows 7 Ultimate 64bit (Build 7600) DirectX DirectX 11 ハルノ Device type Devices CPU Intel Core 2 Duo (型式不明) MEMORY CFD W2U800CQ-1GLZJ (DDR2 PC2-6400 1GB x2) (2GB) DISK HDD x1 GPU 玄人志向 GF-GTX260-E896G2 (NVIDIA GeForce GTX260) KEYBOARD ENERMAX AURORA Premium KB007U-B/S MOUSE Logicool Gaming Mouse G500 OS Microsoft Windows XP Professional 32bit DirectX DirectX 9