Windows processlinien

Fra dit minisite: "Jeg er en meget aktiv bruger af Delphi, Linux og C++ forum'et. Jeg hjælper med at løse programmeringsproblemer."
5 dage efter oprettelse. Og så dette spm til 0 point. Hmm

Woops! Sorry! Jeg skal nok komme med nogen points, he he...
Ja, ja, selvom jeg er en af dem der hjælper må jeg vel også gerne selv få lidt hjælp til det jeg ikke kan finde ud af, ik'?
(det er jo trodsalt også min fø'sdag *g*)

tillykke :)

Hej LinuxGeek jeg er selv igang med noget lign. det lykkedes mig ikke at få det til at hænge sammen i delphi. Men hvis kan VB, kan du måske få en masse idéer derfra. På planet-source-code under navnet Shell replacement, er der hvad du behøver.. Kravet er bare at du skal igang med at konventerer fra vb til deplhi

for lidt flere point kan jeg godt lave det til dig :)

Du kan få 400 hvis du kan lave det til mig!!

ps .http://www.eksperten.dk/spm/190210 kig også lige her ;)

hov ;)
http://www.eksperten.dk/spm/190210

jeg har næsten lavet en funk, der får alle vinduer, der er visible, men den har en lille bug. topsite den der vb kode ville jeg gerne lige kigge på..

sorry sproget

Sproget ??

Bos = http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=7115&lngWId=1

lytter...

Hvis email er nødvendig: dennis.ssh@computer.dk

Lidt hjælp til cms hvis din funktion stadig ikke virker optimalt.
http://www.delphipages.com/tips/thread.cfm?ID=32
Finder alle synlige vinduer !

jah det kan jeg godt. problemet er at den finder for mange... :-)

cms - vil du ikke nok være venlig at kontakte mig?
ICQ#: 135575318

dette script finder først alle aktive vinduer og bagefter alle minimerede vinduer:

procedure TForm1.Button1Click(Sender: TObject);
Var
WorkHandle : HWND;
Arr : Array[1..210] Of Char;
Streng : PChar;
begin
Memo1.Lines.Clear;
Streng := @Arr;
WorkHandle := GetForegroundWindow;
If WorkHandle <> 0 Then Begin
  If IsWindow(WorkHandle) Then Begin
  If IsWindowVisible(WorkHandle) Then Begin
    GetWindowText(Workhandle, Streng, 200);
    Memo1.Lines.Add(String(Streng));
  End;
  End;
  Repeat
  WorkHandle := GetWindow(WorkHandle, GW_HWNDNEXT);
  If WorkHandle <> 0 Then Begin
    If IsWindow(WorkHandle) Then Begin
    If IsWindowVisible(WorkHandle) Then Begin
      GetWindowText(WorkHandle, Streng, 200);
      Memo1.Lines.Add(String(Streng));
    End;
    End;
  End;
  Until WorkHandle = 0;
End;
end;

Jammen jeg skal have alle vinduerne i en Listbox med deres ikon osv. og når jeg så klikker på dem, så bliver de aktive igen!