喫茶XRAY [Mr.XRAY掲示板]

[ DelphiのWindowsサービスのDescriptionの設定方法について ]
https://www.petitmonte.com/bbs/answers?question_id=29643

まっ，そういうことで．おそまつ，とどまつ，じゅうしまつ．
テストコード
テストコード

type
  // Delphi 側 (Unicode 版)
  TInfoRec = record
    Text : LPWSTR; // PCharでも同じ
  end;
  PInfoRec = ^TInfoRec;

  // Windows 側 (Ansi 版)
  TAInfoRec = record
    Text :  LPSTR; // PAnsiChar;でも同じ
  end;
  PAInfoRec = ^TAInfoRec;

procedure TestProc(ARec: Pointer);
var
  LText : AnsiString;
begin
  LText := PAInfoRec(ARec)^.Text;
  Form1.Memo1.Lines.Add(LText);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LInfo : TInfoRec;
  LText : string;
begin
  LText := 'test';
  LInfo.Text := PChar(LText);
  TestProc(@LInfo);
end;