hücredeki ifadeyi klasördeki pdf dosyalarının içinde aramakla ilgili

hikmetko · 25 Ağustos 2022

2 durumda da aynı hatayı veriyor hocam..
öncesinde ve dediğinizi yaptığımda da ..

kusura bakmayın uğraştırıyorum, Allah razı olsun zaman harcıyorsunuz..inşallah istediğimiz gibi çalışır sonunda.

Korhan Ayhan · 25 Ağustos 2022

Kodda küçük bir revize daha yaptım. Tekrar deneyiniz.

Haluk · 25 Ağustos 2022

Korhan Beyin kodunda ufak 1-2 değişiklikle benim 64 Bit versiyonda, aşağıdaki kodlar çalıştı;

- "Test" prosedüründe "Folder_hWnd" değişken tanımlaması,
- "Get_Count_of_Contents" fonksiyonunda "hWnd" değişken tanımlaması

revize edildi.

Not: Koddaki "Find_Data" ve "Find_Folder_Path" değişkenlerini kendime göre düzenledim tabii....

C#:

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Long) As LongPtr

    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112

Private Const EXPLORER_CLASSNAME As String = "CabinetWClass"
'Private Const EXPLORER_CLASSNAME As String = "ExploreWClass"

Sub Test()
    Dim Sleep_Time As Long, Find_Data As Variant, Find_Folder_Path As String

    #If VBA7 Then
        Dim hWnd As LongPtr
        Dim Folder_hWnd As LongPtr
    #Else
        Dim hWnd As Long
        Dim Folder_hWnd As Long
    #End If
  
    Find_Data = Sheet1.Range("A1").Value
    Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\"

    Call Shell("explorer ""search-ms://query=" & Find_Data & "&crumb=location:" & Find_Folder_Path & """", vbNormalFocus)

    Sleep_Time = Timer

    Do
        DoEvents
    Loop Until Timer - Sleep_Time >= 3

    Folder_hWnd = FindWindow(EXPLORER_CLASSNAME, vbNullString)

    If Get_Count_of_Contents(Folder_hWnd) = 0 Then
        SendMessage Folder_hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
    End If
End Sub

Function Get_Count_of_Contents(hWnd As Variant) As Variant
'   Haluk - 24/08/2022
'   sa4truss@gmail.com
    Dim objShell As Object, myWindow As Object, RetVal As Variant

    Set objShell = CreateObject("Shell.Application")

    For Each myWindow In objShell.Windows
        On Error Resume Next
            If myWindow.hWnd = hWnd Then
                If Err = 0 Then
                    RetVal = myWindow.Document.Folder.Items.Count
                End If
                Exit For
            End If
        On Error GoTo 0
    Next
    Get_Count_of_Contents = RetVal
End Function

.

Haluk · 25 Ağustos 2022

Yalnız, ufak bir sorun var .... PDF dosyalarında, dosya içeriğini taramıyor.

Belki benim kullandığım eski Windows7 nedeniyledir, bilemiyorum....

Aynı durum, benim aşağıdaki linkte yer alan kod için de geçerli...

Windows klasöründeki dosyaların içeriğinde arama yapılması

Aşağıdaki animasyonda, Windows gezgininde bir klasör içindeki dosyaların içinde aradığımız bir metnin manuel olarak aranarak bulunması ve aynı işin VBA - ADO / SQL kodlarıyla yapılırkenki ekran görüntüsünü içermektedir. VBA kodu, diğer klasik kodlardan çok daha hızlı olarak yapabilmektedir. Bu...

www.excel.web.tr

.

hikmetko · 25 Ağustos 2022

Korhan Ayhan' Alıntı:
Kodda küçük bir revize daha yaptım. Tekrar deneyiniz.

hocam bende yine çalışmadı kodun son hali ama...

byRef argument type mismatch hatası verdi..

tahsinanarat · 25 Ağustos 2022

Sn. @Haluk hocam ve Sn. @Korhan Ayhan Hocam elinize sağlık ben denedim mükemmel çalışıyor

hikmetko · 25 Ağustos 2022

Haluk' Alıntı:

Korhan Beyin kodunda ufak 1-2 değişiklikle benim 64 Bit versiyonda, aşağıdaki kodlar çalıştı;

- "Test" prosedüründe "Folder_hWnd" değişken tanımlaması,
- "Get_Count_of_Contents" fonksiyonunda "hWnd" değişken tanımlaması

revize edildi.

Not: Koddaki "Find_Data" ve "Find_Folder_Path" değişkenlerini kendime göre düzenledim tabii....

C#:

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Long) As LongPtr

    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112

Private Const EXPLORER_CLASSNAME As String = "CabinetWClass"
'Private Const EXPLORER_CLASSNAME As String = "ExploreWClass"

Sub Test()
    Dim Sleep_Time As Long, Find_Data As Variant, Find_Folder_Path As String

    #If VBA7 Then
        Dim hWnd As LongPtr
        Dim Folder_hWnd As LongPtr
    #Else
        Dim hWnd As Long
        Dim Folder_hWnd As Long
    #End If
 
    Find_Data = Sheet1.Range("A1").Value
    Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\"

    Call Shell("explorer ""search-ms://query=" & Find_Data & "&crumb=location:" & Find_Folder_Path & """", vbNormalFocus)

    Sleep_Time = Timer

    Do
        DoEvents
    Loop Until Timer - Sleep_Time >= 3

    Folder_hWnd = FindWindow(EXPLORER_CLASSNAME, vbNullString)

    If Get_Count_of_Contents(Folder_hWnd) = 0 Then
        SendMessage Folder_hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
    End If
End Sub

Function Get_Count_of_Contents(hWnd As Variant) As Variant
'   Haluk - 24/08/2022
'   sa4truss@gmail.com
    Dim objShell As Object, myWindow As Object, RetVal As Variant

    Set objShell = CreateObject("Shell.Application")

    For Each myWindow In objShell.Windows
        On Error Resume Next
            If myWindow.hWnd = hWnd Then
                If Err = 0 Then
                    RetVal = myWindow.Document.Folder.Items.Count
                End If
                Exit For
            End If
        On Error GoTo 0
    Next
    Get_Count_of_Contents = RetVal
End Function

.

Allah razı olsun Haluk hocam sizin kod çalıştı tek hücre için..
boş ise 1-2 sn sonra klasör kapanıyor...
bunu 100 hücre için aynı anda yaptırmak istersek nasıl yazabiliriz...
bilgisayara da yük yüklememe anlamında ek iyileştirme de olursa süper olur tabi...

korhan hocam sizden de allah razı olsun, çok ilgilendiniz sağolun.

Haluk · 25 Ağustos 2022

Tahsin Bey, Hikmet Bey;

Pdf dosyalarinin icerigini de taradi mi, yoksa sadece dosya adini mi taradi?

.

hikmetko · 25 Ağustos 2022

hocam benim pdf ler aranabilir pdf, içinde aradı ve oldu..tek hücre için ok...
ben ilk mesajımda bunun sütundaki birçok hücre için yapabiliyorum örneğin 95 boş klasör açılıyor bunları kapatmak istiyorum demiştim ya, işte bu kadar çok klasörü de kapatabilirsek çok iyi olacak..
yoksa tek hücre için kapatmak işimi kolaylaştırmaz ama bunu yapmak bile çok iyi oldu çok teşekkür ederim..
çok araştırıp birçok şey denemiştim bulamamıştım..tekrar sağolun..

Haluk · 25 Ağustos 2022

Benim PDF'ler de dediğiniz türden ama bende PDF dosyalarının içini taramıyor. Zaten manuel olarak Windows ile yapınca da olmuyor..... muhtemelen Win7 işletim sistemi bu işi desteklemiyor.

Her neyse, sizin işiniz görüldüyse durum iyi demektir.....

Aktif sayfada "A" sütunundaki en son dolu hücreye kadar bu işi yapmak için, daha önceki tüm kodları silin ve onların yerine aşağıdakileri yapıştırın....

Daha sonra, "Main" isimli prosedürü çalıştırın. Kodlar 64 Bit Excel'de test edildi, sorun görülmedi....

C#:

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Long) As LongPtr

    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112

