1 名前:デフォルトの名無しさん [2005/12/27(火) 12:39:47 ] 何があるだ?
16 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 09:46:33 ] タスクバーのアイコン右クリで出てくるコンテキストメニューで 「元に戻す」「最小化」「閉じる」しか出ないのがDelphi なんて書き込みをどっかで見たけど一概にそうとは言えないっぽい。 MDIEはDelphi製のハズなのにほかのメニューも出てくるし。 Janeとひまわりはコレで区別付くからどういう仕組みなんだかさっぱり分からん。
17 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 09:47:30 ] 「元に戻す」やのうて「元のサイズに戻す」だった。
18 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 10:10:08 ] リンカのバージョンでわかんなかったっけ?>13
19 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 10:22:40 ] ExeにVCL情報が残ってる。 以前、某はそれを吸い出し、棒にメール送信するツールを、Delphiソースとセットで公開してた。 何のために使うのかと思ってたが、後にKylix/CLXが出たので納得した、 が、Kylixは今や(ry
20 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 14:37:04 ] アメリカじゃ、パスカルって結構メジャーな言語なんだよな
21 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 17:44:46 ] アメリカじゃなくて、ヨーロッパな
22 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 17:45:22 ] Delphi はパスカルじゃないけどね
23 名前:デフォルトの名無しさん mailto:sage [2005/12/28(水) 18:03:47 ] 言わずもがなだが7からDELPHI。
24 名前:デフォルトの名無しさん mailto:sage [2005/12/29(木) 23:41:30 ] Ares Galaxy SourceForge 第二位 sourceforge.net/
25 名前:デフォルトの名無しさん mailto:sage [2005/12/31(土) 14:32:33 ] >>19 ごめん。意味がよく分からない。 Kylix/CLXがどう関係するの?
26 名前:デフォルトの名無しさん mailto:sage [2006/01/01(日) 02:08:31 ] そんなこと、どうでもいいだろうに。 いまや、希少価値となったDelphi製有名アプリをいちいち挙げて、なつかしむスレなんだし
27 名前:デフォルトの名無しさん mailto:sage [2006/01/06(金) 09:57:49 ] C#で作った有名ソフトって何があるの?
28 名前:デフォルトの名無しさん mailto:sage [2006/01/06(金) 10:06:37 ] >>27 SharpReader かな。 糞重くて常駐を切れないので使うの止めたけど。 あと思いつくのはNASAのビューワーくらいか。 ・・・使いたくないアプリばっかりだな。
29 名前:デフォルトの名無しさん [2006/01/06(金) 12:46:14 ] テキスト音楽サクラってもう古い?
30 名前:デフォルトの名無しさん mailto:sage [2006/01/06(金) 20:04:22 ] >>27 スレ違い .NET で作られた有名ソフトって何がある? pc8.2ch.net/test/read.cgi/tech/1027559190/
31 名前:デフォルトの名無しさん [2006/01/06(金) 22:31:47 ] >>16 自分で実装したらメニューなんて増やせるだろ
32 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 00:28:26 ] Lhaplus Win高速化 PC+ Irvineフリー版 縮小専用。 窓の手 Iria VirtualRD for Windows EditMTU TeraPad MKEditor for Windows K2Editor NoEditor Jane Doe Style ギコナビ TMPGEncシリーズ
33 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 00:29:35 ] CPad for Borland C++Compiler BCC Developer ひまわり なでしこ InnoSetup LiberalInstaller HelpDesigner ヘルプましん 〜 HTML Help Designer 〜 ResourceHacker eXeScope Ad-Aware SE Personal Edition Spybot StartupScanner デーモンバスター CD2WAV32 DriveDiet GrepReplace exeにunicode文字列"DVCLAL"と"PACKAGEINFO"があればDelphi "DVCLAL"だけならBCC。UPXで圧縮されていても判る。
34 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 00:56:07 ] > C#で作った有名ソフトって何があるの? D2005, BDS2006 のIDEの一部。ま、あんまり有名じゃないけど。
35 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 01:43:05 ] >>34 クソなアプリばっかだなww
36 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 10:09:13 ] >>33 >exeにunicode文字列"DVCLAL"と"PACKAGEINFO"があればDelphi >"DVCLAL"だけならBCC。UPXで圧縮されていても判る。 こんな感じでVC++で作られたアプリを見分ける方法はありますか?
37 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 10:10:23 ] Delphiで、Exeからコンパイラ判定ツール作ってお。
38 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 10:15:51 ] MSと某のWinアプリはDOS起動時のメッセージが違うから見分けがつく
39 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 12:22:45 ] >>38 なるほど、DOSヘッダー見ればいいわけか
40 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 12:51:12 ] DOSヘッダーとか色んなパラメタでコンパイラ見分けるツールきぼん。
41 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 15:24:51 ] 見分けてどうするつもりかね。うわぁー、これもDELなんだぁー、とか言って喜ぶとか?(藁
42 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 15:34:41 ] >>41 何でこのスレ見てるの?
43 名前:デフォルトの名無しさん mailto:sage [2006/01/07(土) 15:39:00 ] うむ。>>41 は燃えないごみ
44 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 11:28:23 ] sourceforgeでさ、どの言語がよく使われているか見れるジャン? そういうののローカル版があると面白いよなって話しだろ オンラインソフト沢山入れてるおれは、Delphiは多い予感
45 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 11:32:55 ] 少なくなってきたら見切りをつければ良いと。
46 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 17:23:00 ] いまでも十分少ないと思うが。
47 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 17:36:22 ] 質は高いはず
48 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 21:20:01 ] Beckyも秀丸もDelphiじゃないけど、その質を上回るDelphiアプリがあるんかい?
49 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 21:56:04 ] 質を測る指標があるんかい? もしかして、主観とか官能評価ってやつ?
50 名前:デフォルトの名無しさん [2006/01/08(日) 22:00:34 ] 主観だが どうみてもこれは糞ってソフトや このソフトすげーーーってのあるだろ
51 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:03:16 ] 数だけなら、Delphiアプリの数なんざ、めったにないだろ。上に上がってるヤツぐらい。 Vector には何万とオンラインソフトが登録されてるんだから、1%もないわな。
52 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:12:32 ] ゲ製作技術板ではなぜかDelphi率高い 学生ユーザーまだまだ多いのかな
53 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:34:30 ] 厨房率が高いのは昔から。Del6per のせいだろうね。
54 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:40:20 ] つまり、こいつら>>32-33 全員厨房ってこと?
55 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:42:53 ] >>54 それで笑いとれると思ってるの?
56 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:48:36 ] skypeがDelphi製で最も利用者が多いんだろうな。
57 名前:デフォルトの名無しさん mailto:sage [2006/01/08(日) 22:54:02 ] くじらぽんは当時7だった気がする
58 名前:デフォルトの名無しさん [2006/01/08(日) 22:54:56 ] 当時7歳で開発したのか?すげーな
59 名前:デフォルトの名無しさん mailto:sage [2006/01/09(月) 02:47:43 ] くじらぽんって誰?
60 名前:デフォルトの名無しさん mailto:sage [2006/01/09(月) 02:50:11 ] 程度はともかく7歳で開発は早いわけじゃないだろう
61 名前:デフォルトの名無しさん mailto:sage [2006/01/09(月) 09:54:11 ] 7歳じゃなくDelphi7なんだが
62 名前:デフォルトの名無しさん mailto:sage [2006/01/09(月) 11:57:17 ] 厨房スレ認定!!
63 名前:デフォルトの名無しさん [2006/01/11(水) 12:29:12 ] C厨房が嫉妬でチュか
64 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 12:30:18 ] なにに嫉妬すればいいのか、教えて
65 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 17:20:24 ] 上で出ている話しをもとに、exeから何で作ったか判定するソフト 作ったら、欲しい人どれくらいいるかな?
66 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 17:23:17 ] >>65 ノシ そういうの、フリーソフトであるだろうと思って捜索したが、 意外と無かったから。 あったら、欲しいかも。
67 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 17:26:09 ] なんだ、そのためにこの糞スレ立てたのか!? くだらねぇー
68 名前:デフォルトの名無しさん [2006/01/11(水) 17:28:32 ] >>65 exeを1個指定したり、 ハードディスクをガバット調べてくれたり、 どっちも出来るのが欲しい。
69 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 17:46:14 ] >>66 そっか〜それじゃあ、プレゼントするよ。上の話を見て、 実は作ったんだ。VC++製だけどね。(^^; (でも処理上、上で出ていたパターンマッチの文字列を含むので、 自分自身を処理するとdelphi判定されるけど) んじゃ、適当なアップできるところ、探してくるね。 >>67 いや、話しの流れを見てもらえばわかると思うけど・・・ まあいっか。なんか欲しがっている人がいるし、結構簡単だから 作ってみるか〜と思ったんだ。意外とおもしろかったから、 よかったら遊んで見てね。 >>68 え〜っ!一つずつ調べるのしか作ってないです。 これなにで作ったのかな?と思いながら使うほうが風流・・・ ではないかもしれませんが、即興ということでごめんね。 自分で作るのもいいかもね。 本当、たいしたものではないから、あまり期待しないように!(^^;
70 名前:65 mailto:sage [2006/01/11(水) 18:08:12 ] お待たせです。あげてきました。 一応念のため書いておきますが、問題ないはずですが、ウイルスチェックしてね。 あとこのソフト使用でおこることは、全て自己責任でお願いします。 ttp://www.uploda.org/file/uporg284110.zip.html 使い方は、解凍してできたファイルに、判定したいファイルを ドラッグしてほうりこんでください。 判定率は・・・80%ぐらいの正しさかな?もう少しいい判定方法が あるといいのかもしれないけど。難読化された.NETアプリとか、 UPXされたMSのアプリは誤判定がでるかも。 もうちょっと早い検索ができればいいんだけどね。バイナリエディタは どういう検索アルゴリズムなんだろう?(^^; あと、あんまり上げないでくれると嬉しいかな。出来はへぼいから 少々恥ずかしいので。
71 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:09:47 ] ソースもうpして。 ただのexeじゃコワ杉。
72 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:17:49 ] >>71 本物だったよ。画像いる?
73 名前:デフォルトの名無しさん [2006/01/11(水) 18:18:10 ] >>70 いただきました。 (俺も怖かったから、一応VM上で動かした(^^;) Delか否Delの判定だけかと思いきや、VBも判別してるね VC++、VBの判断はどうやったの?
74 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:19:15 ] 判定で よくわからないな〜 ってのもでたwwわろwwwww
75 名前:73 mailto:sage [2006/01/11(水) 18:21:10 ] VB.NETだと「よくわからないな〜」が出たw
76 名前:65 mailto:sage [2006/01/11(水) 18:22:37 ] >>71 気持ちはとてもよくわかるけど、ソースはちょっと勘弁してね。 へぼさがにじみ出ているので。(^^; 確か、2chにはexe鑑定人(?)なる人がいるって話しを聞いたことが あるけど、そこに依頼でお願い。
77 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:23:24 ] 判定に使ったパラメタを画面表示しる!
78 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:30:32 ] PEiD peid.has.it/
79 名前:65 mailto:sage [2006/01/11(水) 18:37:02 ] 意外と好評でなによりです。(^-^) 判定に使っているパラメータは、 delphi,BCBについては上に出ていたUNICODEの DVCLALとPACKAGEINFOのパターンがないか調べています。 VCとVBですが、VCで作られたものは、よく見てみると "Visual C++"のパターンが入っていたので、それを使いました。 (dosヘッダーの判定では、某かそうでないかの判定しかできないため) そこでまずVC判定をして、VBは必ずdllを呼ぶはずなので、 "MSVBVM"のパターンを探しています。 他には、gcc判定があるのですが、これは"mingw"パターンで、 HSP判定は、VCで作られていて、なおかつ"hsp"パターンがある時に たぶんHSPだと判別しています。 え〜っと、あと.NETはC#でメインを宣言するときの、 "public static main"だったかな?あたりをUNICODEで探しています。
80 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:38:44 ] うぉー欲が出てきた MFC判定もお願いしたい
81 名前:65 mailto:sage [2006/01/11(水) 18:46:57 ] >>80 いいですよ。それはたぶん結構簡単ですから。 それじゃあ、MFC機能追加するので、少々お待ちを。
82 名前:65 mailto:sage [2006/01/11(水) 19:27:36 ] >>80 一応、試してみました。簡単にできると思ったんですが、意外と難しいですね。 MFCはDLLだけならいいんですが、static linkできるのでその場合に、なにを パターンに選ぶかが難しいです。クラスの情報は多少残るみたいですが、 「これがMFC」という決め手がなくて・・・ というわけで、暫定的にとりあず"MFC"パターンをチェックするよう 追加しておきました。たぶん、誤判定が多いと思います。 (といっても、これ自体お遊びのような判定ですが。(^^) 新しいURLは、 ttp://www.uploda.org/file/uporg284152.zip.html です。ではでは。
83 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 19:28:26 ] これいいねぇー、
84 名前:80 mailto:sage [2006/01/11(水) 22:00:14 ] おお!グッジョブです。 いろいろ遊んでみるです!
85 名前:65 mailto:sage [2006/01/11(水) 22:22:57 ] たいしたソフトではありませんが、楽しんでもらえると嬉しいですね。(^-^) あんまりやると、スレになる可能性もあるので、ほどほどにしようかと 思いますが、ちょびっとバージョンアップしました。 アップした点は、VB.NETが(たぶん)判別されるようにしました。 (.NETアプリで、VB.NET以外はC#扱いになっています) ttp://www.uploda.org/file/uporg284256.zip.html よかったら、これを使ってdelphiでいいソフトを探してみてください。
86 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 22:58:11 ] 乙 参考に、それぞれの判定方法を教えて下され
87 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 23:06:00 ] おっと、書き忘れました。(^^; 前は、"public static main"を探していたのですが、それだとどうも ひっかからないC#のソフトがあったので、今度は".System.Windows.Forms" で.NET判定をしています。 VB.NETかどうかは、手短にダウンロードしてみたVB.NETのアプリには、 "VisualBasic"のパターンがあったので、.NETアプリでそのパターンが あるものは、VB.NET判定しています。 まあ、一番いいのはPEヘッダからファイルの構造を解析して・・・ だと思いますが、パターン探す方法でそれなりに当たるなら、 それも面白いですね。
88 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 23:35:43 ] 珍しいな 2chで口だけでなく実際に手を動かすとは やるじゃんよ>>65
89 名前:デフォルトの名無しさん mailto:sage [2006/01/11(水) 23:44:18 ] ゲ板出身じゃね?
90 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 00:12:07 ] だってそれしたくてこのスレ立てたんじゃないの
91 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 00:54:19 ] おお、意外と面白いw OWL製のソフトを突っ込んだら「よくわからないな〜」って言われた。 そりゃ、わからんわな。
92 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 08:34:58 ] やっぱ、オプソ化しちゃえ! 需要はある。
93 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 14:21:32 ] VBで作られた有名なアプリって何? pc8.2ch.net/test/read.cgi/tech/1134464762/9 9 名前:マイク ◆yrBrqfF1Ew [sage] 投稿日:2005/12/13(火) 23:55:51 イリア
94 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 14:43:47 ] 2ch」ブラウザの中で最も有名なLive2chがVB製だYO
95 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 14:45:53 ] ソース公開しろ!!!
96 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 16:38:50 ] 2ch」ブラウザの中で最も有名なOpenJaneがDelphi製だYO
97 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 16:47:41 ] 2chブラウザの中でもっとも使われているIEはMS製だぞ
98 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 16:55:46 ] 稼働率はLive2chが最強だろうな
99 名前:65 mailto:sage [2006/01/12(木) 18:29:37 ] >>88 お褒めにあずかり、恐縮です。(-_-) >>89 実はただの通りすがりだったりします。(^^; >>90 前にも書きましたが、スレ主とは無関係です。 >>91 思いつきで作ってみたんですが、予想外に楽しんでくれる人がいて、 よかったです。(^-^)
100 名前:65 mailto:sage [2006/01/12(木) 18:30:46 ] >>92 ,95 へぼソースの公開は、勘弁してね。代わりに、「作者や他の人に 迷惑がかからなければ、配布は自由」にしておきますから。 拾い物としてどこかのwebに置いたり、アップロードしてもOKです。 ただ、その際にできたら「お遊び用ツールで、誤判定もある」 ということは書いておいてください。同じものを作るのに 必要な情報は、全て上げてありますから、多分簡単に作れると 思いますよ。 段々スレ違いになっているので、(スレ主&住民さん、ごめんね) そろそろROMに戻るor消えようかと思いますが、以前にMFC対応の リクエストがあったので、それを強化したものを上げておきます。
101 名前:65 mailto:sage [2006/01/12(木) 18:31:43 ] URLは、以下のとおりです。 ttp://www.uploda.org/file/uporg284722.zip.html アップした点は、パターン"MFC??.DLL"を見つけたら、 MFC(dll)判定をして、パターン"Afx"を見つけたら、MFC(static) 判定をするようにしました。また、MFCを使っていたら、自動で VCで作られたと判別するようになっています。 (ちなみに、デバッグ版のexeはMFC??D.DLLなので判定できません。 まさかDebug版で配布するわけはないと思うので、割愛しました) 連投&長文失礼しました。m(--)m
102 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 18:38:43 ] 特定の文字列を探してるだけ?
103 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 18:48:28 ] 俺製のMFCスタティックリンクを見破りやがったな ヤルナ
104 名前:1 [2006/01/12(木) 21:26:45 ] このスレ立てた者です >>65 さん消えないでくれ!がんばってくれよ! 死にかけたこのスレに花を咲かせてくれたのはあんたなんだよ
105 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 21:29:09 ] >>65 のソフトを>>65 のソフトで解析した。 「delphi製だった。」
106 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 21:30:36 ] ワラタ
107 名前:でふぉるめな105♪ mailto:sage [2006/01/12(木) 21:40:11 ] と思ったら>>65-70 あたりでVC製だと書いてあった。
108 名前:デフォルトの名無しさん mailto:sage [2006/01/12(木) 21:49:24 ] HSPやNScripterも判別できる? 大元をたどればVCなんだろうけど そうじゃなくてHSPだって表示してくれるとおもしろい
109 名前:65 ◆bYWWiYT8IU mailto:sage [2006/01/12(木) 22:57:35 ] みなさん、レスどうもありがとうございます。 要望が出ていたようでしたので、少しだけ出てきました。 では、>>1 さんのご好意に甘えさせて頂いて、いつまでできるか わかりませんが、対応できる要望が出ていたら、その修正版を出すためだけ、 少しだけ顔を出させて頂こうかと思います。m(--)m HSP2,HSP3,NScripterの修正版をアップします。 ttp://www.uploda.org/file/uporg284906.zip.html 判定材料は、"hsprt.exe"をHSP2判定に、"hsp3.exe"をHSP3判定に、"nscr.exe"を NScripter判定に使っています。(一つの目安として、一応トリップつけました) では、また出番がくるまで消えています。m(--)m
110 名前:65 ◆bYWWiYT8IU mailto:sage [2006/01/13(金) 18:56:02 ] たびたび出てきてごめんね。もうちょっと頑張れるかと思ったけど、 ちょっと事情があって、ソフトの更新できなくなっちゃいました。 だから、頑張ってできるだけの更新をしてみたよ。これがfinalです。 ttp://www.uploda.org/file/uporg285395.zip.html 最後にレス下さったみんな、どうもありがとう。
111 名前:デフォルトの名無しさん [2006/01/13(金) 19:09:46 ] なにが変わったの?
112 名前:デフォルトの名無しさん mailto:sage [2006/01/13(金) 20:42:45 ] 更新終了なんら、ソース公開しないと発展性がない
113 名前:デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:19:13 ] 発展性なんかいらない。どうせ VC なんだし。
114 名前:デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:29:13 ] program Isdelphi; uses Windows, SysUtils; function GetType(const FileName: string): string; var Data: string; hFile: THandle; FileSize, d: DWORD; begin result := ''; hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hFile = INVALID_HANDLE_VALUE then result := 'ファイルが開けません' else begin try FileSize := GetFileSize(hFile, nil); if FileSize = DWORD(-1) then result := 'ファイルサイズの取得に失敗しました' else if FileSIze = 0 then result := 'ファイルが空です' else begin SetLength(Data, FileSize); ReadFile(hFile, Data[1], FileSize, d, nil);
115 名前:デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:30:01 ] if Pos('D'#0'V'#0'C'#0'L'#0'A'#0'L'#0, Data) <> 0 then begin if Pos('P'#0'A'#0'C'#0'K'#0'A'#0'G'#0'E'#0'I'#0'N'#0'F'#0, Data) <> 0 then begin if Pos('krdevui.dll', Data) <> 0 then result := '多分吉里吉里製' else if Pos('ひまわり', Data) <> 0 then result := '多分ひまわり' else if Pos('dnako.dll', Data) <> 0 then result := '多分なでしこ製' else result := '多分delphi製' end else if Pos('TForm', Data) <> 0 then result := '多分BCC製(VCL有り)' else result := 'たぶんBCB+圧縮か、BC製(VCLなし)'; end else if Pos('System.Windows.Forms', Data) <> 0 then begin if Pos('Microsoft.VisualBasic', Data) <> 0 then result := '多分VB.NET製' else result := '多分C#(?).NET製'; end else if (Pos('MFC4', Data) <> 0) or (Pos('MFC7', Data) <> 0) then result := '多分VC+MFC(dll)製かな?' else if Pos('Visual C++', Data) <> 0 then
116 名前:デフォルトの名無しさん mailto:sage [2006/01/13(金) 21:30:48 ] begin if Pos('CWinApp', Data) <> 0 then result := '多分VC+MFC(static)製かな?' else if Pos('hsp2.exe', Data) <> 0 then result := '多分HSP2製' else if Pos('hsp3.exe', Data) <> 0 then result := '多分HSP3製' else if Pos('nscr.exe', Data) <> 0 then result := '多分NScripter製' else result := '多分VC製'; end else if Pos('MSVBVM', Data) <> 0 then result := '多分VB製' else if (Pos('MSVCRT', Data) <> 0) or (Pos('msvcrt', Data) <> 0) then result := '多分VC(MSVCRT)製' else if Pos('mingw32', Data) <> 0 then result := '多分GCC(mingw)製' else if Pos('This program cannot be run in DOS mode', Data) <> 0 then result := '多分VC+圧縮か何か' else if Pos('This program must be run under Win32', Data) <> 0 then result := '多分Borland系製' else result := 'よくわからないな〜?'; end; finally CloseHandle(hFile); end; end; end;