mirror of https://gitlab.com/basile.b/dexed.git
fixes for windows version
This commit is contained in:
parent
5755432b17
commit
ac056af541
Binary file not shown.
Before Width: | Height: | Size: 134 KiB After Width: | Height: | Size: 134 KiB |
Binary file not shown.
After Width: | Height: | Size: 32 KiB |
Binary file not shown.
|
@ -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);
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue