名前
題名
▼ 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; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link