Private Const EXPLORER_CLASSNAME As String = "CabinetWClass"
'Private Const EXPLORER_CLASSNAME As String = "ExploreWClass"
'
Sub Main()
    Dim Find_Data As Variant, Find_Folder_Path As String, NoA As Integer, i As Integer
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\"

    For i = 2 To NoA
        Find_Data = Range("A" & i)
        Call searchFolder(Find_Data, Find_Folder_Path)
    Next
End Sub
'
Sub searchFolder(varData As Variant, strFolder As String)
    Dim Sleep_Time As Long
    
    #If VBA7 Then
        Dim hWnd As LongPtr
        Dim Folder_hWnd As LongPtr
    #Else
        Dim hWnd As Long
        Dim Folder_hWnd As Long
    #End If
  
    Call Shell("explorer ""search-ms://query=" & varData & "&crumb=location:" & strFolder & """", vbNormalFocus)

    Sleep_Time = Timer

    Do
        DoEvents
    Loop Until Timer - Sleep_Time >= 3

    Folder_hWnd = FindWindow(EXPLORER_CLASSNAME, vbNullString)

    If Get_Count_of_Contents(Folder_hWnd) = 0 Then
        SendMessage Folder_hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
    End If
End Sub
'
Function Get_Count_of_Contents(hWnd As Variant) As Variant
'   Haluk - 24/08/2022
'   sa4truss@gmail.com
    Dim objShell As Object, myWindow As Object, RetVal As Variant

    Set objShell = CreateObject("Shell.Application")

    For Each myWindow In objShell.Windows
        On Error Resume Next
            If myWindow.hWnd = hWnd Then
                If Err = 0 Then
                    RetVal = myWindow.Document.Folder.Items.Count
                End If
                Exit For
            End If
        On Error GoTo 0
    Next
    Get_Count_of_Contents = RetVal
End Function

.

.

Korhan Ayhan · 25 Ağustos 2022

Bende #15 nolu mesajımdaki kodda son kez küçük revizeler yaptım.

A sütununa alt alta yazacağınız verileri topluca belirlenen klasörde arayacaktır.

Denedim ve olumlu sonuç aldım...

hikmetko · 25 Ağustos 2022

Haluk' Alıntı:

Benim PDF'ler de dediğiniz türden ama bende PDF dosyalarının içini taramıyor. Zaten manuel olarak Windows ile yapınca da olmuyor..... muhtemelen Win7 işletim sistemi bu işi desteklemiyor.

Her neyse, sizin işiniz görüldüyse durum iyi demektir.....

Aktif sayfada "A" sütunundaki en son dolu hücreye kadar bu işi yapmak için, daha önceki tüm kodları silin ve onların yerine aşağıdakileri yapıştırın....

Daha sonra, "Main" isimli prosedürü çalıştırın. Kodlar 64 Bit Excel'de test edildi, sorun görülmedi....

C#:

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Long) As LongPtr

    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112

Private Const EXPLORER_CLASSNAME As String = "CabinetWClass"
'Private Const EXPLORER_CLASSNAME As String = "ExploreWClass"
'
Sub Main()
    Dim Find_Data As Variant, Find_Folder_Path As String, NoA As Integer, i As Integer
   
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\"

    For i = 2 To NoA
        Find_Data = Range("A" & i)
        Call searchFolder(Find_Data, Find_Folder_Path)
    Next
End Sub
'
Sub searchFolder(varData As Variant, strFolder As String)
    Dim Sleep_Time As Long
   
    #If VBA7 Then
        Dim hWnd As LongPtr
        Dim Folder_hWnd As LongPtr
    #Else
        Dim hWnd As Long
        Dim Folder_hWnd As Long
    #End If
 
    Call Shell("explorer ""search-ms://query=" & varData & "&crumb=location:" & strFolder & """", vbNormalFocus)

    Sleep_Time = Timer

    Do
        DoEvents
    Loop Until Timer - Sleep_Time >= 3

    Folder_hWnd = FindWindow(EXPLORER_CLASSNAME, vbNullString)

    If Get_Count_of_Contents(Folder_hWnd) = 0 Then
        SendMessage Folder_hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&
    End If
End Sub
'
Function Get_Count_of_Contents(hWnd As Variant) As Variant
'   Haluk - 24/08/2022
'   sa4truss@gmail.com
    Dim objShell As Object, myWindow As Object, RetVal As Variant

    Set objShell = CreateObject("Shell.Application")

    For Each myWindow In objShell.Windows
        On Error Resume Next
            If myWindow.hWnd = hWnd Then
                If Err = 0 Then
                    RetVal = myWindow.Document.Folder.Items.Count
                End If
                Exit For
            End If
        On Error GoTo 0
    Next
    Get_Count_of_Contents = RetVal
End Function

.

.

haluk hocam çok çok teşekkürler çok sağolun...
burada şunu diyecem, exceller açılınca sürekli öne geliyor, acaba nem başka işlem yaparken arkada çalışması yani sürekli öne gelip çalışmamı engellememesi için birşey yapılabilir mi?
şimdilik 10 hücrelide denedim güzel çalıştı..
eve gidince çok hücrelileri de deneyeceğim, kontrol edeceğim.

Allah razı olsun hocam sağolun.

eğer bu arkada çalışma olayı olursa birşey daha rica edeceğim , o muhtemel daha kolaydır, zorunu başardınız maşallah..

hikmetko · 25 Ağustos 2022

Korhan Ayhan' Alıntı:
Bende #15 nolu mesajımdaki kodda son kez küçük revizeler yaptım.

A sütununa alt alta yazacağınız verileri topluca belirlenen klasörde arayacaktır.

Denedim ve olumlu sonuç aldım...

çok sağolun hocam deneyince sonucu yazacağım buraya..

Haluk · 25 Ağustos 2022

hikmetko' Alıntı:
haluk hocam çok çok teşekkürler çok sağolun...
burada şunu diyecem, exceller açılınca sürekli öne geliyor, acaba nem başka işlem yaparken arkada çalışması yani sürekli öne gelip çalışmamı engellememesi için birşey yapılabilir mi?
......
...

Bunu yapmak için, dosyanıza yeni bir modül ilave ettikten sonra aşağıdaki linkte yer alan kodları oraya yapıştırın ve daha sonra 30 No'lu mesajdaki "Main" isimli prosedürde aşağıdaki kırmızı renkli satırları ilave edin;

How to keep excel window always on top?

Learn how to keep an Excel window always on top using VBA code. Follow our step-by-step guide to improve your workflow and multitasking efficiency.

www.extendoffice.com

Rich (BB code):

Sub Main()
    Dim Find_Data As Variant, Find_Folder_Path As String, NoA As Integer, i As Integer
    Call ShowXLOnTop(True)
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\"

    For i = 2 To NoA
        Find_Data = Range("A" & i)
        Call searchFolder(Find_Data, Find_Folder_Path)
    Next
    Call ShowXLOnTop(False)
End Sub

Söz konusu "Main" isimli prosedürü sayfa üzerine yerleştireceğiniz bir buton veya şekile atayıp, çalıştırın....

.

hikmetko · 25 Ağustos 2022

Haluk' Alıntı:
Bunu yapmak için, dosyanıza yeni bir modül ilave ettikten sonra aşağıdaki linkte yer alan kodları oraya yapıştırın ve daha sonra 30 No'lu mesajdaki "Main" isimli prosedürde aşağıdaki kırmızı renkli satırları ilave edin;

How to keep excel window always on top?

Learn how to keep an Excel window always on top using VBA code. Follow our step-by-step guide to improve your workflow and multitasking efficiency.

www.extendoffice.com

Rich (BB code):

Sub Main() Dim Find_Data As Variant, Find_Folder_Path As String, NoA As Integer, i As Integer Call ShowXLOnTop(True) NoA = Range("A" & Rows.Count).End(xlUp).Row Find_Folder_Path = "C:\Users\Haluk\Desktop\TestFolder\" For i = 2 To NoA Find_Data = Range("A" & i) Call searchFolder(Find_Data, Find_Folder_Path) Next Call ShowXLOnTop(False) End Sub

Söz konusu "Main" isimli prosedürü sayfa üzerine yerleştireceğiniz bir buton veya şekile atayıp, çalıştırın....

.

merhaba hocam denedim ama, excel önde, arkada ise dosya aç kapa aç kapa oldu..
ayrıca hiçbir işlem yapamadım...
excelin üstte olması asıl amaç değil de bu aç kapa işlemleri olurken ben bilgisayarda diğer işlerimi de yapayım demek istemiştim...
hiç işlem yapamadım...

Haluk · 25 Ağustos 2022

Sizin 32 No'lu mesajda Excel'in önde olması, pencerelerin ise arka planda açılıp kapanması istenmişti.

Önerdiğim ilave aynen bu işi yapıyor ve bu sırada Excel'de işlem yapılabiliyor. Benim bilgisayarda durum böyle.....

Kodun çalışması bittikten sonra, arka plandaki pencereleri aktif hale getirebiliyorsunuz.

.

hikmetko · 25 Ağustos 2022

Haluk' Alıntı:
Sizin 32 No'lu mesajda Excel'in önde olması, pencerelerin ise arka planda açılıp kapanması istenmişti.

Önerdiğim ilave aynen bu işi yapıyor ve bu sırada Excel'de işlem yapılabiliyor. Benim bilgisayarda durum böyle.....

Kodun çalışması bittikten sonra, arka plandaki pencereleri aktif hale getirebiliyorsunuz.

.

hocam 1000 satırlık ifadede bilgisayar belli bir süre sonra dondu...acaba işlemci ya da ram düşük mü geldi bilemedim...
hiçbir işlem yapmadım ayrıca..
yani kendi haline bıraktım bilgisayarı...
bilgisayarı kasmaması için ne yapabiliriz?
çok sağolun tekrar hocam

hikmetko · 25 Ağustos 2022

Korhan Ayhan' Alıntı:
Bende #15 nolu mesajımdaki kodda son kez küçük revizeler yaptım.

A sütununa alt alta yazacağınız verileri topluca belirlenen klasörde arayacaktır.

Denedim ve olumlu sonuç aldım...

hocam sizin programda 100 satır denedim, 13 tane boş klasörü kapatmadan kaldı...kendim kapattım...
genelde haluk hocamızın programı ile aynı işi yaptı diyebiliriz...
çok sağolun emeklerinize sağlık ,allah razı olsun hocam.

Haluk · 25 Ağustos 2022

hikmetko' Alıntı:
hocam 1000 satırlık ifadede bilgisayar belli bir süre sonra dondu...acaba işlemci ya da ram düşük mü geldi bilemedim...
hiçbir işlem yapmadım ayrıca..
yani kendi haline bıraktım bilgisayarı...
bilgisayarı kasmaması için ne yapabiliriz?
çok sağolun tekrar hocam

Benim eski bilgisayarda bahsettiğiniz 1000 satırlık işlemden sonra herhalde ekrandan dumanlar çıkardı.

Bu tür işler bilgisayarı çok yorar, onun yerine bulunan dosya adlarını ya sayfaya ya da UserForm'da ListBox gibi bir nesneye yazdırıp listelemekte fayda var. Daha sonra tıklayınca açarsınız, ne işlem yapacaksanız onu yaparsınız....

Bu benim fikrim tabii ...

.

hikmetko · 25 Ağustos 2022

Haluk' Alıntı:
Benim eski bilgisayarda bahsettiğiniz 1000 satırlık işlemden sonra herhalde ekrandan dumanlar çıkardı.

Bu tür işler bilgisayarı çok yorar, onun yerine bulunan dosya adlarını ya sayfaya ya da UserForm'da ListBox gibi bir nesneye yazdırıp listelemekte fayda var. Daha sonra tıklayınca açarsınız, ne işlem yapacaksanız onu yaparsınız....

Bu benim fikrim tabii ...

.

öyle birşey de mükemmel olur hocam....dediğiniz gibi sadece farklı olanları görürüm...
yapabilmeniz mümkün mü?
çünkü hakkaten kasıyor..
ben bu kadar kasacağını hiç düşünemedim, 100 satırda bile tekleyebiliyor

hücredeki ifadeyi klasördeki pdf dosyalarının içinde aramakla ilgili

hikmetko

Korhan Ayhan

Administrator

Haluk

Özel Üye

Haluk

Özel Üye

Windows klasöründeki dosyaların içeriğinde arama yapılması

hikmetko

tahsinanarat

hikmetko

Haluk

Özel Üye

hikmetko

Haluk

Özel Üye

Korhan Ayhan

Administrator

hikmetko

hikmetko

Haluk

Özel Üye

How to keep excel window always on top?

hikmetko

How to keep excel window always on top?

Haluk

Özel Üye

hikmetko

hikmetko

Haluk

Özel Üye

hikmetko