[es] - Shell Dialogs

Riste Pejov
Team Leader/Senior Software Developer @ Ein-Sof ltd S..
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.dialup-maxtnt.on.net.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk

Profil

Shell Dialogs

^{05.09.2001. u 00:25}

Pa ako neko nekad codirao shell s***** nek pise ...

treba mi code da launch Network Neighborhood i slicne shell dialoge
kao Run Program Dialog ... i slicno

peace

People who think they know everything tend to irritate those of us who do.

^{05.09.2001. u 00:25}

Riste Pejov
Team Leader/Senior Software Developer @ Ein-Sof ltd S..
Skopje, Macedonia

Član broj: 128
Poruke: 571
*.mt.net.mk

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk

Profil

Re: Shell Dialogs

^{07.09.2001. u 17:10}

Sve je ok proshlo ...ali nikako da uspem da launch network neighborhood

ima neko ideju?

People who think they know everything tend to irritate those of us who do.

^{07.09.2001. u 17:10}

silverglider

Član broj: 651
Poruke: 218
*.batalpha.de

Sajt: www.benchmark.co.yu

Profil

Re: Shell Dialogs

^{17.09.2001. u 17:59}

Ne znam da li ce ti ovo pomoci ... ali vidi i sam :

Code:

unit uNetworkNeighborhood;

interface
uses Windows, SysUtils, shlobj, shellapi, ActiveX;

function GetRemouteComputerName( aPromptMsg : string): string;

implementation

function GetRemouteComputerName( aPromptMsg : string): string;
var
   tmpBrwsInf         : TBrowseInfo;
   tmpCompName     : array[0..MAX_PATH] of Char;
      pidlToNetwork : PItemIDList;
      tmpPIDL            : PItemIDList;
      tmpIMalloc         : IMalloc;

begin
     result := EmptyStr;
     tmpPIDL := nil;
     FillMemory(@tmpBrwsInf, SizeOf(TBrowseInfo), 0);
     FillChar(tmpCompName, SizeOf(tmpCompName), #0);
     SHGetMalloc(tmpIMalloc);
     if Assigned(tmpIMalloc) then
     begin
       try
            tmpBrwsInf.hwndOwner := 0;
            tmpBrwsInf.pszDisplayName := tmpCompName;
            tmpBrwsInf.lpszTitle := PChar(aPromptMsg);
            tmpBrwsInf.ulFlags := BIF_RETURNFSANCESTORS or BIF_BROWSEFORCOMPUTER;
            tmpBrwsInf.lpfn := nil;
            tmpBrwsInf.lParam := 0;

            SHGetSpecialFolderLocation( 0, CSIDL_NETWORK, pidlToNetwork);
            tmpBrwsInf.pidlRoot := pidlToNetwork;

            tmpPIDL := SHBrowseForFolder(tmpBrwsInf);
            result := StrPas(tmpCompName);
      finally
            tmpIMalloc.Free(pidlToNetwork);
            tmpIMalloc.Free(tmpPIDL);
     end;
end;
end;

end.

[Ovu poruku je menjao silverglider dana 09-17-2001 u 11:44 PM GMT]

^{17.09.2001. u 17:59}

silverglider

Član broj: 651
Poruke: 218
*.batalpha.de

Sajt: www.benchmark.co.yu

Profil

Re: Shell Dialogs

^{17.09.2001. u 18:01}

U, bre, sta je ovo sa <code> tagom; ne radi ?!?

^{17.09.2001. u 18:01}

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13173
*.gojko.ss.

Sajt: www.gojkovujovic.com

Profil

Re: Shell Dialogs

^{17.09.2001. u 18:37}

Ne < code > nego [ code ].. i radi, ovaj tvoj code mi je fixed width...

^{17.09.2001. u 18:37}

silverglider

Član broj: 651
Poruke: 218
212.144.69.*

Sajt: www.benchmark.co.yu

Profil

Re: Shell Dialogs

^{17.09.2001. u 23:48}

Citat:

Gojko je napisao:
Ne < code > nego [ code ].. i radi, ovaj tvoj code mi je fixed width...

Ma znam da je sa uglastim zagradama, ali sam upotrebio < > da ne aktivira isti.
I stavio sam text u okvir "code"-a bas zato sto je source propisno "nazubljen".

Kako to mislis da je code "fixed width" ?
Ako i ima definisanu sirinu, ne bi smeo da "guta" tabove i space ?!?

^{17.09.2001. u 23:48}

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13173
*.gojko.ss.

Sajt: www.gojkovujovic.com

Profil

Re: Shell Dialogs

^{18.09.2001. u 00:08}

Ima problema sa prikazivanjem koda u ovom forumu i to je tacno, ali to je na svim tForumima.. i problem je sto je nemoguce pronaci tag koji bi istovetno prikazivao code na svim browserima.. Ranije smo koristili <PRE> za ovo, ali po novom html standardu, <pre> je izbacen iz upotrebe i preporucuje se koriscenje cssa umesto toga.. pogledaj source ove strane da vidis na koji fixed-width mislim..

^{18.09.2001. u 00:08}