問題が発生したため、プログラムが正しく動作しなくなりましたの対処方法？

解決

ミタ 2016-09-12 23:12:36 No: 48325

以下の様にボタンを押してプログラムを呼び出しています。1回目は問題なく呼び出すのですが2回目以降は以下のメッセージが出力され続行出来なくなります。原因をお解りの方、お教え下さい。

procedure TFamain.Button1Click(Sender: TObject);
begin
  Fkinosview :=TFkinosview.Create(application);
  try
    Fkinosview.ShowModal;
  finally
    Fkinosview.Free;
    Fkinosview :=nil;
  end;
end;

「エラーメッセージ」
kin.exe は動作を停止しました

問題が発生したため、プログラムが正しく動作しなくなりました。プログラムは閉じられ、解決策がある場合は Windows から通知されます。

[デバッグ(D)] [プログラムの終了(C)]

ミタ 2016-09-13 00:01:39 No: 48326

コンピューター名を取得する以下の関数が問題だったみたいです。

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