掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
問題が発生したため、プログラムが正しく動作しなくなりましたの対処方法？ (ID:48326)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コンピューター名を取得する以下の関数が問題だったみたいです。 function GetStrComputerName: string; var lpBuffer: PWideChar; nSize: Cardinal; begin nSize := MAX_COMPUTERNAME_LENGTH + 1; GetMem(lpBuffer, nSize); try if GetComputerName(lpBuffer, nSize) then Result := lpBuffer else Result := ''; finally FreeMem(lpBuffer); end; end; http://delphinote.blog33.fc2.com/blog-entry-5.html
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.