リソースの書き換えについて (ID:41266)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 monaa様 わざわざこんな長いソースまで書き込んでいただいてしまって、申し訳ありません。助かります。 内容はこれから拝見して試してみたいのですが、正攻法はないですか… ちょっとさみしいですね。 実はあの後、少しこちらでもいろいろと試行錯誤していました。 その結果、リソース保存対象の実行ファイルとは別の実行ファイルから、 このような感じで処理をするとうまくいっているように見えました。 ただ、XPの端末では失敗するなど、完全にできたとは言い難い状況です。 いただいたいくつかのキーワードをもとに、もう一度処理を見直してみたいと思います。 procedure TForm1.Button1Click(Sender: TObject); var RS:TResourceStream; hUpdate: THandle; Str1: String; begin hUpdate :=BeginUpdateResource(PChar(Path), False); Str1 := Memo1.Lines.Text; if hUpdate <> 0 then begin if UpdateResource(hUpdate, 'TEXT', 'MyText', 0, Pointer(Str1), Length(Str1)) then begin EndUpdateResource(hUpdate, False); end else begin Showmessage('失敗'); end; end; end;