ResCreator

[SimplySimon]

ResCreator - Ressourcendateien für eine DLL erstellen!

Mit dem ResCreator können Sie ganz einfach Dateien zu einer .rc-Datei zusammenfassen, um anschließend eine .res-Ressourcendatei zu erzeugen.
Dann einfach Ihren Delphi-Compiler öffnen und die DLL kompilieren.
Der ResCreator kann eine Projektdatei anlegen, damit Dateien im Nachhinein noch verändert, gelöscht, hinzugefügt oder erneut erzeugt werden können.

ResCreator ist kompatibel für Windows XP, Windows Vista und Windows 7 und normalerweise auch mit allen anderen Windows Betriebssystemen.

Lizenz: Freeware
Installation: .exe

Um über Updates und Verbesserungen informiert zu werden einfach hier wieder vorbeischauen.
Über Verbesserungen, Anregungen und Kritiken würde ich mich sehr freuen!

Version 1.1.0.63 Erster Beta-Test
Version 1.2.1.97 Ressourcen können umbenannt werden, Beispielprozeduren, Beispielprojekt, BugFixes
Version 1.3.4.20 BugFixes, grafisches Hintergrundbild kann deaktiviert werden (nützlich für Windows XP-User und älter)

Neue Version (1.3.4.20) verfügbar!

[Gustav.R]

die zip-datei herunterladen oder die bilder ansehen kann man nur, wenn man hier eingeloggt ist - wie üblich.

wozu also facebook?

[Luckie]

Na ja, man muss ja auch einen Anreiz geben sich hier anzumelden. ;)

[SimplySimon]

Außerdem geht es nicht darum, dass man nur Zugang zu dem Programm hat wenn man hier angemeldet ist, sondern dass viele dieses Tool nutzen können. Facebook ist hier eine weitere Hilfe und Informationsquelle.
Vor allem für mich eine weitere Hilfe Fehler auszumerzen ;)
Ich denke, dass mir noch weitere Ideen einfallen, die den Umgang mit Delphi vereinfachen.
Eventuell werde ich dann (wenn genug Leute die Facebook-Seite "geliked" haben) bei Facebook nur so eine Art Testversion zur Verfügung stellen, damit man förmlich gezwungen ist sich hier anzumelden, um an die Pro-Version zu kommen :D

[wurzelzwerg]

Zitat:

grafisch leicht eingeschränkt kompatibel mit Microsoft© Windows© XP

Wollte das grad mal probieren, aber...
Für TFileOpenDialog ist Windows Vista oder höher erforderlich.

[SimplySimon]

Mmh, das ist natürlich blöd, hatte gedacht der TFileOpenDialog läuft auch unter XP...

[uligerhardt]

Zitat:

Zitat von SimplySimon (Beitrag 1137544)

Mmh, das ist natürlich blöd, hatte gedacht der TFileOpenDialog läuft auch unter XP...

Reicht dir denn nicht der normale TOpenDialog? Unter Vista/7 schaut der ja genauso aus wie der TFileOpenDialog.

[SimplySimon]

Nein, da der TFileOpenDialog die Option PickFolders hat...
Sonst müsste ich den anderen Standard FolderPicker nehmen und der ist längst nicht so elegant und benutzerfreundlich...

[himitsu]

OS-abhängig Beide einbauen.

[SimplySimon]

Gute Idee, so wirds gemacht, der Code wird hier mit Sicherheit zu finden sein ;-)

[uligerhardt]

Zitat:

Zitat von himitsu (Beitrag 1137553)

OS-abhängig Beide einbauen.

Ich hab mal schnell einen Wrapper zusammengeklatscht:

Delphi-Quellcode:

function SelectDirectory(const Caption: string;
  var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean;
var
  dlg: TFileOpenDialog;
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
  begin
    dlg := TFileOpenDialog.Create(nil);
    try
      dlg.Title := Caption;
      dlg.FileName := Directory;
      dlg.Options := dlg.Options + [fdoPickFolders];
      // Außerdem TSelectDirExtOpts auf TFileDialogOptions abbilden
      Result := dlg.Execute(Parent.Handle);
      if Result then
        Directory := dlg.FileName;
    finally
      dlg.Free;
    end;
  end
  else
  begin
    Result := FileCtrl.SelectDirectory(Caption, '', Directory, Options, Parent);
  end;
end;

Das kann man so aufrufen:

Delphi-Quellcode:

SelectDirectory('Test', Directory, [sdNewFolder, sdShowEdit, sdNewUI], Self);

[SimplySimon]

Vielen dank! Werde es demnächst einbinden :)

[Luckie]

Und ab welcher Delphiversion läuft das? Ab wann steht TFileOpenDialog und UseLatestCommonDialogs zur Verfügung?

[uligerhardt]

Hab's noch ein bisschen überarbeitet:

Delphi-Quellcode:

function SelectDirectory(const Caption: string;
  var Directory: string; Options: TFileDialogOptions; Parent: TWinControl): Boolean;
var
  dlg: TFileOpenDialog;
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
  begin
    dlg := TFileOpenDialog.Create(nil);
    try
      dlg.Title := Caption;
      dlg.FileName := Directory;
      dlg.Options := Options + [fdoPickFolders];
      Result := dlg.Execute(Parent.Handle);
      if Result then
        Directory := dlg.FileName;
    finally
      dlg.Free;
    end;
  end
  else
  begin
    Result := FileCtrl.SelectDirectory(Caption, '', Directory, [sdNewFolder, sdShowEdit, sdShowShares, sdNewUI], Parent);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  UseLatestCommonDialogs := CheckBoxUseLatestCommonDialogs.Checked;
  if SelectDirectory('Test', Directory, [], Self) then
    Label1.Caption := Directory;
end;

Vielleicht kann man die beiden Option-Typen noch besser synchronisieren. Aber z.B. scheint sdShowShares nichts mit fdoShareAware zu tun zu haben, ebensowenig sdValidateDir mit fdoNoValidate, und mehr "Pärchen" habe ich auf die Schnelle nicht gefunden.

Zitat:

Zitat von Luckie (Beitrag 1137566)

Und ab welcher Delphiversion läuft das? Ab wann steht TFileOpenDialog und UseLatestCommonDialogs zur Verfügung?

Ich hab's mit D2007 ausprobiert.

Update: Wie zu erwarten lässt es sich mit Turbo Delphi nicht kompilieren.

[SimplySimon]

Hallo alle zusammen,

habe mich nochmal hingesetzt und die Version überarbeitet.
Es sind neue Funktionen hinzugekommen, einiges wurde verbessert, außerdem sollte jetzt auch
das Problem mit Windows XP gelöst sein.

[SimplySimon]

Kleines Update für zwischendurch. Habe noch ein paar kleine Fehler gefunden.