DDEClient

[bilmusa]

Herhangi bir uygulamanın DDeTopic Değerini nasıl öğrenebilirim
Proğram runtime çalışırken

[MicroChip]

Merhaba aşağıdaki kod ile o anda çalışan uygulamaların listesini alabilirsin:
ve DDE de onlara birşey yaptırmak istersen O uygulamanın başlığı da yetecektir...

Kod: Tümünü seç

function EnumWindowsProch(Wnd : HWnd;Form : TForm1) : Boolean;
Export; {$ifdef Win32} StdCall; {$endif}
var
  Buffer : Array[0..99] of char;
begin
  GetWindowText(Wnd,Buffer,100);
  if StrLen(Buffer) <> 0 then
    form1.listbox1.items.Add(StrPas(Buffer));
  Result := True;
end;

function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
Var Title : PChar;
begin
  Result := True;
  if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
      ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
      (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
     (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
  begin
    Title:=StrAlloc(255);
    GetWindowText(Wnd,Title,255);
    form1.listbox1.items.add(StrPas(Title));
    //ShowMessage(StrPas(Title));
    StrDispose(Title);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.items.clear;
EnumWindows(@EnumWindowsProc,0);
end;

Saygılar...

[bilmusa]

sagolun kodu inceleyemedim fırsatım olmadı zannedersem işime baya yarayacak görüşmek üzere

[MicroChip]

ben kodu yazdım çalıştırdım buraya kopyaladım...
istediğiniz işlemi yapıyor.

forma bir listbox bir tane de button koyuyorsunuz o kadar...

Saygılar

[DotCom]

@MicroChip

Code için çok teşekkür baya işime yarıcak.

Kolay Gelsin...

[husonet]

Eyvallah Ahmet kardeş, kod için teşekkürler.
Bu kodu ipucu kısmına atarsan sevinirim.

Kolay Gelsin...

[MicroChip]

oke hüseyin kardeş
kodu ipuçlarına atayım (sen niye atmadın ki) yaw iyi hatırlattın bari ipuçlarını bir inceleyeyim de olmayan bildiğim (varsa) ipuçlarını yazayım oraya...


saygılar...

[bilmusa]

kardeşim ne soru sormuşuz meger bütün milletin derdine tercüman olmuşuz görüşmek üzere

[mege]

bende hemen copy paste yapıp bir deneyeyim dedim, çalıştırdığımda bir baktım programlar masaüstündeki sırası(daha doğrusu en son kullanılandan itibaren) ile listeleniyor.. başka işler içinde kullanılabilir belki
güzel bir kod ellerine sağlık hadi durma kutla bu zafer senin yüreğine sağlık...(yalın)