Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Shell Dialogs

[es] :: Pascal / Delphi / Kylix :: Shell Dialogs

[ Pregleda: 5148 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
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

icon Shell Dialogs05.09.2001. u 00:25 - pre 274 meseci
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.
 
Odgovor na temu

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

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

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


Profil

icon Re: Shell Dialogs07.09.2001. u 17:10 - pre 274 meseci
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.
 
Odgovor na temu

silverglider

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

Sajt: www.benchmark.co.yu


Profil

icon Re: Shell Dialogs17.09.2001. u 17:59 - pre 274 meseci
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]
 
Odgovor na temu

silverglider

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

Sajt: www.benchmark.co.yu


Profil

icon Re: Shell Dialogs17.09.2001. u 18:01 - pre 274 meseci
U, bre, sta je ovo sa <code> tagom; ne radi ?!?
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Shell Dialogs17.09.2001. u 18:37 - pre 274 meseci
Ne < code > nego [ code ].. i radi, ovaj tvoj code mi je fixed width...
 
Odgovor na temu

silverglider

Član broj: 651
Poruke: 218
212.144.69.*

Sajt: www.benchmark.co.yu


Profil

icon Re: Shell Dialogs17.09.2001. u 23:48 - pre 274 meseci
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 ?!?
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Shell Dialogs18.09.2001. u 00:08 - pre 274 meseci
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..
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Shell Dialogs

[ Pregleda: 5148 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.