Hi:
I was looking the demo sources, and I found c:\pp\demo\win32\edit.pp VERY
interesting. So, i decide to try shBrowseForFolder instead of GetOpenFilename, but I
don't know wath I'm doing wrong...
This is my humble little program... be nice with the criticims... !
{----------begin of program------------}
program myprogram;
uses windows;
const
COINIT_APARTMENTTHREADED=2;{from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/cme_a2d_4oqc.asp
}
var
myDir:browseinfo; {from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp
}
function CoInitializeEx(pvReserved:pointer;dwCoInit:dword):UINT;external 'ole32' name
'CoInitializeEx';
{from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/cmf_a2c_5iyg.asp
}
procedure CoTaskMemFree(var pv:pointer);external 'ole32' name 'CoTaskMemFree';
{from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/cmf_a2c_63l1.asp
}
var
Dir:browseinfo;
fpath:string;
{-------------------------------------------------------}
function SelectDir:string;
var
items:lpitemidlist;
aux:lptstr;
aux2:string;
i:integer;
begin
with myDir do
begin
HWndOwner := 0;{?????}
pidlRoot :=null;
pszDisplayName:[EMAIL PROTECTED];
lpszTitle:='Hello...';
ulFlags:=0;
{ulFlags:=??;}
lpfn:=null;
{bffcallback:=???;}
end;
i:=coinitializeex(null,COINIT_APARTMENTTHREADED);{following instructions from
shBrowseForFolder}
items:=shBrowseForFolder(@Dir);{from
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shbrowseforfolder.asp}
if not(shGetPathFromIDList(items,@aux)) then begin writeln('failed...');halt; end;
aux2:=strpas(@aux);{hey !, lptstr to string was not the problem !!!}
{halt;}
{If you don't halt here, you'll get an Access violation...}
CoTaskMemFree(items);{following instructions from shBrowseForFolder example}
SelectDir:=aux2;
end;{function}
{--------------------------------------------------------}
begin
writeln('Please, select a dir until this program crash:');
writeln('You pick ',SelectDir);
writeln('Please, pick a deeper dir, c:\program files\other\other\... or I will not
crash...' );
end.
{----------end of program------------}
Thank you very, very, very much !!!!!!
Inpromptu
> > > How do I convert a lptstr var (win32) to a string var ?
> >
> > lptstr is just a PChar. Use the usual method you use for PChar...
> >
> > Y := StrPas( X );
> >
> > Y := String(X);
> >
> > Would probably both work in Delphi mode - though StrPas is more universal.
>
> strpas will introduce a 255 char limit.
--
_____________________________________________________________
Web-based SMS services available at http://www.operamail.com.
>From your mailbox to local or overseas cell phones.
Powered by Outblaze
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
