Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- DeviceRegPath = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\GetDevice_%d';
- function GetUninstFilePath(Value: string): string;
- var
- S: string;
- I: Integer;
- begin
- Result := '';
- for I := 1 to 3 do
- if RegQueryStringValue(HKLM, Format(DeviceRegPath, [I]), 'Name', S) then
- begin
- Result := S;
- Exit;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement