hh.exe standardmäßig auf allen Windows-Computern vorhanden?

[386sx]

Zitat von nahpets:

Ansonsten schau mal hier in der DP: CHM-Dump

War vor einiger Zeit mal so entstanden, um CHM-Dateien "auszupacken". Eventuell kannst Du ja Teile daraus so umbauen, dass Du direkt in Deinem Programm an die gewünschten Inhalte kommst.

Vielen Dank für den Link!

Ein wenig Pfusch von mir dazu:

Delphi-Quellcode:

procedure TFrmMain.TreeDblClick(Sender: TObject);
var
  s, sAsk: string;
  sFileName: string;
  Node: TTreeNode;
  ans: Word; //ausgewählte Anworte

begin
  Node := Tree.Selected;
  if Assigned(Node) then
  begin
    { Create a fully qualified filename by traversing the parent nodes }
    s := Node.Text;
    sFilename := Node.Text;

    repeat
      Node := Node.Parent;
      if Assigned(Node) then
        sFilename := Node.Text + '\' + sFilename;
    until (Node = nil);

    s := sFileName;
    sAsk := 'Möchten Sie das ausgewählte Objekt ' + #13#10 + sFileName + #13#10
      +
      'wirklich bearbeiten?';
    //  MessageBox(Handle, PChar(s), 'Doppelklick im Tree', mb_Ok or mb_DefButton1);
    ans := MessageBox(Handle, PChar(sAsk),
      'Bestätigen', mb_YesNoCancel or mb_IconQuestion or mb_DefButton3);
    if ans = idCancel then
    begin
      MessageBox(Handle, 'Abbrechen angeklickt', 'Info', mb_Ok or
        mb_DefButton1);
      exit;
    end;
    if ans = idNo then
    begin
      MessageBox(Handle, 'NEIN angeklickt', 'Info', mb_Ok or mb_DefButton1);
      exit;
    end;
    if ans = idYes then
    begin
      MessageBox(Handle, 'JAhaa angeklickt', 'Info', mb_Ok or mb_DefButton1);
      // Machwas!
      exit;
    end;
  end;
end;