Kayıt
21 Kasım 2007
Mesajlar
3.038
Beğeniler
0


lll :idea: lll Programs (Programlar) altındaki grupların listesi lll :idea: lll

Form üzerine bir tane listbox, bir tane Button ve bir tane de DdeClientConv bileşeni koyun. DdeClientConv bileşeninin DDEService ve DDETopic özelliklerini "Progman" (tırnaklar yok) olarak değiştirin ve aşağıdaki kodu yazın;

Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PChar;
begin
  ListBox1.Items.clear;
  P := DDEClientConv1.RequestData('Groups');
  ListBox1.Items.SetText(P);
  StrDispose(P);
end;
 
Yukarı Alt