Knap som åbner cden (mappen)

Man trenger ikke å ha en usynlig TLabel på formen.
Du kan bruke variabler + litt rettelser fra den tidligere koden min:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenProg1Btn: TButton;
    BrowseCDBtn: TButton;
    procedure FormCreate(Sender: TObject);
    procedure OpenProg1BtnClick(Sender: TObject);
    procedure BrowseCDBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DriveLetter: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DriveLetter := IncludeTrailingPathDelimiter(ExtractFileDrive(ParamStr(0)));
end;

procedure TForm1.OpenProg1BtnClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(DriveLetter + 'programmer\\program.exe'),
               nil, nil, SW_SHOW);
end;

procedure TForm1.BrowseCDBtnClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(DriveLetter), nil, nil, SW_SHOW);
end;

end.

Håper du kan bruke det

Mvh
DiZpel

Altså jeg er nooby, men jeg klarede også dette problem med lidt af vært da jeg skulle lave det:

Lav både din knap og en label som skal være usynlig.
Dette skriver du i formens OnCreat;

var
S: String;
Begin 
S := ExtractFileDir(Application.ExeName)+'\\'; 
label1.caption := S;
end;

Den finder ud af hvor dit progran ligger og skriver det i labelen. HUSK AT PROGRAMMET SKAL IKKE ligge i nogen mappe på cd'en.



Bagefter skal du havde den til at åbne det. Dette skrives i den knap du vil havde den til at åbne når du klikker:

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str := label1.caption;
shellExecute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

Tilføy ShellApi under uses!



Hvis den skal åbne en åndermappe på cd'en, så skriv sådan her eks.:


var
str:string;
begin
str := label1.caption+'/Mappenavnet/og måske et fil navn her...;
shellExecute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;



Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig videre, hvis alle er enige...

Kan du bruke dette?:

Tilføy ShellApi under [b]uses[/b]!

procedure TForm1.LukkClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0))), nil, nil, SW_SHOW);
  Close;
end;

Mvh
DiZpel

K...

Er det ikke et fedt motto. Ha ha.



Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


E = MC2