Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Read Registry for Default Image Editor

Posted on 2000-04-29
9
Medium Priority
?
174 Views
Last Modified: 2011-09-20
// Hello,

// I need some code for reading the registry for the defualt image editor

procedure ThankYou(TOject: Sender);

// :)
0
Comment
Question by:fibdev
  • 5
  • 4
9 Comments
 
LVL 1

Accepted Solution

by:
King_David earned 50 total points
ID: 2763493
function CheckAssociatedFileType(FileType: AnsiString): String;
// Example: ShowMessage(CheckAssociatedFileType('.bmp'));
var
  Reg: TRegistry;
  Str: String;
begin
  Reg := TRegistry.Create;
  Result := '';
  with Reg do
    begin
    RootKey := HKEY_CLASSES_ROOT;
    if not OpenKey('\'+FileType, False) then Exit;
    Str := ReadString(''); // '' reads the default.
    if not OpenKey('\'+Str+'\Shell\Open\command', False) then Exit;
    Result := ReadString(''); // '' reads the default.
    end;
  Reg.Free;
end;
0
 
LVL 3

Author Comment

by:fibdev
ID: 2763713
How do I take the variable off the end of the string?

example:

c:\WINNT\paint.exe %1
0
 
LVL 1

Expert Comment

by:King_David
ID: 2763879
If it includes spaces than " is your delimiter
else
the space is your delimiter.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 3

Author Comment

by:fibdev
ID: 2763885
Please explain?
0
 
LVL 3

Author Comment

by:fibdev
ID: 2815334
Question wasn't answered completely, no activity for at least 2 weeks.

Sorry
0
 
LVL 3

Author Comment

by:fibdev
ID: 2815335
This question has a deletion request Pending
0
 
LVL 1

Expert Comment

by:King_David
ID: 2816064
This question no longer is pending deletion
0
 
LVL 1

Expert Comment

by:King_David
ID: 2816065
You asked for some code for reading the registry for the defualt image editor - I gave you.
For 25 points I can not do more than you first asked!

Regards, David.

0
 
LVL 3

Author Comment

by:fibdev
ID: 2816588
I'm not going to bicker over 25 points, but my problem wasn't solved, I ended up solving it myself.
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Want to learn how to record your desktop screen without having to use an outside camera. Click on this video and learn how to use the cool google extension called "Screencastify"! Step 1: Open a new google tab Step 2: Go to the left hand upper corn…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Suggested Courses
Course of the Month11 days, 10 hours left to enroll

916 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question