Follow Our FB Page << CircleMedia.in >> for Daily Laughter. We Post Funny, Viral, Comedy Videos, Memes, Vines...

editorr


{ City } chennai
< Country > india
* Profession *
User No # 40421
Total Questions Posted # 0
Total Answers Posted # 4

Total Answers Posted for My Questions # 0
Total Views for My Questions # 0

Users Marked my Answers as Correct # 0
Users Marked my Answers as Wrong # 2
Questions / { editorr }
Questions Answers Category Views Company eMail




Answers / { editorr }

Question { 6326 }

How to use TADOTable Seek procedure?1


Answer

Seek & Locate are to search data against dataset, when
there's an index it will use it, and if there's no index, it
will perform the normal search method

Is This Answer Correct ?    0 Yes 2 No

Question { 2443 }

Do the ADO components come with the professional version of
Delphi 6?


Answer

Yes, I does come with all ADO components (TADOConnection
TADOTable TADOStoredProc etc)

Is This Answer Correct ?    0 Yes 0 No


Question { 2598 }

How to find what the user path is for their Environment
Variables?


Answer

Windows provides four API functions for accessing and
updating environment variables:

1. GetEnvironmentVariable
This returns the value of a given environment variable.
2. SetEnvironmentVariable
Sets an environment variable's value, creating a new
variable if necessary. This routine can also be used to
delete an environment variable.
3. GetEnvironmentStrings
Gets a list of all the environment variables available
to a process.
4. ExpandEnvironmentStrings
Replaces environment variables delimited by "%"
characters in a string with the variable's value.

Is This Answer Correct ?    0 Yes 0 No

Question { Emerge, 2352 }

How to invoke the Windows ShortCut Dialog wizard?


Answer

function InvokeShortCutDialog(Directory : string) : boolean;
var
Reg : TRegistry;
CmdLine : string;
begin
Result := false;
Reg := TRegistry.Create;
try
Reg.Rootkey := HKEY_CLASSES_ROOT;
if Reg.OpenKeyReadOnly('.LNKShellNew') then
begin
CmdLine := Reg.ReadString('Command');
CmdLine := StringReplace(CmdLine, '%1', Directory, []);
Result := True;
WinExec(PChar(CmdLine), SW_SHOWNORMAL );
end
finally
Reg.free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
InvokeShortCutDialog('c:Temp');
end;

Is This Answer Correct ?    0 Yes 0 No