Question { 6890 }

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

Question { 2674 }

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)

Question { 2811 }

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.

Question { Emerge, 2583 }

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;