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;