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;
|
||||
CoCreateInstance(&CLSID_ShellLink, null, CLSCTX_INPROC_SERVER,
|
||||
&IID_IShellLinkA, cast(void**)&shellLink);
|
||||
shellLink.SetIconLocation(buildNormalizedPath(datPath, "dexed.ico").toStringz, 0);
|
||||
shellLink.SetPath(target.ptr);
|
||||
shellLink.SetWorkingDirectory(wdir.ptr);
|
||||
shellLink.QueryInterface(&IID_IPersistFile, cast(void**)&linkFile);
|
||||
|
|
|
@ -10,12 +10,12 @@ uses
|
|||
{$IFDEF WINDOWS}
|
||||
Windows, JwaTlHelp32, registry,
|
||||
{$ELSE}
|
||||
ExtCtrls, FileUtil,
|
||||
ExtCtrls,
|
||||
{$ENDIF}
|
||||
{$IFNDEF CEBUILD}
|
||||
forms, ComCtrls,
|
||||
{$ENDIF}
|
||||
LazFileUtils, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils,
|
||||
LazFileUtils, FileUtil, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils,
|
||||
fpjson, graphics;
|
||||
|
||||
const
|
||||
|
|
Loading…
Reference in New Issue