blob: 50ba993642329abbed2cdfab2159055b07efd093 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
program fx;
uses glib,gdk,gtk,frmmain,sysutils;
Var
MainWindow : PMainWindow;
begin
gtk_init(@argc,@argv);
MainWindow:=NewMainForm;
gtk_widget_show_all(PGtkWidget(MainWindow^.Window));
ShowDir(mainwindow,Extractfilepath(Paramstr(0)){'/usr/bin/'});
gtk_main;
end.
|
