| |
| |
|
Pedro
Santos | Hello Profaner
Diesen code I faith of Pascal Niemeier functions lovely XP unfortunately not under
Win98, can someone the confirm. have GetOpenFileNameA in the Api Win32 nachgeschaut
but looks at all I do not through
thanks
greeting
Pedro
window 10,10-700,500
$H Messages.ph
$H windows.ph
proc OpenFileHook-------------------------------OpenFileHook----------------------------
parameters dlg&,msg&,wparam&,lparam&
case status%:return 1-----view must only once adjusted go
casenot msg&=~WM_NOTIFY:return 1
if long(lparam&,8)=-603---with Init existieren DefView and LV yet not!
status%=1
DefView&=~FindWindowEx(~GetParent(dlg&),0,SHELLDLL_DefView,)
sendmessage(DefView&,~WM_COMMAND,$702D,0)--Undokumentierte Message
endif
return 1
endproc---------------------------------------------------------------------------------
proc LoadPicDialog------------------------------LoadPicDialog---------------------------
parameters way$,cover$,name$
declare ofn#,Result$,Result&
declare DefView&,status%------variables for Hook
name$=name$+z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz--filter (with want adjust)
dim ofn#,88+256---------------structure (Win2000/NT/XP) + Puffer
clear ofn#
long ofn#,0=88----------------Size structure for GetOpenFileName (76 for Win9x)
long ofn#,4=%hwnd-------------übergeordnetes Window
long ofn#,12=addr(name$)------filter/type
long ofn#,28=ofn#+88----------Beginn Puffer
long ofn#,32=255--------------Puffergrösse
long ofn#,44=addr(way$)------Anfangspfad
long ofn#,48=addr(cover$)-----cover
long ofn#,52=$880024----------? Happen?
long ofn#,68=procaddr(OpenFileHook,4)
Result&=external(COMDLG32,GetOpenFileNameA,ofn#)
Result$=string $(ofn#,88)
casenot Result&:Result$=
procaddr(OpenFileHook,-4)
dispose ofn#
return Result$
endproc---------------------------------------------------------------------------------
print LoadPicDialog(,dial Graphic,BMP)
waitkey
|
|
| |
| |
| |
|
|
Michael
Dell | Hi Pedro,
How already in Uwe`s example implied:
The Structurgröße must adjusted go z.B.:
Window 10,10-700,500
$H Messages.ph
$H windows.ph
**** Structurgröße on system adjust ****
Declare Gl_Puffer&
Gl_Puffer& = 88
Case (Val(Left$($WinVer,1)) = 4): Gl_Puffer& = 76
******************************************
Proc Openfilehook-------------------------------OpenFileHook----------------------------
Parameters Dlg&,Msg&,Wparam&,Lparam&
Case status%:Return 1-----view must only once adjusted go
Casenot Msg&=~Wm_notify:Return 1
If Long(Lparam&,8)=-603---with Init existieren DefView and LV yet not!
status%=1
Defview&=~Findwindowex(~Getparent(Dlg&),0,SHELLDLL_DefView,)
Sendmessage(Defview&,~Wm_command,$702D,0)--Undokumentierte Message
Endif
Return 1
Endproc---------------------------------------------------------------------------------
Proc Loadpicdialog------------------------------LoadPicDialog---------------------------
Parameters way$,cover$,name$
Declare Ofn#,Result$,Result&
Declare Defview&,status%------variables for Hook
name$=name$+z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz--filter (with want adjust)
Dim Ofn#,Gl_Puffer&+256---------------structure (Win2000/NT/XP) + Puffer
Clear Ofn#
Long Ofn#,0=Gl_Puffer&----------------Size structure for GetOpenFileName (76 for Win9x)
Long Ofn#,4=%Hwnd-------------übergeordnetes Window
Long Ofn#,12=Addr(name$)------filter/type
Long Ofn#,28=Ofn#+Gl_Puffer&----------Beginn Puffer
Long Ofn#,32=255--------------Puffergrösse
Long Ofn#,44=Addr(way$)------Anfangspfad
Long Ofn#,48=Addr(cover$)-----cover
Long Ofn#,52=$880024----------? Happen?
Long Ofn#,68=Procaddr(OpenFileHook,4)
Result&=External(COMDLG32,GetOpenFileNameA,Ofn#)
Result$=String $(Ofn#,Gl_Puffer&)
Casenot Result&:Result$=
procaddr(OpenFileHook,-4)
Dispose Ofn#
Return Result$
Endproc---------------------------------------------------------------------------------
Print Loadpicdialog(,dial Graphic,BMP)
Waitkey
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 07/15/06 ▲ |
|
| |
|
|
Pedro
Santos | Hello M.Dell
thanks, have it already made, everywhere The 88 through 76 supplant, the dialog appear but
not Miniaturen mode, though only on a middle-aged notebook walk let
will be it on the monday on a others PC testing
greeting
Pedro |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | Hello Pedro!
so far I see, there The Miniatur-view under Win98 yet not at all...
here The Opportunities for Hook:
Win XP:
sendmessage(DefView&,~WM_COMMAND,$702A,0)--Symbols
sendmessage(DefView&,~WM_COMMAND,$702B,0)--list
sendmessage(DefView&,~WM_COMMAND,$702C,0)--details
sendmessage(DefView&,~WM_COMMAND,$702D,0)--Miniaturansicht
sendmessage(DefView&,~WM_COMMAND,$702E,0)--tile
Win 98:
sendmessage(DefView&,~WM_COMMAND,$7029,0)--grosse Symbols
sendmessage(DefView&,~WM_COMMAND,$702A,0)--small Smbole
sendmessage(DefView&,~WM_COMMAND,$702B,0)--list
sendmessage(DefView&,~WM_COMMAND,$702C,0)--details
there can well nothing make 
HTH
Pascal |
|
| |
| |
| |
|
|
Pedro
Santos | Hello Pascal
Vielen Thanks for your response, in the doing existing The Miniaturen view with Win98 not, unfortunately..
and the whole Sendmessages where can The search?
therefore was already in a others Tread my wish The Sendmessasges with Description in a special Rubrik
To collect, whom How You already time erwähnt have can so very plenty errreichen
thanks
greeting
Pedro |
|
| |
| |
| |
|
|
Jac
de
Lad | The Messages can you under [web]https://msdn.microsoft.com[/web] nachschauen.
or You load you the MSDN down, then have you got it too offline.
or You take the Platform SDK, this is small and erfüllt whom object too.
or You googlest; many others pages having the too everything aufgeführt, some even on german.
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 05/18/08 ▲ |
|
| |
|
(809)
Deutsch
English
Français
Español
Italia