Lazarus'ta aktif kullanıcı adını almak

[kafkasyali]

Lazarus'ta aktif kullanıcı adını Linux'ta almam mümkün müdür?

Yani;

Kod: Tümünü seç

/home/ahmet
/home/mustafa

gibi.

Ya 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?

[selimr]

Ya 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?

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ı alabilirsin

[kafkasyali]

Teşekkür ederim çok sağolun. Fakat aktif geliştirici değilim. Kendimce ufak tefek uygulamalar yapıyorum. Gösterdiğiniz yolu bir örnekle açıklamanız mümkün müdür?

[mozturkgss]

Aşağıdaki şekilde çalıştırabilirsin. Windowsta denedim çalıştı ama linuxta denemedim.

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.

[mozturkgss]

Pardus da denedim sonuç başarılı

[kafkasyali]

Pardus da denedim sonuç başarılı

+1

Ubuntu'da da çalışıyor. Çok teşekkür ederim. Ne kadar makbule geçti bilemezsiniz. Sağolun

Yapacağım uygulamanın hakkında kısmına nick'inizi ekleyebilir miyim?

[mozturkgss]

Ekleyebilirsiniz bir sakıncası yok.
Programınızın yaptığı iş ne acaba merak ettim

[kafkasyali]

Linux'ta sağ tıklama ile ilgili menüleri geliştirmek için yazılan betikler var. Onları GUI uygulamasına dökmek istedim