Yani;
Kod: Tümünü seç
/home/ahmet
/home/mustafa
Ya da GetCurrentDir kullanarak
Kod: Tümünü seç
home/ahmet/klasor/ikinciklasor/ucuncuklasor
Kod: Tümünü seç
home/ahmet
Kod: Tümünü seç
/home/ahmet
/home/mustafa
Kod: Tümünü seç
home/ahmet/klasor/ikinciklasor/ucuncuklasor
Kod: Tümünü seç
home/ahmet
aslında bu lazarusla direk ilgilide değil.. aynı delphide olduğu gibi ikinci / olan yerin kaçıncı eleman olduğunu bulur sonrada oraya kadar olan kısmı alabilirsinYa da GetCurrentDir kullanarak
KOD: TÜMÜNÜ SEÇ
home/ahmet/klasor/ikinciklasor/ucuncuklasor
dizesinden sadece
KOD: TÜMÜNÜ SEÇ
home/ahmet
kısmını çıkartmam mümkün müdür?
Kod: Tümünü seç
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
{$ifdef mswindows}
Windows,
{$endif}
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
function GetUserPath: string;
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetUserPath);
end;
function TForm1.GetUserPath:string;
{$ifdef mswindows}
var PIDL : PItemIDList;
Folder : array[0..MAX_PATH] of Char;
const CSIDL_APPDATA = $001A;
{$endif}
begin
{$ifdef mswindows}
SHGetSpecialFolderLocation(0, CSIDL_APPDATA, PIDL);
SHGetPathFromIDList(PIDL, Folder);
Result := Folder;
{$endif}
{$ifdef unix}
Result := ExpandFileName('~/');
{$endif}
end;
initialization
{$I unit1.lrs}
end.
+1mozturkgss yazdı:Pardus da denedim sonuç başarılı