delphiで作った有名ソフトって何があるの?
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2005/12/27(火) 12:39:47 何があるだ?
2005/12/28(水) 17:45:22
Delphi はパスカルじゃないけどね
2005/12/28(水) 18:03:47
言わずもがなだが7からDELPHI。
2005/12/29(木) 23:41:30
2005/12/31(土) 14:32:33
2006/01/01(日) 02:08:31
そんなこと、どうでもいいだろうに。
いまや、希少価値となったDelphi製有名アプリをいちいち挙げて、なつかしむスレなんだし
いまや、希少価値となったDelphi製有名アプリをいちいち挙げて、なつかしむスレなんだし
2006/01/06(金) 09:57:49
C#で作った有名ソフトって何があるの?
2006/01/06(金) 10:06:37
29デフォルトの名無しさん
2006/01/06(金) 12:46:14 テキスト音楽サクラってもう古い?
2006/01/06(金) 20:04:22
31デフォルトの名無しさん
2006/01/06(金) 22:31:47 >>16
自分で実装したらメニューなんて増やせるだろ
自分で実装したらメニューなんて増やせるだろ
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シリーズ
Win高速化 PC+
Irvineフリー版
縮小専用。
窓の手
Iria
VirtualRD for Windows
EditMTU
TeraPad
MKEditor for Windows
K2Editor
NoEditor
Jane Doe Style
ギコナビ
TMPGEncシリーズ
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で圧縮されていても判る。
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で圧縮されていても判る。
2006/01/07(土) 00:56:07
> C#で作った有名ソフトって何があるの?
D2005, BDS2006 のIDEの一部。ま、あんまり有名じゃないけど。
D2005, BDS2006 のIDEの一部。ま、あんまり有名じゃないけど。
2006/01/07(土) 01:43:05
>>34
クソなアプリばっかだなww
クソなアプリばっかだなww
2006/01/07(土) 10:09:13
>>33
>exeにunicode文字列"DVCLAL"と"PACKAGEINFO"があればDelphi
>"DVCLAL"だけならBCC。UPXで圧縮されていても判る。
こんな感じでVC++で作られたアプリを見分ける方法はありますか?
>exeにunicode文字列"DVCLAL"と"PACKAGEINFO"があればDelphi
>"DVCLAL"だけならBCC。UPXで圧縮されていても判る。
こんな感じでVC++で作られたアプリを見分ける方法はありますか?
2006/01/07(土) 10:10:23
Delphiで、Exeからコンパイラ判定ツール作ってお。
2006/01/07(土) 10:15:51
MSと某のWinアプリはDOS起動時のメッセージが違うから見分けがつく
2006/01/07(土) 12:22:45
>>38
なるほど、DOSヘッダー見ればいいわけか
なるほど、DOSヘッダー見ればいいわけか
2006/01/07(土) 12:51:12
DOSヘッダーとか色んなパラメタでコンパイラ見分けるツールきぼん。
2006/01/07(土) 15:24:51
見分けてどうするつもりかね。うわぁー、これもDELなんだぁー、とか言って喜ぶとか?(藁
2006/01/07(土) 15:34:41
>>41
何でこのスレ見てるの?
何でこのスレ見てるの?
2006/01/07(土) 15:39:00
うむ。>>41は燃えないごみ
2006/01/08(日) 11:28:23
sourceforgeでさ、どの言語がよく使われているか見れるジャン?
そういうののローカル版があると面白いよなって話しだろ
オンラインソフト沢山入れてるおれは、Delphiは多い予感
そういうののローカル版があると面白いよなって話しだろ
オンラインソフト沢山入れてるおれは、Delphiは多い予感
2006/01/08(日) 11:32:55
少なくなってきたら見切りをつければ良いと。
2006/01/08(日) 17:23:00
いまでも十分少ないと思うが。
2006/01/08(日) 17:36:22
質は高いはず
2006/01/08(日) 21:20:01
Beckyも秀丸もDelphiじゃないけど、その質を上回るDelphiアプリがあるんかい?
2006/01/08(日) 21:56:04
質を測る指標があるんかい?
もしかして、主観とか官能評価ってやつ?
もしかして、主観とか官能評価ってやつ?
50デフォルトの名無しさん
2006/01/08(日) 22:00:34 主観だが
どうみてもこれは糞ってソフトや
このソフトすげーーーってのあるだろ
どうみてもこれは糞ってソフトや
このソフトすげーーーってのあるだろ
2006/01/08(日) 22:03:16
数だけなら、Delphiアプリの数なんざ、めったにないだろ。上に上がってるヤツぐらい。
Vector には何万とオンラインソフトが登録されてるんだから、1%もないわな。
Vector には何万とオンラインソフトが登録されてるんだから、1%もないわな。
2006/01/08(日) 22:12:32
ゲ製作技術板ではなぜかDelphi率高い
学生ユーザーまだまだ多いのかな
学生ユーザーまだまだ多いのかな
2006/01/08(日) 22:34:30
厨房率が高いのは昔から。Del6per のせいだろうね。
2006/01/08(日) 22:40:20
つまり、こいつら>>32-33全員厨房ってこと?
2006/01/08(日) 22:42:53
>>54
それで笑いとれると思ってるの?
それで笑いとれると思ってるの?
2006/01/08(日) 22:48:36
skypeがDelphi製で最も利用者が多いんだろうな。
2006/01/08(日) 22:54:02
くじらぽんは当時7だった気がする
58デフォルトの名無しさん
2006/01/08(日) 22:54:56 当時7歳で開発したのか?すげーな
2006/01/09(月) 02:47:43
くじらぽんって誰?
2006/01/09(月) 02:50:11
程度はともかく7歳で開発は早いわけじゃないだろう
2006/01/09(月) 09:54:11
7歳じゃなくDelphi7なんだが
2006/01/09(月) 11:57:17
厨房スレ認定!!
63デフォルトの名無しさん
2006/01/11(水) 12:29:12 C厨房が嫉妬でチュか
2006/01/11(水) 12:30:18
なにに嫉妬すればいいのか、教えて
2006/01/11(水) 17:20:24
上で出ている話しをもとに、exeから何で作ったか判定するソフト
作ったら、欲しい人どれくらいいるかな?
作ったら、欲しい人どれくらいいるかな?
2006/01/11(水) 17:23:17
2006/01/11(水) 17:26:09
なんだ、そのためにこの糞スレ立てたのか!?
くだらねぇー
くだらねぇー
68デフォルトの名無しさん
2006/01/11(水) 17:28:322006/01/11(水) 17:46:14
>>66
そっか〜それじゃあ、プレゼントするよ。上の話を見て、
実は作ったんだ。VC++製だけどね。(^^;
(でも処理上、上で出ていたパターンマッチの文字列を含むので、
自分自身を処理するとdelphi判定されるけど)
んじゃ、適当なアップできるところ、探してくるね。
>>67
いや、話しの流れを見てもらえばわかると思うけど・・・
まあいっか。なんか欲しがっている人がいるし、結構簡単だから
作ってみるか〜と思ったんだ。意外とおもしろかったから、
よかったら遊んで見てね。
>>68
え〜っ!一つずつ調べるのしか作ってないです。
これなにで作ったのかな?と思いながら使うほうが風流・・・
ではないかもしれませんが、即興ということでごめんね。
自分で作るのもいいかもね。
本当、たいしたものではないから、あまり期待しないように!(^^;
そっか〜それじゃあ、プレゼントするよ。上の話を見て、
実は作ったんだ。VC++製だけどね。(^^;
(でも処理上、上で出ていたパターンマッチの文字列を含むので、
自分自身を処理するとdelphi判定されるけど)
んじゃ、適当なアップできるところ、探してくるね。
>>67
いや、話しの流れを見てもらえばわかると思うけど・・・
まあいっか。なんか欲しがっている人がいるし、結構簡単だから
作ってみるか〜と思ったんだ。意外とおもしろかったから、
よかったら遊んで見てね。
>>68
え〜っ!一つずつ調べるのしか作ってないです。
これなにで作ったのかな?と思いながら使うほうが風流・・・
ではないかもしれませんが、即興ということでごめんね。
自分で作るのもいいかもね。
本当、たいしたものではないから、あまり期待しないように!(^^;
7065
2006/01/11(水) 18:08:12 お待たせです。あげてきました。
一応念のため書いておきますが、問題ないはずですが、ウイルスチェックしてね。
あとこのソフト使用でおこることは、全て自己責任でお願いします。
ttp://www.uploda.org/file/uporg284110.zip.html
使い方は、解凍してできたファイルに、判定したいファイルを
ドラッグしてほうりこんでください。
判定率は・・・80%ぐらいの正しさかな?もう少しいい判定方法が
あるといいのかもしれないけど。難読化された.NETアプリとか、
UPXされたMSのアプリは誤判定がでるかも。
もうちょっと早い検索ができればいいんだけどね。バイナリエディタは
どういう検索アルゴリズムなんだろう?(^^;
あと、あんまり上げないでくれると嬉しいかな。出来はへぼいから
少々恥ずかしいので。
一応念のため書いておきますが、問題ないはずですが、ウイルスチェックしてね。
あとこのソフト使用でおこることは、全て自己責任でお願いします。
ttp://www.uploda.org/file/uporg284110.zip.html
使い方は、解凍してできたファイルに、判定したいファイルを
ドラッグしてほうりこんでください。
判定率は・・・80%ぐらいの正しさかな?もう少しいい判定方法が
あるといいのかもしれないけど。難読化された.NETアプリとか、
UPXされたMSのアプリは誤判定がでるかも。
もうちょっと早い検索ができればいいんだけどね。バイナリエディタは
どういう検索アルゴリズムなんだろう?(^^;
あと、あんまり上げないでくれると嬉しいかな。出来はへぼいから
少々恥ずかしいので。
2006/01/11(水) 18:09:47
ソースもうpして。
ただのexeじゃコワ杉。
ただのexeじゃコワ杉。
2006/01/11(水) 18:17:49
>>71
本物だったよ。画像いる?
本物だったよ。画像いる?
73デフォルトの名無しさん
2006/01/11(水) 18:18:102006/01/11(水) 18:19:15
判定で
よくわからないな〜
ってのもでたwwわろwwwww
よくわからないな〜
ってのもでたwwわろwwwww
7573
2006/01/11(水) 18:21:10 VB.NETだと「よくわからないな〜」が出たw
7665
2006/01/11(水) 18:22:37 >>71
気持ちはとてもよくわかるけど、ソースはちょっと勘弁してね。
へぼさがにじみ出ているので。(^^;
確か、2chにはexe鑑定人(?)なる人がいるって話しを聞いたことが
あるけど、そこに依頼でお願い。
気持ちはとてもよくわかるけど、ソースはちょっと勘弁してね。
へぼさがにじみ出ているので。(^^;
確か、2chにはexe鑑定人(?)なる人がいるって話しを聞いたことが
あるけど、そこに依頼でお願い。
2006/01/11(水) 18:23:24
判定に使ったパラメタを画面表示しる!
2006/01/11(水) 18:30:32
7965
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で探しています。
判定に使っているパラメータは、
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で探しています。
2006/01/11(水) 18:38:44
うぉー欲が出てきた
MFC判定もお願いしたい
MFC判定もお願いしたい
8265
2006/01/11(水) 19:27:36 >>80
一応、試してみました。簡単にできると思ったんですが、意外と難しいですね。
MFCはDLLだけならいいんですが、static linkできるのでその場合に、なにを
パターンに選ぶかが難しいです。クラスの情報は多少残るみたいですが、
「これがMFC」という決め手がなくて・・・
というわけで、暫定的にとりあず"MFC"パターンをチェックするよう
追加しておきました。たぶん、誤判定が多いと思います。
(といっても、これ自体お遊びのような判定ですが。(^^)
新しいURLは、
ttp://www.uploda.org/file/uporg284152.zip.html
です。ではでは。
一応、試してみました。簡単にできると思ったんですが、意外と難しいですね。
MFCはDLLだけならいいんですが、static linkできるのでその場合に、なにを
パターンに選ぶかが難しいです。クラスの情報は多少残るみたいですが、
「これがMFC」という決め手がなくて・・・
というわけで、暫定的にとりあず"MFC"パターンをチェックするよう
追加しておきました。たぶん、誤判定が多いと思います。
(といっても、これ自体お遊びのような判定ですが。(^^)
新しいURLは、
ttp://www.uploda.org/file/uporg284152.zip.html
です。ではでは。
2006/01/11(水) 19:28:26
これいいねぇー、
8480
2006/01/11(水) 22:00:14 おお!グッジョブです。
いろいろ遊んでみるです!
いろいろ遊んでみるです!
8565
2006/01/11(水) 22:22:57 たいしたソフトではありませんが、楽しんでもらえると嬉しいですね。(^-^)
あんまりやると、スレになる可能性もあるので、ほどほどにしようかと
思いますが、ちょびっとバージョンアップしました。
アップした点は、VB.NETが(たぶん)判別されるようにしました。
(.NETアプリで、VB.NET以外はC#扱いになっています)
ttp://www.uploda.org/file/uporg284256.zip.html
よかったら、これを使ってdelphiでいいソフトを探してみてください。
あんまりやると、スレになる可能性もあるので、ほどほどにしようかと
思いますが、ちょびっとバージョンアップしました。
アップした点は、VB.NETが(たぶん)判別されるようにしました。
(.NETアプリで、VB.NET以外はC#扱いになっています)
ttp://www.uploda.org/file/uporg284256.zip.html
よかったら、これを使ってdelphiでいいソフトを探してみてください。
2006/01/11(水) 22:58:11
乙
参考に、それぞれの判定方法を教えて下され
参考に、それぞれの判定方法を教えて下され
2006/01/11(水) 23:06:00
おっと、書き忘れました。(^^;
前は、"public static main"を探していたのですが、それだとどうも
ひっかからないC#のソフトがあったので、今度は".System.Windows.Forms"
で.NET判定をしています。
VB.NETかどうかは、手短にダウンロードしてみたVB.NETのアプリには、
"VisualBasic"のパターンがあったので、.NETアプリでそのパターンが
あるものは、VB.NET判定しています。
まあ、一番いいのはPEヘッダからファイルの構造を解析して・・・
だと思いますが、パターン探す方法でそれなりに当たるなら、
それも面白いですね。
前は、"public static main"を探していたのですが、それだとどうも
ひっかからないC#のソフトがあったので、今度は".System.Windows.Forms"
で.NET判定をしています。
VB.NETかどうかは、手短にダウンロードしてみたVB.NETのアプリには、
"VisualBasic"のパターンがあったので、.NETアプリでそのパターンが
あるものは、VB.NET判定しています。
まあ、一番いいのはPEヘッダからファイルの構造を解析して・・・
だと思いますが、パターン探す方法でそれなりに当たるなら、
それも面白いですね。
2006/01/11(水) 23:35:43
2006/01/11(水) 23:44:18
ゲ板出身じゃね?
2006/01/12(木) 00:12:07
だってそれしたくてこのスレ立てたんじゃないの
2006/01/12(木) 00:54:19
おお、意外と面白いw
OWL製のソフトを突っ込んだら「よくわからないな〜」って言われた。
そりゃ、わからんわな。
OWL製のソフトを突っ込んだら「よくわからないな〜」って言われた。
そりゃ、わからんわな。
2006/01/12(木) 08:34:58
やっぱ、オプソ化しちゃえ!
需要はある。
需要はある。
2006/01/12(木) 14:21:32
VBで作られた有名なアプリって何?
http://pc8.2ch.net/test/read.cgi/tech/1134464762/9
9 名前:マイク ◆yrBrqfF1Ew [sage] 投稿日:2005/12/13(火) 23:55:51
イリア
http://pc8.2ch.net/test/read.cgi/tech/1134464762/9
9 名前:マイク ◆yrBrqfF1Ew [sage] 投稿日:2005/12/13(火) 23:55:51
イリア
2006/01/12(木) 14:43:47
2ch」ブラウザの中で最も有名なLive2chがVB製だYO
2006/01/12(木) 14:45:53
ソース公開しろ!!!
2006/01/12(木) 16:38:50
2ch」ブラウザの中で最も有名なOpenJaneがDelphi製だYO
2006/01/12(木) 16:47:41
2chブラウザの中でもっとも使われているIEはMS製だぞ
2006/01/12(木) 16:55:46
稼働率はLive2chが最強だろうな
9965
2006/01/12(木) 18:29:3710065
2006/01/12(木) 18:30:46 >>92,95
へぼソースの公開は、勘弁してね。代わりに、「作者や他の人に
迷惑がかからなければ、配布は自由」にしておきますから。
拾い物としてどこかのwebに置いたり、アップロードしてもOKです。
ただ、その際にできたら「お遊び用ツールで、誤判定もある」
ということは書いておいてください。同じものを作るのに
必要な情報は、全て上げてありますから、多分簡単に作れると
思いますよ。
段々スレ違いになっているので、(スレ主&住民さん、ごめんね)
そろそろROMに戻るor消えようかと思いますが、以前にMFC対応の
リクエストがあったので、それを強化したものを上げておきます。
へぼソースの公開は、勘弁してね。代わりに、「作者や他の人に
迷惑がかからなければ、配布は自由」にしておきますから。
拾い物としてどこかのwebに置いたり、アップロードしてもOKです。
ただ、その際にできたら「お遊び用ツールで、誤判定もある」
ということは書いておいてください。同じものを作るのに
必要な情報は、全て上げてありますから、多分簡単に作れると
思いますよ。
段々スレ違いになっているので、(スレ主&住民さん、ごめんね)
そろそろROMに戻るor消えようかと思いますが、以前にMFC対応の
リクエストがあったので、それを強化したものを上げておきます。
10165
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
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デフォルトの名無しさん
2006/01/12(木) 18:38:43 特定の文字列を探してるだけ?
103デフォルトの名無しさん
2006/01/12(木) 18:48:28 俺製のMFCスタティックリンクを見破りやがったな
ヤルナ
ヤルナ
1041
2006/01/12(木) 21:26:45105デフォルトの名無しさん
2006/01/12(木) 21:29:09106デフォルトの名無しさん
2006/01/12(木) 21:30:36 ワラタ
107でふぉるめな105♪
2006/01/12(木) 21:40:11 と思ったら>>65-70あたりでVC製だと書いてあった。
108デフォルトの名無しさん
2006/01/12(木) 21:49:24 HSPやNScripterも判別できる?
大元をたどればVCなんだろうけど
そうじゃなくてHSPだって表示してくれるとおもしろい
大元をたどればVCなんだろうけど
そうじゃなくてHSPだって表示してくれるとおもしろい
10965 ◆bYWWiYT8IU
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
要望が出ていたようでしたので、少しだけ出てきました。
では、>>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
11065 ◆bYWWiYT8IU
2006/01/13(金) 18:56:02 たびたび出てきてごめんね。もうちょっと頑張れるかと思ったけど、
ちょっと事情があって、ソフトの更新できなくなっちゃいました。
だから、頑張ってできるだけの更新をしてみたよ。これがfinalです。
ttp://www.uploda.org/file/uporg285395.zip.html
最後にレス下さったみんな、どうもありがとう。
ちょっと事情があって、ソフトの更新できなくなっちゃいました。
だから、頑張ってできるだけの更新をしてみたよ。これがfinalです。
ttp://www.uploda.org/file/uporg285395.zip.html
最後にレス下さったみんな、どうもありがとう。
111デフォルトの名無しさん
2006/01/13(金) 19:09:46 なにが変わったの?
112デフォルトの名無しさん
2006/01/13(金) 20:42:45 更新終了なんら、ソース公開しないと発展性がない
113デフォルトの名無しさん
2006/01/13(金) 21:19:13 発展性なんかいらない。どうせ VC なんだし。
114デフォルトの名無しさん
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);
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デフォルトの名無しさん
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
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デフォルトの名無しさん
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;
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;
117デフォルトの名無しさん
2006/01/13(金) 21:31:37 ちょwwwwwwwVC製なのかよwwwwwwwwwww
Delphiってでるぞwwwwwwwwwwwwwwwwwwwwwwww
Delphiってでるぞwwwwwwwwwwwwwwwwwwwwwwww
118デフォルトの名無しさん
2006/01/13(金) 21:33:12begin
if ParamCount > 0 then
MessageBox(0, PChar(GetType(ParamStr(1))), '判定', MB_OK)
else
MessageBox(0, '実行形式ファイルをD&Dしてね', nil, MB_OK);
end.
多分こんな感じか。
119デフォルトの名無しさん
2006/01/13(金) 22:19:58 >>117
このスレもっかい読み直せ
このスレもっかい読み直せ
120デフォルトの名無しさん
2006/01/13(金) 22:22:42 文字列で判定してるなら、iniファイルとかでパターン設定した方良くない?
121デフォルトの名無しさん
2006/01/14(土) 00:02:28 プンソにしる、プンソに
プンソ文化なめんなこら
プンソ文化なめんなこら
12265氏じゃないけど
2006/01/14(土) 01:40:04 読み込み高速化
ttp://www.uploda.org/file/uporg285808.lzh.html
if (PatternMatching(L"Afx", &sfBin))
MessageBox("MFC(Static)製", fileA);
else if (PatternMatching(L"MFC??.DLL", &sfBin))
MessageBox("MFC(DLL)製", fileA);
else if (PatternMatching(L"PACKAGEINFO", &sfBin))
MessageBox("Delphi製", fileA);
else if (PatternMatching(L"DVCLAL", &sfBin))
MessageBox("BCB製", fileA);
else if (PatternMatching(L"System.Windows.Forms", &sfBin)){
if (PatternMatching(L"Basic", &sfBin))
MessageBox("VB.NET製", fileA);
else
MessageBox("C#.NET製", fileA);
}
else if (PatternMatching(L"MSVBVM", &sfBin))
MessageBox("VB製", fileA);
else if (PatternMatching(L"mingw", &sfBin))
MessageBox("mingw製", fileA);
else
MessageBox("わかんない", fileA);
ttp://www.uploda.org/file/uporg285808.lzh.html
if (PatternMatching(L"Afx", &sfBin))
MessageBox("MFC(Static)製", fileA);
else if (PatternMatching(L"MFC??.DLL", &sfBin))
MessageBox("MFC(DLL)製", fileA);
else if (PatternMatching(L"PACKAGEINFO", &sfBin))
MessageBox("Delphi製", fileA);
else if (PatternMatching(L"DVCLAL", &sfBin))
MessageBox("BCB製", fileA);
else if (PatternMatching(L"System.Windows.Forms", &sfBin)){
if (PatternMatching(L"Basic", &sfBin))
MessageBox("VB.NET製", fileA);
else
MessageBox("C#.NET製", fileA);
}
else if (PatternMatching(L"MSVBVM", &sfBin))
MessageBox("VB製", fileA);
else if (PatternMatching(L"mingw", &sfBin))
MessageBox("mingw製", fileA);
else
MessageBox("わかんない", fileA);
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「偽サッチャー」「自滅的」「時代遅れ」 高市首相の経済政策を海外メディアが酷評 [蚤の市★]
- 高市首相の答弁書に「台湾有事答えない」と明記 存立危機発言当時 ★2 [蚤の市★]
- 【ド軍】山本由伸、WBC出場を決断!ドジャースが本人の意向を尊重、佐々木朗希はチームが故障歴を懸念で不参加 [鉄チーズ烏★]
- 米大統領報道官「日本と強固な同盟維持、中国とも協力」 [少考さん★]
- JA全農が「新おこめ券」…来年9月末の有効期限を新設、必要経費のみ上乗せ ★2 [蚤の市★]
- 秋田内陸縦貫鉄道「列車が脱線、転覆」と通報 北秋田市、萱草駅付近 [蚤の市★]
- 今年の漢字、きょう発表😉 [583597859]
- 女の子集合!
- 中国人、超ド正論。「チベットやウイグルに住んでるのはチベット族やウイグル族だが、アイヌから奪った土地に住んでる日本人こそ侵略者」 [314039747]
- おまえらもうクリスマスツリー出した?
- 百合営業してるアイドル「これは営業だから…んっクチュクチュ」←これ
- (´・ω・`)ニュー速VIPのみんなへ
