Neuen Ordner erstellen mit Hilfe vom Captian Hook!

Hallo zusammen

Folgende Idee. Ich habe es leid immer rechte Maustaste -> Neu -> Ordner erstellen. Dann habe ich mich mal in die Materie der Hooks rein gearbeitet. Und nun habe ich keine Idee mehr was ich tun kann damit das Ding genau so rockt wie ich es gerne hätte.

Momentan was geht:
Ich kann die Exe starten und mit ALT+F12 erstellt es mir einen Ordner. Aber immer da wo sich auch die Exe befindet. Und hier ist der Hacken. Der sollte immer den Pfad heraus lesen in dem er sich gerade befindet. Da habe ich mir überlegt ob ich dann einfach das aktuelle Fenster übergebe und mir aus diesem den Pfad heraus lese. Aber hier ist eben der Knackpunkt. Seit ca. 4h versuche ich das ganze und vorher nie was gemacht mit Hooks. Aber es ist eine sehr interessante Materie. Es erleichert einem das Leben denke ich wenn man es mal voll gecheckert hat. Wäre euch sehr dankbar, wenn Ihr mir auf die Sprünge helfen könntet. Ich poste gerade noch meinen Code hierein.

Mein Code:

unit pgmMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TfrmMain = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private-Deklarationen }
Fix : Integer;
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public-Deklarationen }

end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

{ TfrmMain }
{------------------------------------------------------------------------------}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Fix := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, Fix, MOD_Alt, 123);
end;
{------------------------------------------------------------------------------}

{------------------------------------------------------------------------------}
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, Fix);
end;
{------------------------------------------------------------------------------}

{------------------------------------------------------------------------------}
procedure TfrmMain.WMHotKey(var Msg: TWMHotKey);
var str: String;
begin
if Msg.HotKey = Fix then
begin
GetDir(0,str);
try
MkDir(str + '\' + 'NeuerOrdner');
except
ShowMessage('Kontte leider nicht erstellt werden :-(');
end;
end;
end;
{------------------------------------------------------------------------------}
end.

	Willkommen Gast. Bitte einloggen oder registrieren. 04.02.2012, 09:17:47