fixes for windows version

This commit is contained in:
Basile Burg 2018-10-21 18:12:51 +02:00
parent 5755432b17
commit ac056af541
5 changed files with 3 additions and 2 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

BIN
logo/dexed.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

Binary file not shown.

View File

@ -383,6 +383,7 @@ void postInstall()
IPersistFile linkFile; IPersistFile linkFile;
CoCreateInstance(&CLSID_ShellLink, null, CLSCTX_INPROC_SERVER, CoCreateInstance(&CLSID_ShellLink, null, CLSCTX_INPROC_SERVER,
&IID_IShellLinkA, cast(void**)&shellLink); &IID_IShellLinkA, cast(void**)&shellLink);
shellLink.SetIconLocation(buildNormalizedPath(datPath, "dexed.ico").toStringz, 0);
shellLink.SetPath(target.ptr); shellLink.SetPath(target.ptr);
shellLink.SetWorkingDirectory(wdir.ptr); shellLink.SetWorkingDirectory(wdir.ptr);
shellLink.QueryInterface(&IID_IPersistFile, cast(void**)&linkFile); shellLink.QueryInterface(&IID_IPersistFile, cast(void**)&linkFile);

View File

@ -10,12 +10,12 @@ uses
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
Windows, JwaTlHelp32, registry, Windows, JwaTlHelp32, registry,
{$ELSE} {$ELSE}
ExtCtrls, FileUtil, ExtCtrls,
{$ENDIF} {$ENDIF}
{$IFNDEF CEBUILD} {$IFNDEF CEBUILD}
forms, ComCtrls, forms, ComCtrls,
{$ENDIF} {$ENDIF}
LazFileUtils, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils, LazFileUtils, FileUtil, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils,
fpjson, graphics; fpjson, graphics;
const const