DelphiSiWin32

Win32 api funkcije.
Odgovori
gabr
Prispevkov: 4129
Pridružen: 28.08.2001 14:10:47

DelphiSiWin32

Odgovor Napisal/-a gabr » 15.07.2009 08:09:20

Najprej opravičilo Lipetu - čisto sem pozabil na tvojo kodo. Gužva, pa počitnice (otroci visijo za vratom) pa to. Se bom poskusil poboljšat.

Tole sem pa hotel v resnici napisa - moj aktivizem se končno pozna :) (DSiWin32 tlačim v vse možne odgovore na StackOverflowu). Nick Hodges je na : svojem blogu napisal
I asked this question on Stackoverflow.com, and got some great answers – thanks. Ande along the way, I found this – DSiWin32 – a very nice collection of Delphi code.
Tako da boste vedeli, da bo vašo kodo kmalu uporabljalo 10x več ljudi kot doslej.

gabr
Prispevkov: 4129
Pridružen: 28.08.2001 14:10:47

DelphiSiWin32

Odgovor Napisal/-a gabr » 27.10.2009 17:47:06

Ih, skoraj sem vam pozabil povedat.

DSiWin32 1.51
  • [-] New Memory functions: DSiGetGlobalMemoryStatus, DSiGlobalMemoryStatusEx.
    [-] New Files functions: DSiGetNetworkResource, DSiDisconnectFromNetworkResource, DSiDisableWow64FsRedirection, DSiRevertWow64FsRedirection, DSiGetSubstDrive, DSiGetSubstPath.
    [-] New Install functions: DSiAddApplicationToFirewallExceptionList, DSiAddPortToFirewallExceptionList.
    [-] New Processes functions: DSiGetCurrentThreadHandle, DSiGetCurrentProcessHandle.
    [-] New dynamically loaded API forwarders DSiWow64DisableWow64FsRedirection, DSiWow64RevertWow64FsRedirection, DSiGetTickCount64.
    [-] Defined TOSVersionInfoEx record and corresponding constants.
    [-] Extended DSiGetWindowsVersion to return wvWinServer2008, wvWin7 and wvWinServer2008R2.
    [-] Extended DSiGetTrueWindowsVersion to return wvWinServer2008OrVistaSP1 and wvWin7OrServer2008R2.
    [-] Added 'access' parameter to the DSiWriteRegistry methods so that user can request writing to the non-virtualized key when running on 64-bit system (KEY_WOW64_64KEY).
    [-] Updated DSiExecuteAndCapture: settable timeout, Unicode Delphi support, LastError is set if CreateProcess fails, added onNewLine callback.
    [-] Delphi 2009 compatibility fixes for DSiGetFolderLocation, DSiGetNetworkResource, DSiGetComputerName, DSiGetWindowsFolder.
    [-] Bugs fixed in DSiGetTempFileName, DSiGetUserName.
http://17slon.com/gp/gp/files/dsiwin32.zip

Lipe, po moje sem tvoje spremembe izgubil, preden sem jih vgradil :( A mi lahko še enkrat pošlješ?

GoranB
Prispevkov: 169
Pridružen: 16.07.2002 10:12:21

Re: DelphiSiWin32

Odgovor Napisal/-a GoranB » 28.03.2011 15:13:19

Zdravo,
nedolgo nazaj sem dobil pritožbe čez mojo kodo okoli detekcije Windows verzij pa sem v program priklemal DelphiSi unit in uporabil metodo DSiGetWindowsVersion. Zadeva lepo deluje dokler se ne začnemo pogovarjati o Windows 7. Sam imam Windows 7 x64 in sem potem nekoliko zmodificiral kodo pa bi prosil, če lahko kdo preveri detekcijo Windows 7 in Windows 2008R2. Tu je še moj modificirani del te metode:

Koda: Izberi vse

      VER_PLATFORM_WIN32_NT:
        case versionInfo.dwMajorVersion of
...
          6:
            begin
              versionInfoEx.dwOSVersionInfoSize := SizeOf(versionInfoEx);
              GetVersionEx(versionInfoExFake);
              case versionInfo.dwMinorVersion of
                0: begin
                     case versionInfoEx.wProductType of
                       1 : Result := wvWinVista;
                       3 : Result := wvWinServer2008;
                     else
                       Result := wvUnknown;
                     end;
                   end;
                1: begin
                     case versionInfoEx.wProductType of
                       0 : Result := wvWin7; //tole zaznajo moji Win7
                       1 : Result := wvWin7; //tole je po M$-u...
                       3:  Result := wvWinServer2008R2
                     else
                       Result := wvWin7OrServer2008R2;
                     end;
                   end;
              end;
...
Pozdravček,
Goran

mig640
Prispevkov: 59
Pridružen: 03.01.2008 11:36:54

Re: DelphiSiWin32

Odgovor Napisal/-a mig640 » 07.12.2011 12:06:09

Nekoč sem ze poskusil delati z DelphiSiWin32, kje pa je zdaj ?

GoranB
Prispevkov: 169
Pridružen: 16.07.2002 10:12:21

Re: DelphiSiWin32

Odgovor Napisal/-a GoranB » 08.12.2011 12:35:50

V enem postu pred mano je na koncu link...
http://17slon.com/gp/gp/dsiwin32.htm

Odgovori