くだすれDelphi(超初心者用)その47at TECHくだすれDelphi(超初心者用)その47 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト550:デフォルトの名無しさん 08/09/05 00:56:51 ゴミは消しとけよ＞Delフサ 551:Delﾌｻｷﾞｺ ◆A6VzDeLphI 08/09/05 00:57:10 ∧,,∧ どもー ミ,,ﾟ 3 ﾟ彡 ﾐ つ旦)~~ ～と,,,~),,~) んーーー、こんなの書いてみて動きましたが 標準入力は、どうやって受け取るんでしょう？ program ToClip; {$APPTYPE CONSOLE} uses SysUtils, Classes, Clipbrd, GrabConsole in 'GrabConsole.pas'; var SL: TStringList; begin SL := TStringList.Create; try PipeConsole('ipconfig', SL, nil); Clipboard.AsText := SL.Text; finally SL.Free; end; end. 552:デフォルトの名無しさん 08/09/05 01:25:24 APIのGetStdHandleで得てReadFileで読む RTLのRead関数はCのstdinなんかに比べて貧弱だから使わない方が良い 553:デフォルトの名無しさん 08/09/05 03:32:42 Delphi2009のバージョンアップは、今までより1～2万高そう。 554:デフォルトの名無しさん 08/09/05 04:52:23 dir > clip.exe ワロタ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch