Age2ch ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
4:名無しさん＠お腹いっぱい。 02/10/16 19:33 http://pc3.2ch.net/test/read.cgi/software/1034613315/629より WM_COPYDATAでOpenJaneにURL渡せるようにする。 procedure OpenURL(URL: string); var host, bbs, datnum: string; index: integer; oldLog: boolean; CH: THandle; wnd: HWND; cd: COPYDATASTRUCT; begin Get2chInfo(URL, host, bbs, datnum, index, oldLog); wnd := FindWindow('TMainWnd', nil); if wnd <> 0 then begin cd.dwData := 0; cd.cbData := Length(URL) + 1; cd.lpData := StrAlloc(cd.cbData); StrCopy(cd.lpData, PChar(URL)); SendMessage(wnd, WM_COPYDATA, Application.Handle, LPARAM(@cd)); StrDispose(cd.lpData); end else if Config.winOpenApp and (Config.winOpenAppPath <> '') and (datnum <> '') then ExecuteProc(nil, PChar('"' + Config.winOpenAppPath + '" "' + URL + '"'), 100, False, CH) else ShellExecute(0, nil, PChar(URL), nil, nil, SW_SHOW); end;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5345日前に更新/176 KB
担当:undef