mirrors/ProgressQuest
1
0
Fork 0
mirror of https://bitbucket.org/grumdrig/pq.git synced 2026-09-29 08:44:00 -06:00
Code Issues Packages Projects Releases Wiki Activity

Ignore exceptions when setting file associations, for Win 7 users

Browse Source 
without admin privs
This commit is contained in:
Eric Fredricksen
2012-02-14 08:41:54 -08:00
parent e371be0bc4
commit d611931e37
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.pas
+6
View File
@@ -199,6 +199,7 @@ var
kOpenCommand: String; kOpenCommand: String;
begin begin
kOpenCommand := '"' + Application.ExeName + '" "%1"'; kOpenCommand := '"' + Application.ExeName + '" "%1"';
try
RegWrite(HKEY_CLASSES_ROOT, kFileExt,'', kPQFileType); RegWrite(HKEY_CLASSES_ROOT, kFileExt,'', kPQFileType);
RegWrite(HKEY_CLASSES_ROOT, kPQFileType, '', 'Progresss Quest saved game'); RegWrite(HKEY_CLASSES_ROOT, kPQFileType, '', 'Progresss Quest saved game');
RegWrite(HKEY_CLASSES_ROOT, kPQFileType + '\DefaultIcon', '', Application.ExeName + ',0'); RegWrite(HKEY_CLASSES_ROOT, kPQFileType + '\DefaultIcon', '', Application.ExeName + ',0');
@@ -209,6 +210,11 @@ begin
// I don't do this unless I'm sure this one has changed. // I don't do this unless I'm sure this one has changed.
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end; end;
except
on Exception do begin
// Don't care
end;
end;
end; end;
procedure TMainForm.MinimizeIt; procedure TMainForm.MinimizeIt;