WinAPI Funktion GetShortPathName

[PeterKiers]

Hallo!
hab mal Folgende Frage

Mit dieser Funktion können Lange Pfade in kurtze umgewandelt werden:

Code:

uses 
  Windows, SysUtils; 

function GetShortName(sLongName: string): string; 
var 
  sShortName:    string;
  nShortNameLen: Integer; 
begin 
  SetLength(sShortName, MAX_PATH); 
  nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1);
  if (0 = nShortNameLen) then 
  begin 
    // handle errors... 
  end; 
  SetLength(sShortName, nShortNameLen); 
  Result := sShortName; 
end; 

// Example: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Caption := GetShortName('C:\Program Files\Delphi6\Lib\test.cnt'); 
  // --> C:\PROGRA~1\Delphi6\Lib\test.cnt 
end;

meinen code:

Code:

function GetShortName(sLongName: string): string;
var
  sShortName:    string;
  nShortNameLen: Integer;
begin
  SetLength(sShortName, MAX_PATH);
  nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1);
  if (0 = nShortNameLen) then
  begin
    // handle errors...
  end;
  SetLength(sShortName, nShortNameLen);
  Result := sShortName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetShortName(Edit1.Text);
end;

Es funktioniert nicht. Was mach ich falsch?

Hoffe ihr könnt mir helfen und danke schonmal im Voraus.

Peter kiers

[sirius]

Funktioniert doch.
Ist die Frage was du bei edit1.text drinn hast. Ich hab edit1 so gefüllt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  edit1.Text:=d.FileName;
  d.free;
end;

[himitsu]

Existiert die Datei auch?

Und eventuell gibt es auch Probleme mit relativen Pfaden.

[PeterKiers]

Code:

procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  caption := d.FileName;
  d.free;
end;

Bei Caption:

C:\Documents and Settings\HP_Eigenaar\Bureaublad\Test.doc

Dass ist doch nich kurtz!

Peter

[himitsu]

Nee, isses nich

dann solltest du dir wohl mal den Fehlercode anzeigen lassen, welchen GetShortPathName zurückgibt.

GetLastError

[PeterKiers]

Ich habe es schon

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  Caption := GetShortName(d.FileName);
  d.free;
end;

Danke fur die Hilfe.

Peter Kiers

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[MrKnogge]

Hi,
ich würde d.Execute nicht einfach so aufrufen, besser wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  d: TOpendialog; 
begin 
  d := TOpendialog.Create(self); 
  try
    if d.Execute then 
      Caption := GetShortName(d.FileName);
  finally
    d.free;
  end; 
end;

Gruß

[PeterKiers]

Danke viel mals.

peter Kiers

[sirius]

Zitat von MrKnogge:

Hi,
ich würde d.Execute nicht einfach so aufrufen, besser wäre:

Natürlich nicht, das war ja auch nur mal schnell zum testen.