ΨΨΨ　KFを語ろう Part1 ΨΨΨ

115 ：名無しさん＠お腹いっぱい。：03/06/20 13:56 ID:ow60gpzC.net

//=========================================================================================
//カーソル上のファイルに関連づけられたアプリを探す
//戻り値：なし
//=========================================================================================
void SearchExeFile()
{
str $ex = $P:e;
str $f_type = RegReadStr("HKEY_CLASSES_ROOT\." + $ex, "");
str $cmd = "";
str $stg = "";
str $exef = "";
int $a;
if ($f_type == "") {
Print("ファイルタイプを取得できませんでした");
} else {
$cmd = RegReadStr("HKEY_CLASSES_ROOT\" +$f_type + "\shell\open\command","");
if ($cmd == "") {
Print("アプリ探しに失敗しました。");
} else {
int $len = StrLen($cmd);
for ($a = 0; $a < $len; $a = $a + 1) {
$stg = $stg + StrMid($cmd, $a, 1);
if ((IsExist($stg) == 1) & (IsDirectory($stg) == 0)) {$exef = $stg:n;}
}
if ($exef == "") {Print("アプリ探しに失敗しました。");} else {
if (AskYN("関連づけられたアプリは" + $exef + "です。その場所を開きますか？", [$IDYES]) == [$IDYES]) {ChangeDir($exef:h);
}
}
}
}
}