از کار انداختن پنجره های Common Dialog

[M.T.P]

دوستان گرامی...

کسی میدونه چطور میشه از باز شدن پنجره های Common dialog مثل پنجره Open ، Save ، Color ، Font جلوگیری کرد. یعنی هیچ برنامه ای نتونه اینا رو باز کنه.

با هر روش ممکن که بشه این پنجره ها رو ساقط کرد. (ریجیستری ، API ، ... )

پیشاپیش سپاسگزارم.

[Veteran]

یعنی چی ؟
یعنی مثلا ی کاری کنیم که پنجره سیو در تمامی برنامه از کار بیفته ؟ مثلا پنجره سیو notepad و دیگر برنامه ها از کار بیفته ؟

[M.T.P]

یعنی چی ؟
یعنی مثلا ی کاری کنیم که پنجره سیو در تمامی برنامه از کار بیفته ؟ مثلا پنجره سیو notepad و دیگر برنامه ها از کار بیفته ؟

دقیقا
------------------------------------------

[Veteran]

تونستم غیر فعالش کنم اما اینکه چجوری کلا کاری کنیم که اصلا پیداش نشه و بالا نیاد و نشون داده نشه رو نمیدونم
اول هندل پیدا کن بعد
با این api غیر فعالش کن

  

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

   

call EnableWindow(hwnd, False)

[sr2m72]

دوستان گرامی...

کسی میدونه چطور میشه از باز شدن پنجره های Common dialog مثل پنجره Open ، Save ، Color ، Font جلوگیری کرد. یعنی هیچ برنامه ای نتونه اینا رو باز کنه.

با هر روش ممکن که بشه این پنجره ها رو ساقط کرد. (ریجیستری ، API ، ... )

پیشاپیش سپاسگزارم.

بفرما داداش، اين از باز شدن پنجره Open جلوگيري ميكنه.

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



Private Sub Timer1_Timer()

hw = FindWindow(vbNullString, "Open")

If hw <> 0 Then

SendKeys "%{f4}"

End If

End Sub

فقط حواستون باشه اينترول تايمر رو خيلي كم نكنيد(200 باشه خوبه).

[M.T.P]

دوستان با FindWindow که نمیشه چون پنجره Open یا Save همیشه عنوان ثابتی نداره!

[IamOverlord]

پس به جای عنوان پنجره باید نام کلاس رو به تابع FindWindows بفرستی...