Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Count: Integer;

NetResult:Integer;

I: Integer;

NewItem:TListItem;

Begin

IfWNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,

// RESOURCETYPE_ANY - все ресурсы

// RESOURCETYPE_DISK - диски

// RESOURCETYPE_PRINT - принтеры

0, LpNR, NetHandle) <> NO_ERROR thenExit;

Try

BufSize := 50 * SizeOf(TNetResource);

GetMem(NetResources, BufSize);

Try

whileTrue do begin

Count := -1;

Size := BufSize;

NetResult := WNetEnumResource(NetHandle, Count, NetResources, Size);

IfNetResult = ERROR_MORE_DATA then begin

BufSize := Size;

ReallocMem(NetResources, BufSize);

Continue;

end;

ifNetResult <> NO_ERROR thenExit;

ForI := 0 toCount-1 do Begin

WithNetResources^[I] do Begin

IfRESOURCEUSAGE_CONTAINER = (DwUsage andRESOURCEUSAGE_CONTAINER) then

EnumResources(@NetResources^[I]);

IfdwDisplayType = RESOURCEDISPLAYTYPE_SHARE Then

// ^^^^^^^^^^^^^^^^^^^^^^^^^ - ресурс

// RESOURCEDISPLAYTYPE_SERVER - компьютер

// RESOURCEDISPLAYTYPE_DOMAIN - рабочая группа

// RESOURCEDISPLAYTYPE_GENERIC - сеть

Begin

NewItem:= Form1.ListView1.Items.Add;

NewItem.Caption:=LpRemoteName;

End;

End;

End;

End;

finally

FreeMem(NetResources, BufSize);

end;

finally

WNetCloseEnum(NetHandle);

end;

End;

procedureTForm1.Button1Click(Sender: TObject);

VarOldCursor: TCursor;

begin

OldCursor:= Screen.Cursor;

Screen.Cursor:= crHourGlass;

WithListView1.Items do Begin

BeginUpdate;

Clear;

EnumResource( nil);

EndUpdate;

End;

Screen.Cursor:= OldCursor;

end;

Nomadicпишет:

Вот тебе кyсочек Windows Registry, pазбиpайся:

=== Cut here! [a.reg] === REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]

"InstallType"=hex:03,00

"SetupFlags"=hex:08,01,00,00

"DevicePath"="C:\\WINDOWS\\INF"

"ProductType"="9"

"RegisteredOwner"="Jacky Shikerya"

"RegisteredOrganization"="SigmaЩ Soft. Universal ltd.й"

"ProductId"="12095-OEM-0004226-12233"

"LicensingInfo"=""

"SubVersionNumber"=" B"

"InventoryPath"="C:\\WINDOWS\\SYSTEM\\PRODINV.DLL"

"ProgramFilesDir"="C:\\Program Files"

"CommonFilesDir"="C:\\Program Files\\Common Files"

"MediaPath"="C:\\WINDOWS\\media"

"ConfigPath"="C:\\WINDOWS\\config"

"SystemRoot"="C:\\WINDOWS"

"OldWinDir"=""

"ProductName"="Microsoft Windows 95"

"FirstInstallDateTime"=hex:81,73,b0,22

"Version"="Windows 95"

"VersionNumber"="4.00.1111"

"BootCount"="3"

"OtherDevicePath"="C:\\WINDOWS\\INF\\OTHER"

=== And cut Here!(or there?!) [a.reg] ===

В uses пpописываешь модуль Registry и дальше так:

var

R:TRegistry;

No: String;

begin

R:=TRegistry.Create;

R.RootKey:=HKEY_LOCAL_MACHINE;

R.OpenKey(' ….', false) {если false то пытается откpыть не создавая}

No:=R.ReadString('VersionNumber');

ifno=….. then …… else ……

end;

Выше был приведён кусочек из Windows 95/98 Registry. В Windows NT эта ветвь находится в разделе [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] Кроме того, обязательно посмотрите на список функций WinAPI, имена которых начинаются с Get…. Например, GetComputerName, GetVersionEx, GetSystemInfo, SystemParametersInfo.

VRSLazy@mail.ruпишет:

Может ещё так можно ярлыки делать?

uses …ShlObj, ComObj, ActiveX, shellapi, ComCtrls, ...// не помню какая из них нужна, вообще наити можно поиском в *.pas в каталоге

// disk:\Program Files\Borland\Delphi5\Source

procedureSetShortCut(path, cmd, icon, wd, name, arg : String);

var

ShellObject:IUnknown;

LinkFile:IPersistFile;

ShellLink:IShellLink;

begin

Try

CoInitialize( nil);

ShellObject:=CreateComObject(CLSID_ShellLink);

LinkFile:=ShellObject asIPersistFile;

ShellLink:=ShellObject asIShellLink; // RTFM - интерфейсу IShellLink, там всё описано

ShellLink.SetPath(@cmd[1]);

ShellLink.SetWorkingDirectory(@wd[1]);

ShellLink.SetIconLocation(@icon[1], 0); // вместо 0 можно указать номер иконки если их там много…

ShellLink.SetDescription(@name[1]);

ShellLink.SetArguments(@arg[1]);

LinkFile.Save(PWChar(WideString(path)),true);

finally

ShellObject:=Unassigned;

CoUninitialize;

end;

end;